Kako hitro posredovati e-pošto samo z izbranimi prilogami prek Outlooka VBA

Ko posredujete Outlookovo e-pošto s prilogami, boste morda želeli obdržati le izbrane priloge namesto vseh. Zdaj vas bomo v tem članku naučili, kako hitro posredovati pošto samo z izbranimi prilogami.

Na standarden način, ko posredujete Outlookovo e-pošto, bodo posredovane vse izvirne priloge. Vendar pa včasih želite posredovati samo nekatere priloge namesto vseh. Na splošno lahko e-pošto posredujete kot običajno in nato ročno izbrišete neželene priloge. Vendar je nekoliko težavno. Zato vam bomo tukaj predstavili veliko hitrejši način za posredovanje elektronske pošte z izbranimi priponkami.

Hitro posredujte e-pošto samo z izbranimi prilogami

1. Na samem začetku zaženite urejevalnik Outlook VBA prek bližnjice »Alt + F11«.
2. Nato kopirajte in prilepite naslednjo kodo v projekt ali modul.

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. Nato zapustite urejevalnik VBA.
4. Nato sledite »Izbirnemu koraku« v prejšnji strost "Kako zagnati kodo VBA v Outlooku", Če želite dodati ta makro v orodno vrstico ali trak za hitri dostop.
5. Sčasoma lahko preizkusite ta makro.

• Najprej se prepričajte, da je podokno za branje vklopljeno.
• Nato izberite e-poštno sporočilo in priloge, ki jih želite posredovati.
• Nato kliknite gumb makra v orodni vrstici za hitri dostop ali na traku.
• Takoj se prikaže novo e-poštno sporočilo. Kot lahko vidite, gre za posredovano e-pošto z izbranimi prilogami.

Popravite poškodovanost podatkov Knotty Outlook

Ste že kdaj naleteli na zrušitev Outlooka? In ali so takšne zrušitve povzročile poškodbo podatkov PST? Če ste se kdaj srečali s takimi težavami, ste morda spoznali, kako zapletene in težavne so. Običajno je mogoče majhne težave rešiti z orodjem za popravilo prejete pošte. Ampak za resne težave, npr Outlook korupcija, morate uporabiti močnejši pripomoček, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server fiksna in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com