مطلوب كود لارسال بريد الكتروني في حال انتهاء الرخصة

[obad65]

إخواني الاعزاء خبراء المنتدى

 

   آمل تكرمكم في ايجاد كود يقوم بارسال بريد الكتروني الى الموظف في حال انتهاء تاريخ صلاحية البطاقة أو الرخصة ويكون عنوان البريد الكتروني هو نفس الرقم الوظيفي على مجال الشركة وهو    nano.com.sa

أي أن الموظف احمد بريده الالكتروني   100@nano.com.sa

 

   آمل  مساعدتكم ضروري للأهمية

مع خالص الشكر والتقدير

email.zip

[obad65]

مع التحية أخوتي

  كما آمل أن يكون نص الرسالة ( تم انتهاء الرخصة نأمل التجديد وتحديث البيانات )

 

    مع خالص شكر

[أيهاب ممدوح]

Sub SentMail()
Dim Mail As New Message
Dim Config As Configuration
Set Config = Mail.Configuration
Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.gmail.com"
Config(cdoSMTPServerPort) = 25
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = "بريدك الاكلتروفي GMAIL"
Config(cdoSendPassword) = "الباسوورد"
Config.Fields.Update
Mail.To = "البريد المرسل ايه"
Mail.from = Config(cdoSendUserName)
Mail.Subject = "Email Subject"
Mail.HTMLBody = "<b>Email body</b>"
' هذا هو الجزء الذي يرسل في هته الحال سيتم ارسال صورة من الجهاز الى بريد ما
Mail.AddAttachment "C:\Users\Admin\Pictures\QQ.jpg"
On Error Resume Next
Mail.Send
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "There was an error"
Exit Sub
End If
MsgBox "Your email hes sent!", vbInformation, "Sent"
End Sub

أخي الكريم ... حاول تعدل عليه يمكن ينفعك

 

 

[obad65]

شكرا اخي ايهاب بصراحة ماعندي خلفية كبيرة في التعديل

ولكن اذا ممكن احد من الاخوة الكرام في المنتدى يفيدني ويعدل على المرفق والمطلوب انه الكود يفتح الاوت لوك حق المستخدم ويرسل بريد لصاحب الرخصه المنتهية وعنوان البريد الالكتروني للمرسل اليه هو نفس رقم الموظف الذي يتم تسجيله وعنوان الdomain هو نفس domin الشركة @nano.com.sa

وشكرا جزيلا لك ولجميع الخبراء بالمنتدى

[ابو تراب]

هلا عباد

جرب الملف المرفق

كذلك يمكنك مراجعة الرابط التالي اذا اردت خيار اخر لارسال الايميل

شرح ارسال بريد الكتروني عبر الاكسل

email.zip

[obad65]

مع التحية والتقدير استاذي الفاضل ابوتراب

   تم تجربة الملف وهو فعلا رائع ويحقق الهدف المطلوب

   شاكر ومقدر لحسن تعاونك والله يحفظك ويرعاك 

[KHMB]

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

سلمت يداك ابا تراب

[ابو تراب]

الحمد لله الذي بفضله تتم الصالحات ... شكرا الله لك كلماتك الطيبة اخي عباد

هلا باخي KHMB  شكرا لكلمات الطيبة و مرورك العطر ... تقبل الله منا و منكم صالح الاعمال

[عبدالله فاروق ابو ريان]

جزاك الله كل خير اخي ابو تراب تعودنا منك على الابداع في الاكواد

هل يمكن المساعدة على نفس الملف بعد عمل تعديلات وحفظ يقوم بارسال نسخة من الملف الى الايميل (نفس ملف العمل)