كيف ترسل مخططًا معينًا في رسالة بريد إلكتروني باستخدام vba في Excel؟
قد تعرف كيفية إرسال بريد إلكتروني من خلال Outlook في Excel باستخدام كود VBA. ومع ذلك ، هل تعرف كيفية إرفاق مخطط معين في ورقة عمل معينة في نص البريد الإلكتروني؟ ستوضح لك هذه المقالة طريقة حل هذه المشكلة.
أرسل مخططًا محددًا في رسالة بريد إلكتروني في Excel مع كود VBA
أرسل مخططًا محددًا في رسالة بريد إلكتروني في Excel مع كود VBA
يرجى القيام بما يلي لإرسال مخطط محدد في رسالة بريد إلكتروني مع رمز VBA في Excel.
1. في ورقة العمل التي تحتوي على الرسم البياني الذي تريد إرفاقه في نص البريد الإلكتروني ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة التعليمات البرمجية.
كود فبا: أرسل مخططًا محددًا في بريد إلكتروني في إكسيل
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=" & "cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """ width=700 height=500 > <br> <br>"
xChart.Chart.Export xChartPath
With xOutMail
.To = ""
.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
ملاحظات: في الرمز ، يرجى تغيير عنوان البريد الإلكتروني للمستلم وموضوع البريد الإلكتروني في السطر . إلى = "" وخط .Subject = "إضافة مخطط في نص بريد Outlook" , Sheet1 هي الورقة التي تحتوي على الرسم البياني الذي تريد إرساله ، يرجى تغييره إلى الجدول الخاص بك.
3. اضغط على F5 مفتاح لتشغيل الكود. في الافتتاح كوتولس ل إكسيل في مربع الحوار ، أدخل اسم المخطط الذي سترفقه في نص البريد الإلكتروني ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
ثم يتم إنشاء بريد إلكتروني تلقائيًا مع عرض الرسم البياني المحدد في نص البريد الإلكتروني كما هو موضح أدناه. الرجاء النقر فوق الزر إرسال لإرسال هذا البريد الإلكتروني.
مقالات ذات صلة:
- كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
- كيفية إدراج التوقيع في بريد Outlook الإلكتروني عند الإرسال عن طريق vba في Excel؟
- كيفية إرسال بريد إلكتروني في وقت محدد من اليوم في Excel؟
- كيفية إرسال بريد إلكتروني بهيئة بريد إلكتروني بتنسيق HTML في Excel؟
- كيفية إرسال بريد إلكتروني بتنسيق نص غامق / حجم / لون / تسطير محدد في Excel؟
- كيفية إرسال بريد إلكتروني بدون Outlook في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!