كيفية إرسال بريد إلكتروني بنص بتنسيق عريض/حجم/لون/تحت الخط المحدد في Excel؟

يمكن أن يثري تنسيق نص HTML البريد الإلكتروني ويجعله سهل القراءة. يناقش هذا المقال كيفية إرسال بريد إلكتروني بتنسيق HTML في Excel من خلال إضافة العريض، التسطير بالإضافة إلى حجم ولون النص المحدد.

إرسال بريد إلكتروني بنص بتنسيق عريض/حجم/لون/تحت الخط المحدد باستخدام كود VBA

إرسال بريد إلكتروني بنص بتنسيق عريض/حجم/لون/تحت الخط المحدد باستخدام كود VBA

يرجى تطبيق كود VBA أدناه لإرسال بريد إلكتروني بتنسيق نص HTML محدد في Excel.

1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ كود VBA أدناه في نافذة الكود.

كود VBA: إرسال بريد إلكتروني بنص بتنسيق عريض/حجم/لون/تحت الخط المحدد في Excel

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

ملاحظات:

3. اضغط على مفتاح F5 لتشغيل الكود. ثم سيتم فتح البريد الإلكتروني بتنسيق HTML المحدد. يرجى النقر على زر الإرسال لإرساله.

مقالات ذات صلة:

• كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
• كيفية إدراج توقيع في بريد Outlook عند الإرسال عبر vba في Excel؟
• كيفية إرسال بريد إلكتروني بدون Outlook في Excel؟
• كيفية إرسال مخطط معين في بريد إلكتروني باستخدام vba في Excel؟
• كيفية إرسال بريد إلكتروني في وقت محدد من اليوم في Excel؟
• كيفية إرسال بريد إلكتروني بجسم رسالة HTML في Excel؟