Kuidas kopeerida Outlookis kõik manused mitmest meilist uude meili

Outlooki lahendused September 29, 2025

Kui soovite luua uue meili ja lisada uuele meilile kõik mitme muu meili manused, saate kasutada selles artiklis kirjeldatud meetodit. See õpetab teid kasutama VBA-d, et saada see imelihtne.

Mõnikord peate võib-olla kopeerima kõik manused mitmest meilist uude meili. Loomulikult saate seda teha käsitsi, salvestades need esmalt kohalikule kettale ja lisades need siis ükshaaval vastloodud meilile. Ilmselt on see aga üsna tüütu ülesanne. Seetõttu, miks mitte kasutada VBA-d selle kiireks realiseerimiseks? Järgnevalt tutvustame teile üksikasjalikke toiminguid ja vastavaid VBA koode.

Kopeerige kõik manused mitmelt meililt uude meili

Kopeerige kõik manused mitmelt meililt uude meili

  1. Alguses käivitage oma Outlooki programm nagu tavaliselt.
  2. Järgmisena vajutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
  3. Järgmises aknas „Microsoft Visual Basic for Applications” sisestage uus moodul või avage moodul, mida ei kasutata.
  4. Seejärel kopeerige ja kleepige järgmised VBA koodid sellisesse moodulisse.
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

VBA kood – kõigi mitme meili manuste pakkkopeerimine uude meili

  1. Pärast seda peaksite jätkama uue VBA projekti lisamist kiirpääsu tööriistaribale. Saate selle täita jaotises "Outlooki suvandid".
  2. Hiljem peaksite muutma oma Outlooki makro turvataseme madalaks.
  3. Lõpuks saate proovida.
  • Esiteks vajutage klahvi "Ctrl" ja valige mitu meili, mille manuseid soovite kopeerida.
  • Seejärel vajutage kiirjuurdepääsu tööriistaribal uut makro nuppu.
  • Kohe kuvatakse uus e-kiri, millele on lisatud kõik manused.

Esitage väljakutse Outlooki sagedastele PST-probleemidele

Kuna Outlooki PST-probleeme võib aeg-ajalt ette tulla, peaksite oma PST-andmete kaitsmiseks palju pingutama. Näiteks oleks parem oma PST-andmed regulaarselt varundada, et saaksite need tagasi saada rikutud Outlook andmeid varukoopiatest ilma higistamata. Lisaks peate läheduses hoidma mainekat tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.