Kuidas valitud manustega meili kiiresti edasi saata ainult Outlook VBA kaudu

Outlooki lahendused September 29, 2025

Manustega Outlooki meili edastamisel võite mõnikord soovida säilitada ainult valitud manused, mitte kõik. Nüüd selles artiklis õpetame teile, kuidas ainult valitud manustega kirju kiiresti edasi saata.

Tavapärasel viisil, kui saadate Outlooki meili edasi, edastatakse kõik algsed manused. Kuid mõnikord soovite edastada ainult mõned manused, mitte kõik. Üldiselt saate meili tavapäraselt edasi saata ja seejärel soovimatud manused käsitsi kustutada. Kuid see on natuke tülikas. Seetõttu tutvustame siin teile palju kiiremat meetodit ainult valitud manustega e-kirjade edastamiseks.

Saatke e-kiri kiiresti edasi ainult valitud manustega

  1. Kohe alguses käivitage Outlook VBA redaktor kiirklahvi Alt + F11 kaudu.
  2. Seejärel kopeerige ja kleepige järgmine kood projekti või moodulisse.
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

VBA kood – saatke e-kiri kiiresti edasi ainult valitud manustega

  1. Järgmisena väljuge VBA redaktorist.
  2. Pärast seda järgige eelmises lk-s “Valikuline samm”.ost "Kuidas Outlookis VBA-koodi käivitada", et lisada see makro kiirpääsu tööriistaribale või lindile.
  3. Lõpuks saate seda makrot proovida.
  • Kõigepealt veenduge, et lugemispaan on sisse lülitatud.
  • Seejärel valige meil ja manused, mida soovite edastada.
  • Järgmisena klõpsake kiirjuurdepääsu tööriistaribal või lindil makronuppu.Valige Attachments ja Run Macro
  • Korraga kuvatakse uus e-kiri. Nagu näete, on see edasisuunamismeil, millel on ainult valitud manused.Uus meil ainult valitud manustega

Parandage sõlmeline Outlooki andmete korruptsioon

Kas olete kunagi kokku puutunud Outlooki krahhiga? Ja kas sellised krahhid on põhjustanud PST-andmete rikkumist? Kui olete kunagi selliste probleemidega kokku puutunud, olete võib-olla aru saanud, kui segased ja tülikad need on. Tavaliselt saab väiksemaid probleeme lahendada Inboxi remonditööriistaga. Aga tõsiste hädade puhul nagu Outlooki korruptsioon, peate kasutama võimsamat utiliiti, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server määrata ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.