Outlook VBA көмегімен бірнеше электрондық поштадағы барлық тіркемелерді пакеттік басып шығару жолы

Бірнеше таңдалған электрондық хаттардағы барлық тіркемелерді жаппай басып шығарғыңыз келсе, осы мақалада келтірілген әдісті пайдалана аласыз. Ол тез арада қол жеткізу үшін VBA кодының бір бөлігін пайдаланады.

Көріп отырғаныңыздай, бір тіркемені таңдаған кезде, «Тіркемелер» таспасында тікелей «Жылдам басып шығару» мүмкіндігі бар. Дегенмен, бір тіркемені таңдаған кезде, көптеген таңдалған электрондық хаттардағы барлық тіркемелерді басып шығаруды айтпағанда, «Жылдам басып шығару» түймесі өшіріледі. Сондықтан, бірнеше поштадағы барлық тіркемелерді бір уақытта басып шығарғыңыз келсе, кез келген үшінші тарап құралдары немесе VBA сияқты басқа жолдарды іздеу керек. Осы қажеттілікке назар аудара отырып, біз сізге бір рет басу арқылы оны алуға көмектесетін VBA кодының бір бөлігін көрсетеміз.

Бірнеше электрондық поштадағы барлық тіркемелерді пакеттік басып шығару

1. Ең басында Outlook қосымшасын іске қосыңыз.
2. Содан кейін негізгі терезеде VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
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. Ақыр соңында сіз көріңіз.

• Біріншіден, пошта тізімінде тіркемелері басып шығарылатын бірнеше электрондық поштаны таңдаңыз.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы жаңа макро батырманы басыңыз.
• Әрі қарай, таңдалған электрондық хаттардағы барлық тіркемелер басып шығарылады.

Макростарда жасырылған вирустардан сақ болыңыз

Outlook макрос қауіпсіздік деңгейін төмен етіп конфигурациялаған болсаңыз, зиянды макростардағы ықтимал вирустарды блоктау үшін көп күш жұмсауыңыз керек. Себебі, вирустар Outlook деректерін бір уақытта жоя алады. Outlook деректеріңіз бүлінген кезде, сіз бар күшіңізді саласыз Outlook бағдарламасын қалпына келтіру сияқты күшті құралға қайталану сияқты деректерді барлық құралдармен DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайлас кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com