Sähköpostin edelleenlähettäminen nopeasti valituilla liitteillä vain Outlook VBA: n kautta

Kun välität liitetiedostoja sisältävää Outlook-sähköpostia, saatat joskus haluta säilyttää vain valitut liitteet kaikkien sijasta. Tässä artikkelissa opetamme sinulle, kuinka voit lähettää edelleen sähköpostin vain valituilla liitteillä.

Tavallisella tavalla, kun välität Outlook-sähköpostin, kaikki alkuperäiset liitteet välitetään edelleen. Toisinaan haluat kuitenkin välittää vain joitain liitteitä kaikkien sijaan. Yleensä voit lähettää sähköpostin edelleen tavalliseen tapaan ja poistaa sitten ei-toivotut liitteet manuaalisesti. Mutta se on vähän hankala. Siksi esitämme tässä paljon nopeamman tavan lähettää sähköposti vain valituilla liitteillä.

Lähetä sähköpostiviesti nopeasti vain valituilla liitteillä

1. Käynnistä Outlook VBA -editori alusta alkaen Alt + F11-pikakuvakkeella.
2. Kopioi ja liitä sitten seuraava koodi projektiin tai moduuliin.

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. Poistu seuraavaksi VBA-editorista.
4. Noudata sen jälkeen edellisen sivun kohtaa ”Valinnainen vaihe”ost "Kuinka suorittaa VBA-koodi Outlookissa”Lisätäksesi tämän makron Quick Access Toolbariin tai nauhaan.
5. Lopulta voit kokeilla tätä makroa.

• Varmista ensin, että lukuruutu on päällä.
• Valitse sitten sähköposti ja liitteet, jotka haluat lähettää edelleen.
• Napsauta seuraavaksi makropainiketta Pikakäynnistystyökalupalkissa tai nauhassa.
• Samanaikaisesti uusi sähköposti tulee näkyviin. Kuten näette, se on edelleenlähetyssähköposti, jossa on vain valitut liitteet.

Korjaa Knotty Outlookin tietojen vioittuminen

Oletko koskaan törmännyt Outlook-kaatumiseen? Ja ovatko tällaiset kaatumiset johtaneet PST-tietojen vioittumiseen? Jos olet joskus törmännyt sellaisiin ongelmiin, olet ehkä ymmärtänyt, kuinka solmivia ja hankalia ne ovat. Yleensä pienet ongelmat voidaan ratkaista Inbox-korjaustyökalulla. Mutta vakavista ongelmista, kuten Outlookin korruptio, sinun on käytettävä tehokkaampaa apuohjelmaa, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korjata ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com