Kako skupno kopirati sve privitke iz više e-poruka u novu e-poštu u programu Outlook

Ako želite stvoriti novu e-poštu i dodati joj sve privitke iz nekoliko drugih e-poruka, možete koristiti metodu predstavljenu u ovom članku. Naučit ćete koristiti VBA kako biste ga dobili kao povjetarac.

Ponekad ćete možda morati skupno kopirati sve privitke iz više e-poruka u novu e-poštu. Naravno, možete odabrati da to učinite ručno, tako da ih prvo spremite na lokalni disk, a zatim ih jednu po jednu priložite novostvorenoj e-pošti. Međutim, čini se da će to na ovaj način biti prilično dosadan zadatak. Stoga, zašto ne upotrijebite VBA da to brzo shvatite? U nastavku ćemo vam izložiti razrađene operacije i odgovarajuće VBA kodove.

Skupno kopirajte sve privitke iz više e-poruka u novu e-poštu

1. Na samom početku pokrenite Outlook kao i obično.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke "Alt + F11".
3. U sljedećem prozoru “Microsoft Visual Basic for Applications” 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 programa Outlook".
6. Kasnije biste trebali promijeniti razinu sigurnosti Outlook makroa na nisku.
7. Konačno možete pokušati.

• Najprije pritisnite tipku “Ctrl” i odaberite nekoliko e-poruka čije privitke želite kopirati.
• Zatim pritisnite novi makro gumb na alatnoj traci za brzi pristup.
• Odmah će se pojaviti nova poruka e-pošte sa svim privicima.

Isprobajte česte probleme s Outlookom PST

Budući da se tu i tamo mogu pojaviti problemi s Outlook PST-om, trebali biste uložiti mnogo truda kako biste zaštitili svoje PST podatke. Na primjer, bolje je da redovito napravite sigurnosnu kopiju svojih PST podataka kako biste mogli vratiti pokvareni Outlook podataka iz sigurnosnih kopija bez ikakvog znojenja. Štoviše, u blizini morate držati renomirani alat, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com