KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تُرسل ورقة عمل واحدة فقط عبر Outlook من Excel؟

المؤلفXiaoyangتاريخ التعديل

إذا كنت ترغب في إرسال ورقة عمل واحدة من مصنف Excel عبر Outlook، فيمكنك إرسالها كمرفق، أو كمحتوى داخل الرسالة، أو كملف PDF. لكن هل توجد طرق أسرع لتحقيق ذلك في Excel؟

إرسال ورقة عمل واحدة كمحتوى من Excel باستخدام أمر «إرسال إلى مستلم البريد»

إرسال ورقة عمل واحدة كمرفق من Excel باستخدام رمز VBA

إرسال ورقة عمل واحدة كـ ملفات PDF من Excel باستخدام رمز VBA

سهم أزرق فقاعة جهة اليمين إرسال ورقة عمل واحدة كمحتوى من Excel باستخدام أمر «إرسال إلى مستلم البريد»

يدعمك Excel في إرسال ورقة العمل النشطة كمحتوى للرسالة عبر استخدام أمر «إرسال إلى مستلم البريد». اتبع الخطوات التالية:

إذا كنت تستخدم Excel 2007 أو 2010 أو 2013، فعليك أولًا إضافة الأمرإرسال إلى مستلم البريدإلىشريط الأدوات للوصول السريع.

1. انقر على أيقونةتخصيص شريط الأدوات للوصول السريع، ثم اخترمزيد من الأوامر. انظر لقطة الشاشة:

اختر المزيد من الأوامر من تخصيص شريط أدوات الوصول السريع

2. في مربع حوارخيارات Excel، اخترالأوامر غير الموجودة في الشريطمن قائمةاختيار الأوامر منالمنسدلة، ثم حدد خيارإرسال إلى مستلم البريد، وانقر على زرإضافة >>لإضافة هذا الأمر، ثم انقر أخيرًا علىموافقلحفظ الإعداد. انظر لقطة الشاشة:

حدد خيار إرسال إلى مستلم البريد من مربع حوار خيارات Excel

3.تم إدراج أمرإرسال إلى مستلم البريدفيشريط الأدوات السريع الوصول، انظر لقطة الشاشة:

تم إدراج أمر إرسال إلى مستلم البريد في شريط أدوات الوصول السريع

4. بعد ذلك، انقر على زر أيقونةإرسال إلى مستلم البريد، وسيظهر مربع تنبيه. في مربع التنبيهالبريد الإلكتروني، حدد خانةإرسال ورقة العمل الحالية كمحتوى الرسالة، ثم انقر علىموافق. انظر لقطة الشاشة:

حدد خيار إرسال الورقة الحالية كنص الرسالة في مربع الحوار

5. سيظهر مربع تحرير البريد الإلكتروني أعلى بيانات ورقة العمل، حيث يمكنك إدخال عناوين المستلمين والموضوع والمقدمة في مربعات النص المخصصة لكلٍّ منها. انظر لقطة الشاشة:

يظهر مربع تحرير بريد إلكتروني، أدخل المستلمين والموضوع والمقدمة

6. ثم انقر علىإرسال هذه الورقةلإرسال ورقة العمل النشطة كمحتوى رسالة إلى الشخص المحدد.

لقطة شاشة لـ kutools for excel ai

افتح سحر إكسل مع KUTOOLS AI

  • التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
  • الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
  • برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
  • تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
  • ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
حسِّن قدراتك في إكسل بأدوات مدعومة بالذكاء الاصطناعي.حمِّل الآنوجرِّب الكفاءة كما لم تفعل من قبل!

سهم أزرق فقاعة جهة اليمين إرسال ورقة عمل واحدة كمرفق من Excel باستخدام رمز VBA

إذا كنت ترغب في إرسال ورقة العمل النشطة كمرفق، فسيساعدك رمز VBA التالي على إنجاز ذلك بسهولة.

1. فعِّل ورقة العمل التي تريد إرسالها.

2. اضغط مع الاستمرار على مفتاحيALT + F11، وستفتح لك ذلك نافذةMicrosoft Visual Basic for Applications.

3. انقر علىإدراج > وحدة، ثم الصق الرمز التالي فينافذة الوحدة.

رمز VBA: إرسال ورقة العمل الحالية كمرفق من Excel

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 = "skyyang@extendoffice.com"
    .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

ملاحظة: في الرمز أعلاه، يمكنك تعديل المعلومات التالية وفقًا لاحتياجاتك.

  • .To = «skyyang@extendoffice.com»
  • .CC = «»
  • .BCC = «»
  • .Subject = «kte features»
  • .Body = «يرجى التحقق من هذا المستند وقراءته.»

4. بعد ذلك، انقر على مفتاحF5 لتشغيل هذا الرمز، وسيظهر مربع تنبيه. انقر علىسماحعندما ينتهي شريط التقدم، ثم تُرسل ورقة العمل الحالية إلى المستلم كمرفق.

انقر على السماح عندما ينتهي شريط التقدم

سهم أزرق فقاعة جهة اليمين إرسال ورقة عمل واحدة كـ ملفات PDF من Excel باستخدام رمز VBA

أحيانًا، قد تحتاج إلى مشاركة تقرير ورقة العمل مع الآخرين دون منحهم صلاحية التعديل عليه. في هذه الحالة، يمكنك بسهولة إرسال ورقة العمل من Excel كملف PDF.

1.فعّل ورقة العمل التي ترغب في إرسالها.

2. اضغط مع الاستمرار على مفتاحيALT + F11، وسيفتح ذلك نافذةMicrosoft Visual Basic for Applications.

3. انقر علىإدراج>وحدة، والصق الرمز التالي فينافذة الوحدة.

رمز VBA: إرسال ورقة العمل الحالية كـ ملفات PDF من Excel

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 = "skyyang@extendoffice.com"
    .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

ملاحظة: في الرمز أعلاه، يمكنك تخصيص المعلومات التالية وفقًا لاحتياجاتك.

  • .To = «skyyang@extendoffice.com»
  • .CC = «»
  • .BCC = «»
  • .Subject = «kte features»
  • .Body = «يرجى التحقق من هذا المستند وقراءته.»

4. بعد ذلك، اضغط على مفتاحF5، وسيظهر مربع تنبيه. بعد انتهاء شريط التقدم، انقر علىسماح، وبذلك تُرسل ورقة العمل النشطة إلى الشخص المحدد كملف PDF.

انقر على السماح بعد انتهاء شريط التقدم

ملاحظات:

1. هذه الطرق متاحة فقط عند استخدام Outlook كعميل بريدك الإلكتروني.

2. بعد إرسال ورقة العمل الحالية، يمكنك الانتقال إلى Outlook للتأكد من أن البريد الإلكتروني قد أُرسل بنجاح.

إنشاء قائمة البريد الإلكتروني ثم إرسال رسائل البريد الإلكتروني

أداةKutools لـ Excel's إنشاء قائمة البريد الإلكترونيوإرسالهايُمكّنك من إنشاء قائمة بريد إلكتروني في ورقة العمل بسرعة، ثم إرسال نفس الموضوع والمحتوى والمرفقات إلى عدة عناوين بريد إلكتروني دفعة واحدة.ورسائل البريد الإلكتروني
انتقل إلى التنزيل
قائمة بريدية
سهم لأسفل
إرسال رسائل بريد إلكتروني متعددة بواسطة kutools

مقالات ذات صلة:

كيف يمكنك إرسال المصنف الحالي عبر Outlook مباشرةً من Excel؟

كيف تُرسل نطاق الخلايا من Excel عبر Outlook؟

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل