Nëse dëshironi të printoni të gjitha bashkëngjitjet në shumë email të zgjedhur në masë, mund të përdorni metodën e prezantuar në këtë artikull. Ai po përdor një pjesë të kodit VBA për ta arritur atë në kohë të shpejtë.
Siç mund ta shihni, kur zgjidhni një bashkëngjitje të vetme, ekziston një veçori e drejtpërdrejtë "Shtypje e shpejtë" e disponueshme në shiritin "Bashkëngjitjet". Megjithatë, kur zgjidhni mbi një bashkëngjitje, butoni "Shtypje e shpejtë" do të çaktivizohet, për të mos përmendur printimin e të gjitha bashkëngjitjet në shumë emaile të zgjedhura. Prandaj, me kusht që të dëshironi të printoni të gjitha bashkëngjitjet në disa postë në të njëjtën kohë, duhet të kërkoni mënyra të tjera, si p.sh. mjete të palëve të treta ose VBA. Duke u fokusuar në këtë nevojë, këtu do t'ju ekspozojmë një pjesë të kodit VBA, i cili mund t'ju ndihmojë ta merrni atë thjesht me një klikim.
Printoni në grup të gjitha bashkëngjitjet në email të shumtë
- Që në fillim, hapni aplikacionin tuaj Outlook.
- Pastaj në dritaren kryesore, shtypni butonat "Alt + F11" për të hyrë në redaktuesin VBA.
- Në dritaren pasuese "Microsoft Visual Basic për aplikacione", hapni një modul bosh.
- Më pas kopjoni kodet e mëposhtme VBA në një modul të tillë.
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
- Më pas, mund të shtoni makro të re në shiritin e veglave të aksesit të shpejtë.
- Pas kësaj, ju duhet të vendosni nivelin e sigurisë makro Outlook në të ulët.
- Më në fund mund të provoni.
- Së pari, në listën e postës elektronike, zgjidhni disa email bashkëngjitjet e të cilave dëshironi të printoni.
- Pastaj klikoni në butonin e ri makro në shiritin e veglave të aksesit të shpejtë.
- Më pas, të gjitha bashkëngjitjet në emailet e zgjedhura do të printohen.
Kujdes nga viruset e fshehura në makro
Nëse e keni konfiguruar nivelin tuaj të sigurisë makro Outlook në nivel të ulët, duhet të shpenzoni shumë përpjekje për të bllokuar viruset e mundshëm në makro me qëllim të keq. Kjo është për shkak se viruset mund të shkatërrojnë të dhënat tuaja të Outlook me një lëvizje. Sapo të dhënat tuaja të Outlook të jenë të korruptuara, do të përpiqeni të bëni më të mirën rikuperoni Outlook të dhënat me të gjitha mjetet, të tilla si rikthimi në një mjet të fuqishëm si DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë sql e korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com