Přejít k hlavnímu obsahu

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í.

pouze přílohy automatického předávání dokumentů 1

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

???? 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 ProDá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.

Více       Stažení zdarma      Nákup
 

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations