Outlook VBA ilə birdən çox e-poçtda bütün əlavələri necə toplu çap etmək olar

Birdən çox seçilmiş e-poçtdakı bütün qoşmaları toplu olaraq çap etmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz. Tez bir zamanda əldə etmək üçün VBA kodunun bir hissəsini istifadə edir.

Gördüyünüz kimi, bir qoşma seçdiyiniz zaman, "Qoşmalar" lentində birbaşa "Tez Çap" funksiyası mövcuddur. Bununla belə, bir qoşma üzərindən seçdiyiniz zaman, bir çox seçilmiş e-poçtlarda bütün qoşmaları çap etməkdən başqa, “Tez Çap” düyməsi deaktiv ediləcək. Buna görə də, bir anda bir neçə məktubda bütün qoşmaları toplu çap etmək istəsəniz, hər hansı üçüncü tərəf alətləri və ya VBA kimi başqa yollar axtarmalısınız. Bu ehtiyaca diqqət yetirərək, burada sizə bir kliklə onu əldə etməyə kömək edə biləcək bir parça VBA kodunu təqdim edəcəyik.

Birdən çox e-poçtda bütün qoşmaları toplu çap edin

1. Ən başlanğıcda Outlook proqramınızı işə salın.
2. Sonra əsas pəncərədə VBA redaktoruna daxil olmaq üçün “Alt + F11” düymələrini basın.
3. Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində boş modulu açın.
4. Sonra aşağıdakı VBA kodlarını belə bir modula köçürün.

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. Daha sonra, siz Tez Giriş Alətlər Panelinə yeni makro əlavə edə bilərsiniz.
6. Bundan sonra, Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə təyin etməlisiniz.
7. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə poçt siyahısında qoşmalarını çap etmək istədiyiniz bir neçə e-poçtu seçin.
• Sonra Tez Giriş Alətlər Panelində yeni makro düyməsini basın.
• Sonra, seçilmiş e-poçtlardakı bütün qoşmalar çap olunacaq.

Makrolarda Gizli Viruslardan Ehtiyat Edin

Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə konfiqurasiya etmisinizsə, zərərli makrolarda potensial virusları bloklamaq üçün çox səy göstərməlisiniz. Çünki viruslar Outlook məlumatlarınızı bir anda məhv edə bilər. Outlook məlumatlarınız xarab olduqdan sonra əlinizdən gələni etməyə çalışacaqsınız Outlook-u bərpa edin kimi güclü bir alətə təkrarlanan kimi bütün vasitələrlə məlumat DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com