Batch Print PDF المرفقات في Outlook

كتب هذا المقال شون تساي ، وهو خبير في تخزين البيانات وصديق جيد لمهرجان How-To Geek

هل تريد طباعة كل مرفق تتلقاه في صندوق البريد الإلكتروني في Outlook؟ لنفترض أنك مشترك في خدمة فاكس مجانية إلى خدمة بريد إلكتروني بتنسيق PDF وتريد أن تتم طباعتها تلقائيًا تمامًا مثل جهاز فاكس قديم الطراز.

هنا طريقة سريعة لتحقيق ذلك إذا كنت مرتاحاً قليلاً من برمجة VB (ماكرو).

ما نعرضه هنا هو إنشاء قاعدة في Outlook ونقل رسائل الفاكس الواردة إلى مجلد فرعي منفصل. باستخدام شفرة VB ، نقوم بإنشاء ماكرو لكي تقوم بتشغيل مهمة طباعة مقابل كل بريد إلكتروني في هذا المجلد الفرعي حتى لا تضطر إلى فتح البريد الإلكتروني وطباعة المرفقات واحدة تلو الأخرى.

الخطوة 1

أنشئ مجلدًا فرعيًا باسم "Batch Prints" ضمن "Mailbox - YourName" في Outlook.

الخطوة 2

إنشاء قاعدة (من أدوات / قواعد وتنبيهات القائمة) في Outlook تبدو كالتالي:

ضع عنوان البريد الإلكتروني من بائع الفاكس في الحقل "[email protected]". في سطر الموضوع ، ضع النص الثابت الذي يتم إرساله من بائع الفاكس في كل مرة (لا تضع النص الذي سيتم تعديله بشكل دوري). 3^{الثالثة} field "Batch Prints" هو المجلد الفرعي الذي أنشأته للتو في الخطوة الأولى.

الخطوه 3

قم بإنشاء ماكرو VB. أولاً إظهار محرر VB بالانتقال إلى أدوات / ماكرو / محرر Visual Basic. يجب أن تشاهد محرر VB يبدو كالتالي:

الخطوة 4

من الإطار "مشروع" الجانب الأيسر ، انقر بزر الماوس الأيمن فوق عنصر مشروع 1 وقم بإدراج وحدة نمطية باسم Module1:

الخطوة 5

بمجرد إنشاء الوحدة النمطية 1 ، نسخ الرمز أدناه إلى الإطار الموجود على الجانب الأيمن كما هو موضح في الرمز النقطي # 3.

Public Sub PrintAttachments () خافت علبة الوارد كـ MAPIFolder Dim Dim Item باسم MailItem Dim Atmt باسم المرفق DimName FileName باسم سلسلة Dim Dimet As Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) لكل عنصر في Inbox.Items لكل Atmt في Item.Attachments يتم حفظ جميع المرفقات أولاً في المجلد المؤقت C: \ Temp. تأكد من إنشاء هذا المجلد. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'الرجاء تغيير مجلد البرنامج وفقًا لذلك إذا لم يتم تثبيت Acrobat Reader على محرك الأقراص C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ FileName +" "" "، vbHide Next Item.Delete" إزالة هذا السطر إذا كنت لا تريد حذف البريد الإلكتروني تلقائيًا التالي Set Inbox = Nothing End Sub 

لاحظ أنك قد تحتاج إلى تغيير سطر الكود الذي يستدعي Acrobat ليطابق المسار على النظام الخاص بك.

الخطوة 6

الآن اكتمال الإعداد. سيتم نقل جميع رسائل البريد الإلكتروني من بائع الفاكس إلى "Batch Prints" عندما تدخل. يرجى ملاحظة ، في المثال ، أننا نتوقع أن تكون جميع المرفقات بتنسيق PDF لذا نستخدم Acrobat acrord32.exe لطباعة كل مرفق.

باستخدام الماكرو

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

ملاحظة: يتم توجيه المطبوعات إلى الطابعة الافتراضية الخاصة بك حتى يكون لديك للتأكد من إعداد برنامج تشغيل طابعة صالح وتحديد.

آمل أن يكون هذا مفيدًا!