كيفية إرسال مخطط محدد عبر البريد الإلكتروني باستخدام VBA في Excel؟

قد تعرف كيفية إرسال بريد إلكتروني من خلال Outlook في Excel باستخدام كود VBA. ولكن، هل تعرف كيفية إرفاق مخطط معين في ورقة عمل محددة داخل نص البريد الإلكتروني؟ سيوضح لك هذا المقال الطريقة لحل هذه المشكلة.

إرسال مخطط محدد عبر البريد الإلكتروني في Excel باستخدام كود VBA

إرسال مخطط محدد عبر البريد الإلكتروني في Excel باستخدام كود VBA

يرجى اتباع الخطوات التالية لإرسال مخطط محدد عبر البريد الإلكتروني باستخدام كود VBA في Excel.

1. في ورقة العمل التي تحتوي على المخطط الذي تريد إرفاقه في نص البريد الإلكتروني، اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

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

Sub mailHTMLsend()
'Updated by Extendoffice 2018/3/5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xStartMsg As String
    Dim xEndMsg As String
    Dim xChartName As String
    Dim xChartPath As String
    Dim xPath As String
    Dim xChart As ChartObject
    On Error Resume Next
    xChartName = Application.InputBox("Please enter the chart name:", "KuTools for Excel", , , , , , 2)
    If xChartName = "" Then Exit Sub
    Set xChart = Sheets("Sheet1").ChartObjects(xChartName) 'Change "Sheet1" to your worksheet name
    If xChart Is Nothing Then Exit Sub
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xStartMsg = "<font size='5' color='black'> Good Day," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    xEndMsg = "<font size='4' color='black'> Many Thanks," & "<br> <br> </font>"
    xChartPath = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src="/%20&%20"cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "xrr@163.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add xChartPath
        .HTMLBody = xStartMsg & xPath & xEndMsg
        .Display
    End With
    Kill xChartPath
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

ملاحظة: في الكود، يرجى تغيير عنوان البريد الإلكتروني للمستلم وعنوان البريد في السطر .To = "xrr@163.com" والسطر .Subject = "Add Chart in outlook mail body" , Sheet1 هي الورقة التي تحتوي على المخطط الذي تريد إرساله، يرجى تغييرها إلى ما يناسبك.

3. اضغط على مفتاح F5 لتشغيل الكود. في مربع الحوار Kutools لـ Excel الذي يظهر، أدخل اسم المخطط الذي سترفقه في نص البريد الإلكتروني، ثم انقر على زر موافق. شاهد الصورة:

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

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

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