Kako grupno kopirati sve priloge iz više e-poruka u novu e-poštu u Outlooku

Ako želite kreirati novu e-poštu i dodati sve priloge u nekoliko drugih e-poruka u novu poštu, možete koristiti metodu predstavljenu u ovom članku. Naučiće vas da koristite VBA da biste ga dobili kao povjetarac.

Ponekad ćete možda morati grupno kopirati sve priloge iz više e-poruka u novu e-poštu. Naravno, možete odabrati da to učinite ručno, jednostavno tako što ćete ih prvo spremiti na lokalni disk, a zatim ih jedan po jedan priložiti novokreiranoj e-poruci. Međutim, po svemu sudeći, na taj način će to biti prilično zamoran zadatak. Stoga, zašto ne koristite VBA da to brzo shvatite? U nastavku ćemo vam izložiti detaljne operacije i odgovarajuće VBA kodove.

Grupno kopirajte sve priloge iz više e-poruka u novu e-poštu

1. Na samom početku, pokrenite Outlook program kao i obično.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke “Alt + F11”.
3. U sledećem prozoru „Microsoft Visual Basic za aplikacije“, umetnite novi modul ili otvorite modul koji nije u upotrebi.
4. Zatim kopirajte i zalijepite sljedeće VBA kodove u takav 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. Nakon toga, trebali biste nastaviti s dodavanjem novog VBA projekta na alatnu traku za brzi pristup. Možete ga dovršiti u “Opcijama Outlook”.
6. Kasnije biste trebali promijeniti nivo sigurnosti makroa Outlooka na niski.
7. Konačno možete probati.

• Prvo pritisnite tipku “Ctrl” i odaberite nekoliko e-poruka čije priloge želite kopirati.
• Zatim pritisnite dugme za novi makro na traci sa alatkama za brzi pristup.
• Odmah će se pojaviti nova e-poruka sa svim priloženim prilozima.

Izazovite česte probleme sa PST-om

Budući da se problemi sa Outlook PST mogu pojaviti s vremena na vrijeme, trebali biste uložiti mnogo napora da zaštitite svoje PST podatke. Na primjer, bolje bi bilo da redovno napravite sigurnosnu kopiju svojih PST podataka, tako da ćete moći vratiti oštećeni Outlook podaci iz rezervnih kopija bez znojenja. Štaviše, renomirani alat morate držati u blizini, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com