როგორ დავბეჭდოთ ყველა დანართი მრავალ წერილში Outlook VBA-ით

თუ გსურთ ამობეჭდოთ ყველა დანართი რამდენიმე შერჩეულ ელ.წერილში, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი მეთოდი. ის იყენებს VBA კოდის ნაწილს, რომ მიაღწიოს მას სწრაფად.

როგორც ხედავთ, როდესაც ირჩევთ ერთ დანართს, არის პირდაპირი "სწრაფი ბეჭდვის" ფუნქცია ხელმისაწვდომი "დანართების" ლენტზე. თუმცა, როდესაც თქვენ აირჩევთ ერთ დანართს, ღილაკი „სწრაფი ბეჭდვა“ გაითიშება, რომ აღარაფერი ვთქვათ ყველა დანართის დაბეჭდვაზე ბევრ არჩეულ ელფოსტაში. ამიტომ, იმ პირობით, რომ გსურთ ყველა დანართის სერიული დაბეჭდვა რამდენიმე ფოსტაში ერთჯერადად, თქვენ უნდა მოძებნოთ სხვა გზები, როგორიცაა მესამე მხარის ხელსაწყოები ან VBA. ამ საჭიროებაზე ორიენტირებული, აქ ჩვენ გამოგიგზავნით VBA კოდის ნაწილს, რომელიც დაგეხმარებათ მიიღოთ ის უბრალოდ ერთი დაწკაპუნებით.

ყველა დანართის ჯგუფური ბეჭდვა მრავალ ელ.წერილში

1. თავიდანვე გაუშვით თქვენი Outlook აპლიკაცია.
2. შემდეგ მთავარ ფანჯარაში დააჭირეთ "Alt + F11" ღილაკებს VBA რედაქტორზე წვდომისთვის.
3. მომდევნო "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში გახსენით ცარიელი მოდული.
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., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად