Kako paketno kopirati vse priloge iz več e-poštnih sporočil v novo e-poštno sporočilo v Outlooku

Če želite ustvariti novo e-poštno sporočilo in mu dodati vse priloge v več drugih e-poštnih sporočilih, lahko uporabite metodo, predstavljeno v tem članku. Naučil vas bo uporabljati VBA, da boste dobili kot vetrič.

Včasih boste morda morali paketno kopirati vse priloge iz več e-poštnih sporočil v novo e-poštno sporočilo. Seveda lahko izberete, da to storite ročno, preprosto tako, da jih najprej shranite na lokalni disk in nato enega za drugim pripnete novo ustvarjenemu e-poštnemu sporočilu. Vendar pa bo očitno na ta način precej dolgočasno opravilo. Zakaj torej ne uporabite VBA za hitro realizacijo? V nadaljevanju vam bomo predstavili dovršene operacije in ustrezne kode VBA.

Paketno kopirajte vse priloge iz več e-poštnih sporočil v novo e-poštno sporočilo

1. Na samem začetku zaženite program Outlook kot običajno.
2. Nato v glavnem oknu programa Outlook pritisnite tipke »Alt + F11«.
3. V naslednjem oknu »Microsoft Visual Basic for Applications« vstavite nov modul ali odprite modul, ki ni v uporabi.
4. Nato kopirajte in prilepite naslednje kode VBA v takšen modul.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Po tem nadaljujte z dodajanjem novega projekta VBA v orodno vrstico za hitri dostop. Izpolnite ga lahko v »Outlook Options«.
6. Pozneje bi morali spremeniti raven varnosti makra Outlook na nizko.
7. Končno lahko poskusite.

• Najprej pritisnite tipko “Ctrl” in izberite več e-poštnih sporočil, katerih priloge želite kopirati.
• Nato v orodni vrstici za hitri dostop pritisnite gumb za nov makro.
• Takoj se bo pojavilo novo e-poštno sporočilo z vsemi priloženimi prilogami.

Izzovite pogoste težave s programom Outlook PST

Ker se občasno lahko pojavijo težave z Outlookom PST, bi morali vložiti veliko truda v zaščito svojih podatkov PST. Na primer, bolje je, da redno varnostno kopirate svoje podatke PST, tako da boste lahko dobili nazaj pokvarjen Outlook podatkov iz varnostnih kopij, ne da bi se preznojili. Poleg tega morate imeti v bližini ugledno orodje, npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com