Jak automaticky předávat přílohy pouze na základě konkrétních kritérií v aplikaci Outlook?
Při přeposílání e-mailu je obvykle zahrnuto také původní tělo zprávy a přílohy. Někdy ale stačí předat konkrétní přílohy pouze přílohy bez původní zprávy na základě kritérií. Jak byste mohli vyřešit tuto práci v Outlooku?
Přeposílat pouze přílohy na základě konkrétních kritérií osobě automaticky s kódem VBA
Přeposílat pouze přílohy na základě konkrétních kritérií osobě automaticky s kódem VBA
Například při přijetí e-mailu, jehož předmět obsahuje text „kto funkce“, budou všechny přílohy tohoto e-mailu automaticky předány konkrétní osobě bez těla zprávy. Následující kroky vám mohou pomoci, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.
Kód VBA: Automatické přeposílání e-mailů bez těla zprávy, ale stačí zahrnout přílohy:
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 "" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
Poznámka: Ve výše uvedeném kódu byste měli změnit text předmětu a adresu příjemce na svou vlastní.
3. Poté kód uložte a restartujte aplikaci Outlook, aby se efekt kódu projevil.
4. Od nynějška pokaždé, když do vaší poštovní schránky dorazí nový e-mail obsahující konkrétní text předmětu, Outlook automaticky přepošle jeho přílohy bez těla zprávy požadované osobě.
Poznámka: Tento kód je k dispozici pouze pro výchozí účet.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.