Paano Batch Kopyahin ang Lahat ng Mga Attachment mula sa Maramihang Mga Email sa isang Bagong Email sa Outlook

Kung nais mong lumikha ng isang bagong email at idagdag ang lahat ng mga kalakip sa maraming iba pang mga email sa bagong mail, maaari mong gamitin ang pamamaraang ipinakilala sa artikulong ito. Tuturuan ka nitong gumamit ng VBA upang makuha ito tulad ng isang simoy.

Sa mga oras, maaaring kailanganin mong kopyahin ang lahat ng mga kalakip mula sa maraming email sa isang bagong email. Siyempre, maaari mong piliing gawin ito nang manu-mano, sa pamamagitan lamang ng unang pag-save sa kanila sa lokal na drive at pagkatapos ay ilakip ang mga ito sa isang bagong nilikha na email nang paisa-isa. Gayunpaman, maliwanag, sa pamamagitan nito, ito ay magiging isang nakakapagod na gawain. Samakatuwid, bakit hindi mo gamitin ang VBA upang mabilis itong mapagtanto? Sa mga sumusunod, ilalantad namin sa iyo ang mga detalyadong pagpapatakbo at kaukulang mga VBA code.

Batch Kopyahin ang Lahat ng Mga Attachment mula sa Maramihang Mga Email sa isang Bagong Email

1. Sa pinakasimula pa lang, simulan ang iyong programa sa Outlook gaya ng dati.
2. Susunod sa pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
3. Sa kasunod na window ng "Microsoft Visual Basic for Applications", magsingit ng isang bagong module o buksan ang isang module na hindi ginagamit.
4. Pagkatapos kopyahin at i-paste ang mga sumusunod na VBA code sa tulad ng isang module.

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. Pagkatapos nito, dapat kang magpatuloy upang idagdag ang bagong proyekto ng VBA sa Quick Access Toolbar. Maaari mong kumpletuhin ito sa "Mga Pagpipilian sa Outlook".
6. Sa paglaon ay dapat mong baguhin ang antas ng iyong seguridad sa Outlook sa mababang.
7. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, pindutin ang "Ctrl" key at pumili ng maraming mga email na ang mga kalakip ay nais mong kopyahin.
• Pagkatapos ay pindutin ang bagong pindutan ng macro sa Quick Access Toolbar.
• Kaagad, isang bagong email ang mag-pop up kasama ang lahat ng mga kalakip na kalakip.

Hamunin ang Madalas na Mga Isyu sa PST ng Outlook

Tulad ng mga isyu ng Outlook PST ay maaaring mangyari ngayon at pagkatapos, dapat kang gumastos ng maraming pagsisikap upang mapangalagaan ang iyong data ng PST. Halimbawa, mas mahusay mong mai-back up ang iyong data ng PST sa isang regular na batayan, na maibabalik mo ang sira ang Outlook data mula sa mga pag-backup nang hindi pinagpapawisan. Bukod dito, kailangan mong panatilihin ang isang kagalang-galang na tool sa paligid, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa