اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


obad65

الردود الموصى بها

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

 

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

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

 

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

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

email.zip

رابط هذا التعليق
شارك

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

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

 

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

هلا عباد

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

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

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

email.zip

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

  • 4 weeks later...

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information