كيفية إرسال ورقة العمل فقط من خلال Outlook من Excel؟
إذا كنت تريد إرسال ورقة عمل واحدة بالبريد الإلكتروني من مصنف في Excel عبر Outlook ، فيمكنك إرسال ورقة العمل كمرفق أو كمحتوى أساسي أو كملف PDF. ولكن هل هناك طرق أسرع للتعامل مع هذه المشكلة في Excel؟
أرسل ورقة عمل واحدة كجسم من Excel باستخدام الأمر Send to Mail Recipient
أرسل ورقة عمل واحدة كمرفق من Excel برمز VBA
أرسل ورقة عمل واحدة كملف PDF من Excel مع كود VBA
أرسل ورقة عمل واحدة كجسم من Excel باستخدام الأمر Send to Mail Recipient
يدعمنا Excel إرسال ورقة العمل النشطة بالبريد الإلكتروني كمحتوى أساسي باستخدام الأمر إرسال إلى مستلم البريد. يمكنك القيام بما يلي:
إذا كنت تستخدم Excel 2007 أو 2010 أو 2013 ، فستحتاج إلى إضافة هذا أرسل إلى مستلم البريد الأمر إلى شريط أدوات الوصول السريع لأول مرة.
1. انقر فوق أيقونة تخصيص شريط أدوات الوصول السريع، و اختار المزيد من الأوامر، انظر لقطة الشاشة:
2. وفي خيارات إكسيل مربع الحوار، اختر الأوامر ليست في الشريط في ال اختر أوامر من القائمة المنسدلة ، ثم حدد ملف أرسل إلى مستلم البريد الخيار، وانقر أضف >> زر لإضافة هذا الأمر ، في آخر نقرة OK لحفظ هذا الإعداد. انظر لقطة الشاشة:
3. • أرسل إلى مستلم البريد تم إدخال الأمر في ملف شريط أدوات الوصول السريع، انظر لقطة الشاشة:
4. ثم انقر فوق هذا أرسل إلى مستلم البريد رمز الزر ، وينبثق مربع مطالبة في ملف البريد الإلكتروني مربع موجه ، تحقق أرسل الورقة الحالية كنص الرسالة، ثم انقر OK. انظر لقطة الشاشة:
5. ويتم عرض مربع تحرير البريد الإلكتروني فوق بيانات ورقة العمل ، يمكنك إدخال المستلمين والموضوع والمقدمة في مربع النص المقابل. انظر لقطة الشاشة:
6. ثم اضغط أرسل هذه هير لإرسال ورقة العمل النشطة هذه كنص رسالة إلى شخص معين.
أرسل ورقة عمل واحدة كمرفق من Excel برمز VBA
إذا كنت ترغب في إرسال ورقة العمل النشطة بالبريد الإلكتروني كمرفق ، فيمكن لكود VBA التالي تقديم خدمة لك.
1. قم بتنشيط ورقة العمل التي تريد إرسالها.
2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: أرسل ورقة العمل الحالية كمرفق من إكسيل
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
ملاحظات: في الكود أعلاه ، يمكنك تغيير المعلومات التالية حسب حاجتك.
- . إلى = ""
- .CC = ""
- .BCC = ""
- .Subject = "ميزات kte"
- .Body = "الرجاء مراجعة هذا المستند وقراءته."
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسوف يظهر مربع موجه ، انقر فوق السماح عند انتهاء شريط التقدم ، ثم يتم إرسال ورقة العمل الحالية إلى المستلم كمرفق.
أرسل ورقة عمل واحدة كملف PDF من Excel مع كود VBA
في بعض الأحيان ، تحتاج إلى إرسال تقرير ورقة العمل إلى الآخرين ولكن لا تريد أن يقوم الآخرون بتعديله. في هذه الحالة ، يمكنك إرسال ورقة العمل كملف PDF من Excel.
1. قم بتنشيط ورقة العمل التي تريد إرسالها.
2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: أرسل ورقة العمل الحالية كملف PDF من إكسيل
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
ملاحظة: في الكود أعلاه ، يمكنك تغيير المعلومات التالية حسب حاجتك.
- . إلى = ""
- .CC = ""
- .BCC = ""
- .Subject = "ميزات kte"
- .Body = "الرجاء مراجعة هذا المستند وقراءته."
4. ثم اضغط F5 مفتاح ، وسوف يظهر مربع موجه ، انقر فوق السماح بعد الانتهاء من شريط التقدم ، يتم إرسال ورقة العمل النشطة إلى الشخص المحدد كملف PDF.
الملاحظات:
1. لا تتوفر هذه الطرق إلا عند استخدام Outlook كبرنامج البريد الخاص بك.
2. بعد إرسال ورقة العمل الحالية ، يمكنك الانتقال إلى Outlook الخاص بك للتأكد من إرسال البريد الإلكتروني بنجاح.
أنشئ قائمة بريدية ثم أرسل رسائل بريد إلكتروني
|
• كوتولس ل إكسيل's إنشاء قائمة بريدية و أرسل رسائل البريد الإلكتروني يمكن للأدوات المساعدة إنشاء قائمة بريدية بسرعة في ورقة عمل ، ثم إرسال نفس الموضوع ونفس المحتويات ونفس المرفقات إلى عناوين بريد إلكتروني متعددة. |
مقالات ذات صلة:
كيفية إرسال المصنف الحالي من خلال Outlook من Excel؟
كيفية إرسال / إرسال مجموعة من الخلايا عبر البريد الإلكتروني من خلال Outlook من Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!