Hvordan videresendes kun vedhæftede filer kun baseret på specifikke kriterier i Outlook?
Normalt inkluderes den originale meddelelsestekst og vedhæftede filer også, når du videresender en e-mail. Men nogle gange skal du kun videresende vedhæftede filer uden den originale besked baseret på kriterier til en bestemt person. Hvordan kunne du løse dette job i Outlook?
Videresend kun vedhæftede filer baseret på specifikke kriterier til en person automatisk med VBA-kode
For eksempel, når du modtager en e-mail, hvilket emne indeholder teksten "kto-funktion", vil alle vedhæftede filer i denne e-mail automatisk blive videresendt til den specifikke person uden meddelelsestekst. Følgende trin kan hjælpe dig, gør som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.
VBA-kode: Automatisk videresendelse af e-mail uden meddelelsestekst, men inkluder bare vedhæftede filer
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
Bemærk: I ovenstående kode skal du ændre emneteksten og modtageradressen til din egen.
3. Gem derefter koden, og genstart Outlook for at få kodeeffekten.
4. Fra nu af, hver gang en ny e-mail indeholder den specifikke emnetekst ankommer til din postkasse, videresender Outlook automatisk sine vedhæftede filer uden meddelelsestekst til den ønskede person.
Bemærk: Denne kode er kun tilgængelig for standardkontoen.
Kutools for Outlook - Bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget lettere!
- Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
- BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
- Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
- Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
- Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
