كيف يمكنني إرسال المصنف الحالي عبر Outlook من Excel؟
هل تُنشئ وتُعدّل التقارير دائمًا في مصنف Excel، وعند الانتهاء، تحتاج إلى إرسال التقرير الحالي فورًا إلى مدير قسمك؟ كيف يمكنك إرسال ملف العمل الكامل الحالي بسرعة إلى شخص معيّن دون الحاجة إلى فتح Outlook من Excel؟
إرسال المصنف الحالي عبر Outlook من Excel باستخدام أمر الحفظ والإرسال
إرسال المصنف الحالي عبر Outlook كمرفق من Excel باستخدام رمز VBA
إرسال المصنف الحالي عبر Outlook من Excel باستخدام أمر الحفظ والإرسال
باستخدام أمرالحفظ والإرسالفي Excel، يمكنك إرسال ملف العمل بالكامل كمرفق، أو كملف PDF، أو كملف XPS، أو حتى عبر فاكس الإنترنت من خلال Outlook. اتبع الخطوات التالية:
1. افتح ملف العمل الذي ترغب في إرساله.
2. انقرملف > الحفظ والإرسال > إرسال باستخدام البريد الإلكترونيفي Excel 2010، انظر لقطة الشاشة:

ملاحظات: إذا كنت تستخدم Excel 2007، فالرجاء النقر علىزر Office>إرسال، انظر لقطة الشاشة:

في Excel 2013، الرجاء النقر علىملف>مشاركة>بريد إلكتروني، انظر لقطة الشاشة:

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

4. بعد ذلك، تظهر نافذة تحرير Outlook؛ أدخل أسماء المستلمين في حقلَيْإلىونسخةفي مربع النص، واكتب موضوعًا في مربعالموضوع، ويمكنك أيضًا كتابة رسالة في مربع المقدمة. انظر لقطة الشاشة:

ملاحظات:
1. تعمل هذه الطريقة فقط إذا كنت تستخدم Outlook كعميل بريدك الإلكتروني.
2. بعد إرسال ملف العمل، يمكنك الانتقال إلى Outlook للتأكد من أن البريد الإلكتروني قد أُرسل بنجاح.
إرسال المصنف الحالي عبر Outlook كمرفق من Excel باستخدام رمز VBA
هنا، يمكنك أيضًا إرسال المصنف الحالي كمرفق من Excel باستخدام رمز VBA التالي، يُرجى اتباع الخطوات التالية:
1. افتح ملف العمل الذي ترغب في إرساله.
2. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح لك ذلك نافذةMicrosoft Visual Basic for Applications.
3. انقر علىإدراج > وحدة نمطية، ثم الصق الرمز التالي فينافذة الوحدة النمطية.
رمز VBA: إرسال المصنف الحالي كمرفق من Excel
Sub SendWorkBook()
'Update 20131209
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte feature"
.Body = "Hello, please check and read this document, thank you."
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
ملاحظة: في الرمز أعلاه، يمكنك تعديل المعلومات التالية لتناسب احتياجاتك.
- .to = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte feature»
- .Body = «Hello, please check and read this document, thank you.»
4. بعد ذلك، انقر على مفتاحF5 لتشغيل هذا الرمز، وستظهر نافذة منبثقة؛ انقر علىسماح، وسيتم إرسال ملف العمل.

ملاحظات:
1. يتوفر هذا الرمز فقط عند استخدام Outlook كعميل بريدك الإلكتروني.
2. بعد إرسال ملف العمل، انتقل إلى Outlook للتأكد من وصول البريد الإلكتروني بنجاح.
مقالات ذات صلة:
كيف تُرسل ورقة العمل فقط عبر Outlook من Excel؟
كيف يمكن إرسال نطاق من الخلايا عبر البريد الإلكتروني باستخدام Outlook من Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل