اضافة كود لـ signature الخاص بالاوت لوك

[ابو العلاء]

السلام عليكم 

ارجو منكم مساعدتي في الملف المرفق للاستاذ ياسر خليل 

بأضافة  كود  لـ signature الخاص بالاوت لوك

مع جزيل الشكر

Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.xlsm

[الرائد77]

تفضل . غير الكود الى هدا

Sub Send_Mail(SendTo As String, ToMSg As String, Signature As String)

    Dim OutlookApp As Object
    Dim OutlookMail As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
 Signature = OutlookMail.Body
        With OutlookMail
            .To = SendTo
            .CC = ""
            .BCC = ""
            .Subject = Range("n1").Value
            
            .Body = ToMSg & vbNewLine & Signature
            .Send
        End With
 
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

اذا لم يعمل معك. فعل signature على الاوتلوك. الكود ييقوم باظهار signature الافتراضي على الاوتلوك

Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.xlsm

[الرائد77]

هل قمت بفتح outlook!!!  و تسجيل الدخول؟؟ 

بعد تسجيل الدخول قم بتفعيل  signature على الاوتلوك. الكود ييقوم باظهار signature الافتراضي على الاوتلوك

المشكل عندك حبيبي

[ابو العلاء]

الرائد77

شكرا جزيلا استاذنا الكريم

[الرائد77]

عفوا حبيبي. هدا واجبنا