ارسال ايميل لما يحين وقت الدفع

[Abhsaid]

احتاج الى كود ارسال ايميل الى عميل تلقائيا بOUTLOOK  مربوط بتاريخ استحقاق في الاكسال

[كمال على طارق]

لا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وذلك تجنباً لإهدار وقت الأساتذة دون جدوى .. فلا يمكن تقديم المساعدة بدون رفع الملف  !!!!

تم تعديل فبراير 6, 2023 بواسطه كمال على طارق

[أبومروان]

 

Sub MailSelectionRange_Outlook()
Dim rng As Range Dim OutApp As Object Dim OutMail As Object
Set rng = Selection Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0)
On Error Resume Next With OutMail .To = "recipient@example.com" .CC = "" .BCC = "" .Subject = "Date Range Selection" .Body

جرب هذا قد يفيدك 

[أبو إيمان]

يمكن الاطلاع على هذا الموضوع يمكن يفيدك 

مع ملاحظة أنه سوف يتم عمل كود يوضع في حدث فتح الملف كي يعمل تلقائي

https://www.officena.net/ib/topic/58863-ارسال-رساله-الي-الايميل-بانتهاء-المده/