Kā kopēt visus pielikumus no vairākiem e-pastiem uz jaunu e-pastu programmā Outlook

Ja vēlaties izveidot jaunu e-pastu un jaunajam pastam pievienot visus pielikumus vairākos citos e-pasta ziņojumos, varat izmantot šajā rakstā ievadīto metodi. Tas iemācīs jums izmantot VBA, lai to iegūtu kā brīze.

Dažreiz jums, iespējams, būs nepieciešams kopēt visus pielikumus no vairākiem e-pastiem uz jaunu e-pastu. Protams, jūs varat izvēlēties to darīt manuāli, vienkārši vispirms saglabājot tos vietējā diskā un pēc tam pievienojot tos jaunizveidotajam e-pastam pa vienam. Tomēr acīmredzot ar šo līdzekli tas būs diezgan garlaicīgs uzdevums. Tādēļ, kāpēc jūs neizmantojat VBA, lai to ātri realizētu? Turpmāk mēs jums atklāsim sarežģītās darbības un atbilstošos VBA kodus.

Sērijveidā kopējiet visus pielikumus no vairākiem e-pastiem uz jaunu e-pastu

1. Jau pašā sākumā palaidiet savu Outlook programmu kā parasti.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Nākamajā logā “Microsoft Visual Basic for Applications” ievietojiet jaunu moduli vai atveriet moduli, kas netiek izmantots.
4. Pēc tam šādā modulī nokopējiet un ielīmējiet šādus VBA kodus.

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. Pēc tam jums vajadzētu turpināt pievienot jauno VBA projektu ātrās piekļuves rīkjoslai. To var aizpildīt sadaļā “Outlook opcijas”.
6. Vēlāk jums vajadzētu mainīt Outlook makro drošības līmeni uz zemu.
7. Beidzot jūs varat izmēģināt.

• Pirmkārt, nospiediet taustiņu “Ctrl” un atlasiet vairākus e-pastus, kuru pielikumus vēlaties kopēt.
• Pēc tam ātrās piekļuves rīkjoslā nospiediet jauno pogu makro.
• Tūlīt parādīsies jauns e-pasts ar visiem pievienotajiem pielikumiem.

Izaicinājums Biežas Outlook PST problēmas

Tā kā Outlook PST problēmas var rasties šad un tad, jums vajadzētu tērēt daudz pūļu, lai aizsargātu savus PST datus. Piemēram, jums ir labāk regulāri dublēt savus PST datus, lai jūs varētu tos atjaunot korumpēta Outlook dati no dublējumiem, neizlaižot sviedrus. Turklāt jums tuvumā ir jātur cienījams rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar