كيفية إرسال المصنف الحالي عبر 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 = "مرحبًا، يرجى التحقق وقراءة هذا المستند، شكرًا لك."
4. ثم انقر فوق مفتاح F5 لتشغيل هذا الكود، وستظهر مربع مطالبة، انقر فوق السماح، وسيتم إرسال هذا المصنف.
ملاحظات:
1. يعمل هذا الكود فقط عند استخدام Outlook كبرنامج بريدك.
2. بعد إرسال المصنف، يمكنك الذهاب إلى Outlook الخاص بك للتأكد من أن البريد الإلكتروني قد تم إرساله بنجاح.
مقالات ذات صلة:
كيفية إرسال ورقة العمل فقط عبر Outlook من Excel؟
كيفية إرسال / إيميل نطاق الخلايا عبر Outlook من Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!