كيف يمكن إرسال مخطط معيَّن عبر البريد الإلكتروني باستخدام 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الذي يظهر، أدخل اسم المخطط الذي تريد إرفاقه في نص البريد الإلكتروني، ثم انقر فوق زرموافق. انظر لقطة الشاشة:
بعد ذلك، سيتم إنشاء بريد إلكتروني تلقائيًا، مع ظهور المخطط المحدد في نص البريد كما هو موضح في لقطة الشاشة أدناه. يُرجى النقر على زر الإرسال لإرسال هذا البريد فورًا.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكن إرسال بريد إلكتروني تلقائيًا عند تغيُّر قيمة خلية في Excel؟
- كيف يمكن إدراج توقيع في رسالة بريد Outlook الإلكتروني تلقائيًا عند الإرسال باستخدام VBA من Excel؟
- كيف يمكن إرسال بريد إلكتروني في وقت محدد من اليوم باستخدام Excel؟
- كيف تُرسل بريدًا إلكترونيًّا من Excel يحتوي على نصٍ بتنسيق HTML؟
- كيف تُرسل بريدًا إلكترونيًّا من Excel بنصٍ منسَّق بخط عريض، أو حجم معيَّن، أو لون محدَّد، أو بخط تحته تسطير؟
- كيف يمكن إرسال بريد إلكتروني من Excel دون استخدام Outlook؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل