كيفية طباعة المرفقات تلقائيًا عند وصول رسائل البريد الإلكتروني في Outlook؟

يوضح هذا البرنامج التعليمي طريقة لدمج برنامج VBA النصي وقاعدة Outlook لمساعدتك على طباعة مرفقات رسائل بريد إلكتروني معينة تلقائيًا عند وصولها إلى Outlook.

قم بطباعة المرفقات تلقائيًا عند وصول رسائل بريد إلكتروني معينة

لنفترض أنك تريد طباعة مرفقات رسائل البريد الإلكتروني الواردة من مرسل معين تلقائيًا. يمكنك القيام بما يلي لإنجازه.

الخطوة 1: قم بإنشاء برنامج نصي في Outlook

أولاً ، تحتاج إلى إنشاء برنامج نصي لـ VBA في Outlook.

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر نقرًا مزدوجًا فوق Project1 > كائنات Microsoft Outlook > هذه الجلسة لفتح ThisOutlookSession (رمز) نافذة ، ثم انسخ الكود التالي في نافذة الكود هذه.

كود فبا 1: طباعة المرفقات تلقائيًا (جميع أنواع المرفقات) عند وصول رسائل البريد الإلكتروني

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xTempFolder & "\" & xAtt.FileName
      xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

ملحوظة: يدعم هذا الرمز طباعة جميع أنواع المرفقات الواردة في رسائل البريد الإلكتروني. إذا كنت ترغب في طباعة النوع المحدد فقط من المرفقات ، مثل ملفات pdf ، فيرجى تطبيق رمز VBA التالي.

كود فبا 2: قم بطباعة النوع المحدد من المرفقات تلقائيًا عند وصول رسائل البريد الإلكتروني

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileType As String, xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xAtt.FileName
      xFileType = LCase$(Right$(xFileName, VBA.Len(xFileName) - VBA.InStrRev(xFileName, ".")))
      xFileName = xTempFolder & "\" & xFileName
      Select Case xFileType
        Case "pdf"   'change "pdf" to the file extension you want to print
          xAtt.SaveAsFile (xFileName)
          Set xFolderItem = xFolder.ParseName(xFileName)
          xFolderItem.InvokeVerbEx ("print")
      End Select
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
  Exit Sub
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

ملاحظة:

3. انطلق وانقر الأدوات > المراجع. في ظهرت المراجع - مشروع 1 مربع الحوار، والتحقق من وقت تشغيل البرمجة لـ Microsoft مربع ، ثم انقر فوق OK .

4. احفظ الرمز واضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

الخطوة 2: بناء قاعدة لاستخدام البرنامج النصي

بعد إضافة برنامج VBA النصي في Outlook ، تحتاج إلى إنشاء قاعدة لاستخدام البرنامج النصي بناءً على شروط معينة.

1. انتقل إلى علامة التبويب الصفحة الرئيسية ، انقر فوق قوانيـن > إدارة القواعد والتنبيهات.

2. في ال القواعد والتنبيهات مربع الحوار، انقر فوق قانون جديد زر لإنشاء قاعدة.

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

3. في الأول معالج القواعد مربع الحوار، حدد تطبيق القاعدة على الرسائل التي أتلقىها في ال الخطوة1 مربع، ثم انقر فوق التالي.

4. في الثانية معالج القواعد مربع الحوار ، تحتاج إلى:

5. في الثالث معالج القواعد مربع الحوار ، تحتاج إلى تكوين على النحو التالي.

نصيحة: إذا كان "تشغيل البرنامج النصي”مفقود في ملف معالج القواعديمكنك عرضها باتباع الطريقة المذكورة في هذا المقال: استعادة المفقودين تشغيل برنامج نصي pption في قاعدة Outlook.

6. ثم آخر معالج القواعد ينبثق طلب الاستثناءات. يمكنك تحديد الاستثناءات إذا لزم الأمر ، وإلا فانقر فوق التالى زر بدون أي تحديدات。

7. في الماضي معالج القواعد، فأنت بحاجة إلى تحديد اسم للقاعدة ، ثم النقر فوق نهاية .

8. ثم يعود إلى القواعد والتنبيهات مربع الحوار ، يمكنك رؤية القاعدة التي قمت بإنشائها مدرجة في القائمة ، انقر فوق OK زر لإنهاء الإعدادات بأكملها.

من الآن فصاعدًا ، عند استلام بريد إلكتروني من الشخص المحدد ، ستتم طباعة الملفات المرفقة تلقائيًا.

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

---

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

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات برو: حفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

تفاصيل أكثر       تحميل مجانا      شراء