Hoppa till huvudinnehåll

Hur automatiskt vidarebefordra bilagor endast baserat på specifika kriterier i Outlook?

Författare: Xiaoyang Senast ändrad: 2024-08-21

Normalt, när du vidarebefordrar ett e-postmeddelande, ingår även den ursprungliga meddelandetexten och bilagorna. Men ibland behöver du bara vidarebefordra bilagor utan det ursprungliga meddelandet baserat på kriterier till en viss person. Hur kunde du lösa detta jobb i Outlook?

Vidarebefordra endast bilagor baserat på specifika kriterier till en person automatiskt med VBA-kod


Vidarebefordra endast bilagor baserat på specifika kriterier till en person automatiskt med VBA-kod

Till exempel, när du får ett e-postmeddelande vars ämne innehåller texten "kto-funktion", kommer alla bilagor i detta e-postmeddelande att vidarebefordras till den specifika personen automatiskt utan meddelandetext. Följande steg kan hjälpa dig, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Vidarebefordra e-post automatiskt utan meddelandetext men inkludera bara bilagorna:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Anmärkningar: I ovanstående kod bör du ändra ämnestexten och mottagaradressen till din egen.

Endast bilagor för automatisk vidarebefordran av doc 1

3. Spara sedan koden och starta om Outlook för att få kodeffekten.

4. Från och med nu, varje gång ett nytt e-postmeddelande innehåller den specifika ämnestexten kommer till din brevlåda, kommer Outlook automatiskt att vidarebefordra sina bilagor utan meddelandetext till önskad person.

Anmärkningar: Den här koden är endast tillgänglig för standardkontot.


Bästa kontorsproduktivitetsverktyg

Nyheter: Kutools for Outlook Lanserar gratisversionen!

Upplev det helt nya Kutools for Outlook GRATISversion med 70+ otroliga funktioner, din att använda FÖR ALLTID! Klicka för att ladda ner nu!

🤖 Kutools AI : Använder avancerad AI-teknik för att hantera e-postmeddelanden utan ansträngning, inklusive att svara, sammanfatta, optimera, utöka, översätta och skriva e-postmeddelanden.

📧 Email Automation: Autosvar (tillgängligt för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Återkalla e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Påminn dig när viktiga mejl kommer  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Använda Kutools på ditt föredragna språk – stöder engelska, spanska, tyska, franska, kinesiska och över 40 andra!

Lås upp direkt Kutools for Outlook med ett enda klick. Vänta inte, ladda ner nu och öka din effektivitet!

kutools för Outlook-funktioner1 kutools för Outlook-funktioner2