كيفية إرسال / إرسال مجموعة من الخلايا عبر البريد الإلكتروني من خلال Outlook من Excel؟
هل سبق لك أن عانيت من مشكلة بعد الانتهاء من تقرير في ورقة عمل ، وتحتاج إلى إرسال مجموعة من الخلايا في ورقة العمل هذه والتي تحتوي على بعض البيانات المهمة للمستلم المحدد. هل هناك أي طرق سريعة يمكنك من خلالها إرسال بريد إلكتروني إلى هذا النطاق من Excel دون فتح Outlook؟
إرسال نطاق من الخلايا كمرفق من Excel برمز VBA
أرسل نطاقًا من الخلايا كجسم من Excel برمز VBA
إرسال نطاق من الخلايا كمرفق من Excel برمز VBA
يمكن أن يساعدك رمز VBA التالي في إرسال النطاق المحدد كمرفق في Excel. يرجى القيام بذلك على النحو التالي:
1. افتح المصنف الخاص بك ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: أرسل مجموعة من الخلايا كمرفق من إكسيل
Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.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 = "information of kte"
.Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
ملاحظات: في الكود أعلاه ، يمكنك تغيير المعلومات التالية حسب حاجتك.
- . إلى = ""
- .CC = ""
- .BCC = ""
- .Subject = "معلومات عن kte"
- .Body = "مرحبًا ، يرجى مراجعة هذا المستند وقراءته."
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي تريد إرساله. انظر لقطة الشاشة:
4. ثم اضغط OK، وسيظهر مربع موجه ، بعد انتهاء شريط التقدم ، انقر فوق السماح، ومن ثم تم إرسال النطاق المحدد من الخلايا إلى المستلم كمرفق.
أرسل نطاقًا من الخلايا كجسم من Excel برمز VBA
إذا كنت تريد إرسال نطاق معين كجزء من نص الرسالة من Excel ، فيمكنك أيضًا تطبيق رمز VBA التالي لحلها.
كوتولس ل إكسيل, مع أكثر من 120 وظائف يدوية ، تجعل مهامك أسهل. | ||
1. قم بتنشيط ورقة العمل الخاصة بك واضغط باستمرار على ملف ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: أرسل مجموعة من الخلايا كجسم من إكسيل
Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please read this email."
.Item.To = ""
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End Sub
ملحوظة: في الكود أعلاه ، يمكنك تغيير المعلومات التالية حسب حاجتك.
- .Introduction = "الرجاء قراءة هذا البريد الإلكتروني."
- .Item.To = ""
- .Item.Subject = "معلومات عن kte"
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي تريد إرساله.
4. ثم اضغط OK، وسيظهر مربع موجه ، بعد انتهاء شريط التقدم ، انقر فوق السماح، ثم تم إرسال النطاق المحدد من الخلايا إلى المستلم الخاص بك كنص رسالة.
الملاحظات:
1. هذه الرموز متاحة فقط عندما يكون Outlook برنامج البريد الخاص بك.
2. بعد إرسال ورقة العمل الحالية ، يمكنك الانتقال إلى Outlook الخاص بك للتأكد من إرسال البريد الإلكتروني بنجاح.
مقالات ذات صلة:
كيفية إرسال ورقة العمل فقط من خلال Outlook من Excel؟
كيفية إرسال المصنف الحالي من خلال Outlook من Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!