Kako brzo proslijediti e-poštu samo s odabranim privicima putem programa Outlook VBA

Kada prosljeđujete Outlook e-poštu koja ima privitke, povremeno ćete možda htjeti zadržati samo odabrane privitke umjesto svih. Sada ćemo vas u ovom članku naučiti kako brzo proslijediti e-poštu samo s odabranim privicima.

Na standardni način, kada prosljeđujete Outlook e-poštu, svi izvorni privici bit će proslijeđeni. Međutim, ponekad želite proslijediti samo neke privitke umjesto svih. Općenito, možete proslijediti e-poštu kao i obično, a zatim ručno izbrisati neželjene privitke. Ali, malo je problematično. Stoga ćemo vam ovdje predstaviti puno bržu metodu prosljeđivanja e-pošte samo s odabranim privicima.

Brzo proslijedite e-poštu samo s odabranim privicima

1. Na samom početku pokrenite Outlook VBA editor preko prečice “Alt + F11”.
2. Zatim kopirajte i zalijepite sljedeći kod u projekt ili 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. Zatim izađite iz VBA uređivača.
4. Nakon toga slijedite “Opcijski korak” u prethodnoj strost "Kako pokrenuti VBA kod u vašem Outlooku” za dodavanje ove makronaredbe na alatnu traku za brzi pristup ili vrpcu.
5. Eventualno možete isprobati ovu makronaredbu.

• Prvo provjerite je li okno za čitanje uključeno.
• Zatim odaberite e-poštu i privitke koje želite proslijediti.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup ili na vrpci.
• Odmah će se prikazati nova e-pošta. Kao što vidite, to je e-pošta za prosljeđivanje sa samo odabranim privicima.

Popravite oštećenje podataka Knotty Outlook

Jeste li ikada naišli na pad programa Outlook? I jesu li takva rušenja rezultirala oštećenjem PST podataka? Ako ste se ikada susreli s takvim problemima, možda ste shvatili koliko su zamršeni i problematični. Obično se mali problemi mogu riješiti alatom za popravak Inboxa. Ali, za ozbiljne probleme, kao Outlook korupcija, morate upotrijebiti moćniji uslužni program, kao što je 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 SQL Server popraviti i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com