Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

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 "skyyang@addin88.com"    '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.


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    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