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
تفضل اخي الكريم
الكود مجهز لرسال ملف من الجهاز حدد مسارة داخل الكود
الكود يعمل بدون وسيط من الاكسل الي الايميل مباشرة
لكن سجل ايميل المرسل منه والباسورد والايميل المراد الارسال اليه
لكن شرط اضافه المرجع كما في الصورة
ومن الممكن التعديل عليه لارسال نص رساله الي اكثر من ايميل
تحياتي