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

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

När du till exempel tar emot ett e-postmeddelande med vilket ämne som innehåller texten "kto-funktionen" kommer alla bilagor i detta e-postmeddelande att vidarebefordras till den specifika personen utan meddelande. 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: Automatisk vidarebefordran av e-post utan meddelandetext men bara bifoga bilagor:

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 ska du ändra ämnestext och mottagaradress till din egen.

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 som kommer till din brevlåda, kommer Outlook att automatiskt vidarebefordra sina bilagor utan meddelandetext till önskad person.

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

Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

• Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
• BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
• Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
• Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
• Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.

Läs mer... Ladda ner nu...