كيفية إرسال مخطط محدد عبر البريد الإلكتروني باستخدام 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؟
- كيفية إدراج توقيع في بريد Outlook عند الإرسال بواسطة VBA في Excel؟
- كيفية إرسال بريد إلكتروني في وقت محدد من اليوم في Excel؟
- كيفية إرسال بريد إلكتروني بنص HTML في Excel؟
- كيفية إرسال بريد إلكتروني بتنسيق نص عريض/حجم/لون/تحت الخط محدد في Excel؟
- كيفية إرسال بريد إلكتروني بدون Outlook في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد