Outlook VBA ашиглан олон имэйл дэх бүх хавсралтыг хэрхэн багцлан хэвлэх вэ

Хэрэв та сонгосон олон имэйл дэх бүх хавсралтыг бөөнөөр нь хэвлэхийг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно. Энэ нь хурдан хугацаанд хүрэхийн тулд VBA кодыг ашиглаж байна.

Таны харж байгаагаар нэг хавсралтыг сонгоход "Хавсралт" туузан дээр шууд "Түргэн хэвлэх" функц байдаг. Гэсэн хэдий ч, та нэг хавсралтаас илүү сонгох үед "Түргэн хэвлэх" товчлуур идэвхгүй болох бөгөөд сонгосон олон имэйл дэх бүх хавсралтыг хэвлэх нь бүү хэл. Тиймээс, хэрэв та бүх хавсралтыг хэд хэдэн шуудангаар багцлан хэвлэхийг хүсвэл гуравдагч талын хэрэгсэл эсвэл VBA гэх мэт өөр арга хайх хэрэгтэй. Энэ хэрэгцээнд анхаарлаа хандуулж, энд бид танд нэг товшилтоор үүнийг авахад туслах VBA кодын хэсгийг үзүүлэх болно.

Олон имэйл дэх бүх хавсралтыг багцаар хэвлэх

1. Хамгийн эхэнд Outlook програмаа ажиллуулна уу.
2. Дараа нь үндсэн цонхонд "Alt + F11" товчийг дарж VBA засварлагч руу нэвтэрнэ үү.
3. Дараагийн "Microsoft Visual Basic for Applications" цонхонд хоосон модулийг нээнэ үү.
4. Дараа нь дараах VBA кодуудыг ийм модуль руу хуулна.

Sub BatchPrintAllAttachmentsinMultipleEmails()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
    Dim strFilePath As String
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
    'Create a new temp folder
    MkDir (strTempFolder)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For Each objItem In objSelection
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
           Set objAttachments = objMail.attachments
 
           'Save all the attachments in the temp folder
           For Each objAttachment In objAttachments
               strFilePath = strTempFolder & "\" & objAttachment.FileName
               objAttachment.SaveAsFile (strFilePath)
 
               'Print all the files in the temp folder
               Set objShell = CreateObject("Shell.Application")
               Set objTempFolder = objShell.NameSpace(0)
               Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
               objTempFolderItem.InvokeVerbEx ("print")
           Next objAttachment
        End If
    Next
End Sub

5. Үүний дараа та шинэ макро хурдан нэвтрэх хэрэгслийн самбарт нэмж болно.
6. Үүний дараа та Outlook-ийн макро аюулгүй байдлын түвшинг хамгийн бага түвшинд тохируулах хэрэгтэй.
7. Эцэст нь та хичээгээд үзээрэй.

• Нэгдүгээрт, захидлын жагсаалтаас хавсралтыг нь хэвлэхийг хүссэн хэд хэдэн имэйлийг сонгоно уу.
• Дараа нь Quick Access Toolbar дээрх шинэ макро товчлуур дээр дарна уу.
• Дараа нь сонгосон имэйл дэх бүх хавсралтыг хэвлэх болно.

Макронд нуугдсан вирусуудаас болгоомжил

Хэрэв та Outlook-ын макро аюулгүй байдлын түвшинг хамгийн бага болгож тохируулсан бол хортой макро дахь болзошгүй вирусыг блоклохын тулд маш их хүчин чармайлт гаргах хэрэгтэй болно. Учир нь вирус нь таны Outlook-ийн өгөгдлийг нэг дор устгаж чаддаг. Таны Outlook өгөгдөл эвдэрсэн тохиолдолд та чадах бүхнээ хийх болно Outlook-г сэргээх гэх мэт хүчирхэг хэрэгсэл рүү давтагдах гэх мэт бүх аргаар өгөгдөл DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлига авсан кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com