طلب تعديل بسيط على كود ارسال ايميل عند تاريخ معين

[ابو فارس2013]

السلام عليكم ورحمة الله وبركاته

 

لقد استطعت بفضل الله ان استطيع ان ادمج بين كودين واحد من شرح الاستاذ ابو تراب لارسال الايميل من الاوت لووك واخر من صنع اخونا المهندس ابن مصر ووضعته في الملف المرفق ولكن صعبت علي نقطتين لم استطع ان اضع لها حل يرجى من الاستاذة الكبار شرح لي كيفية القيام بالاضافات التالية :

 

1- جعل ملف الاكسل المرفق يرسل الايميل من مجرد فتح الملف دون الضرورة للضغط على زر send

 

2- يوجد الان رسالة تاكيد الايميل قبل الارسال اريد الغائها

 

وشكرا لجميع من نشر وينشر هذا العلم الواسع وساعد ويساعد الجميع دون استثناء

[ابو فارس2013]

الحمدلله تأخركم علي بالرد ساعدني لاكتشف طريقة الغاء رسالة تاكيد الايميل بحذف الكود التالي:

 

 

If MsgBox("We will send the notice to Mr. " & vbCrLf & vbCrLf & ToEmail & vbCrLf & vbCrLf & "YOU LIKE TO CONTINUE?", vbInformation + vbYesNo + vbMsgBoxRight, "ÇÑÓÇá ÇÔÚÇÑ") = vbYes

 

وتعويضه ب:

If AUTOEMAIL Then

 

باقي الطلب الاول ارسال الايميل مباشرة بعد فتح الملف

[KHMB]

السلام عليكم ورحمة الله

اخي ابو فارس

لجعل ارسال البريد عند فتح الملف

مرفق صورة

Send E.mail when open Excel file.rar

[ابو فارس2013]

بالظبط الان وجدتها في ملف المهندس ابن مصر
 
 Private Sub Workbook_Open()
btnSendEmail
End Sub
 
شكرا لك اخي على المساعدة
 
:fff:

تم تعديل فبراير 26, 2015 بواسطه ابو فارس2013