كيفية حفظ ورقة عمل كملف PDF وإرسالها كمرفق عبر البريد الإلكتروني باستخدام Outlook؟
في بعض الحالات، قد تحتاج إلى إرسال ورقة عمل كملف PDF عبر Outlook. عادةً، عليك يدويًا حفظ ورقة العمل كملف PDF، ثم إنشاء بريد إلكتروني جديد مع هذا الملف كمرفق في Outlook وأخيرًا إرساله. من المستهلك للوقت القيام بذلك يدويًا خطوة بخطوة. في هذه المقالة، سنوضح لك كيفية حفظ ورقة عمل بسرعة كملف PDF وإرسالها تلقائيًا كمرفق عبر Outlook في Excel.
حفظ ورقة عمل كملف PDF وإرسالها كمرفق باستخدام كود VBA
حفظ ورقة عمل كملف PDF وإرسالها كمرفق باستخدام كود VBA
يمكنك تشغيل الكود التالي لـ VBA لحفظ ورقة العمل النشطة تلقائيًا كملف PDF، ثم إرسالها كمرفق عبر Outlook. يرجى اتباع الخطوات التالية.
1. افتح ورقة العمل التي تريد حفظها كملف PDF وإرسالها، ثم اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، انقر على إدراج > وحدة. ثم قم بنسخ ولصق الكود التالي لـ VBA في نافذة الكود. انظر الصورة:
كود VBA: حفظ ورقة عمل كملف PDF وإرسالها كمرفق
Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"
'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
vbYesNo + vbQuestion, "File Exists")
On Error Resume Next
If xYesorNo = vbYes Then
Kill xFolder
Else
MsgBox "if you don't overwrite the existing PDF, I can't continue." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
Exit Sub
End If
End If
Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
'Save as PDF file
xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.To = ""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Attachments.Add xFolder
If DisplayEmail = False Then
'.Send
End If
End With
Else
MsgBox "The active worksheet cannot be blank"
Exit Sub
End If
End Sub
3. اضغط على مفتاح F5 لتشغيل الكود. في مربع الحوار تصفح، يرجى تحديد مجلد لحفظ ملف PDF هذا، ثم انقر على زر موافق.
ملاحظات:
حفظ ورقة عمل أو عدة أوراق عمل بسهولة كملفات PDF منفصلة دفعة واحدة:
أداة تقسيم المصنف من Kutools لـ Excel يمكنها مساعدتك في حفظ ورقة عمل أو عدة أوراق عمل بسهولة كملفات PDF منفصلة دفعة واحدة كما هو موضح في العرض التوضيحي أدناه. قم بتنزيله وتجربته الآن! (30-day free trail)
مقالات ذات صلة:
- كيفية حفظ اسم ملف Excel مع الطابع الزمني؟
- كيفية استخدام وظيفة حفظ باسم لتجاوز الملف الموجود تلقائيًا في Excel؟
- كيفية حفظ أو تصدير عدة/كل الأوراق إلى ملفات CSV أو نصية منفصلة في Excel؟
- كيفية تعطيل أو عدم السماح بخيارات الحفظ والحفظ باسم في Excel؟
- كيفية تعطيل حفظ المصنف ولكن السماح فقط بالحفظ باسم في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!