Jak automaticky přeposílat konkrétní příchozí e-maily prostřednictvím jiného účtu v aplikaci Outlook

Někteří uživatelé nakonfigurovali v Outlooku více než jeden e-mailový účet a jeden nastavili jako výchozí. Přejí si však také, aby Outlook automaticky přeposílal konkrétní příchozí e-maily prostřednictvím jiného účtu. Outlook takovou funkci nemá, takže ji lze realizovat pouze s kódem VBA sdíleným v tomto článku.

Například jste ve svém Outlooku nastavili dva e-mailové účty POP3 a jako výchozí účet jste nastavili Účet 1. Tím by se všechny příchozí e-maily ukládaly do souboru aplikace Outlook účtu 1. A vytvoříte pravidlo aplikace Outlook pro automatické přeposílání konkrétních příchozích e-mailů někomu jinému. Doufáte tedy, že veškeré přeposílání pošty se provádí prostřednictvím jiného e-mailového účtu, konkrétně účtu 2. Pravidlo aplikace Outlook však takovou akci neposkytuje. Musíte tedy použít jiné metody, například následující.

Automatické přeposílání konkrétních příchozích e-mailů prostřednictvím jiného účtu

1. Nejprve v Outlooku otevřete editor VBA pomocí „Alt + F11“.
2. Poté v editoru VBA vložte následující kód VBA do nečinného modulu.

Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
    Dim objForwardMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objMailAccounts As Outlook.Accounts
    Dim objMailAccount As Outlook.Account
 
    Set objForwardMail = objMail.Forward
    'Change the recipients of forwarding email
    Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
    objRecipient.Type = olTo
    objForwardMail.Recipients.ResolveAll
 
    Set objMailAccounts = Outlook.Application.Session.Accounts
    For Each objMailAccount In objMailAccounts
        'Replace "John Smith" with the display name of your email account
        If objMailAccount.DisplayName = "John Smith" Then
           objForwardMail.SendUsingAccount = objMailAccount
           objForwardMail.Send
        End If
    Next
End Sub

3. Dále ukončete editor VBA.
4. Poté klikněte na „Pravidla“> „Spravovat pravidla a upozornění“ na kartě „Domovská stránka“.
5. Poté v novém dialogovém okně stiskněte „Nové pravidlo“.
6. Poté se zobrazí další dialogové okno, ve kterém musíte vybrat „Použít pravidlo na zprávy, které dostávám“ a kliknout na „Další“.
7. Dále na nové obrazovce musíte nastavit podmínku pravidla, například „s konkrétními slovy v předmětu“ a stisknout „Další“.
8. Na následující obrazovce musíte vybrat „spustit skript“ a vybrat nové makro, které jste právě přidali.
9. Poté můžete dokončit nastavení pravidla podle průvodců na obrazovce.
10. Od této chvíle pokaždé, když konkrétní e-mail přistane do konkrétní poštovní schránky, aplikace Outlook jej automaticky předá prostřednictvím jiného konkrétního e-mailového účtu.

Zachraňte data aplikace Outlook po poškození

Přestože Outlook poskytuje množství funkcí, stále nemůže být bez chyb a poškození. Pokud váš Outlook havaruje náhle, je velká šance, že může dojít k poškození datového souboru aplikace Outlook. V té době dokonce i vestavěné Oprava aplikace Outlook nástroj Scanpst vám nedokáže pomoci. Nemáte jinou možnost, než využít impozantního externího nástroje, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com