Ako automaticky preposielať konkrétne prichádzajúce e-maily prostredníctvom iného účtu v programe Outlook

Niektorí používatelia nakonfigurovali v Outlooku viac ako jeden e-mailový účet a jeden nastavili ako predvolený účet. Prajú si však tiež, aby program Outlook automaticky preposielal konkrétne prichádzajúce e-maily prostredníctvom iného účtu. Outlook takúto funkciu nemá, takže ju možno realizovať iba pomocou kódu VBA zdieľaného v tomto článku.

Napríklad ste vo svojom Outlooku nastavili dva e-mailové účty POP3 a ako predvolený účet ste nastavili Účet 1. Týmto by sa všetky prichádzajúce e-maily uložili do súboru programu Outlook v účte 1. A vytvoríte pravidlo programu Outlook na automatické preposielanie konkrétnych prichádzajúcich e-mailov inej osobe. Teraz dúfate, že všetky preposielanie pošty sa vykonáva prostredníctvom iného e-mailového účtu, konkrétne účtu 2. Pravidlo programu Outlook však takúto akciu neposkytuje. Musíte teda použiť iné metódy, napríklad nasledujúcim spôsobom.

Automatické preposielanie konkrétnych prichádzajúcich e-mailov prostredníctvom iného účtu

1. Najskôr v Outlooku otvorte editor VBA pomocou kombinácie klávesov „Alt + F11“.
2. Potom v editore VBA vložte nasledujúci 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. Ďalej ukončite editor VBA.
4. Následne kliknite na položky „Pravidlá“> „Spravovať pravidlá a upozornenia“ na karte „Domov“.
5. Potom v novom dialógovom okne stlačte „Nové pravidlo“.
6. Potom sa zobrazí ďalšie dialógové okno, v ktorom musíte zvoliť možnosť „Použiť pravidlo pre správy, ktoré dostávam“ a kliknúť na „Ďalej“.
7. Ďalej na novej obrazovke musíte nastaviť podmienku pravidla, napríklad „s konkrétnymi slovami v predmete“ a stlačiť „Ďalej“.
8. Na nasledujúcej obrazovke musíte zvoliť možnosť „spustiť skript“ a zvoliť nové makro, ktoré ste práve pridali.
9. Potom môžete dokončiť nastavenie pravidla podľa sprievodcov na obrazovke.
10. Odteraz bude program Outlook vždy, keď konkrétny e-mail pristane v konkrétnej poštovej schránke, automaticky preposielať prostredníctvom iného konkrétneho e-mailového účtu.

Záchrana dát Outlooku po poškodení

Aj keď program Outlook poskytuje množstvo funkcií, stále nemôže byť bez chýb a poškodenia. Ak váš program Outlook náhle zlyhá, existuje veľká pravdepodobnosť poškodenia dátového súboru programu Outlook. V tom čase dokonca zabudované Oprava Outlook nástroj Scanpst, nedokáže vám pomôcť. Nemáte inú možnosť, ako využiť impozantný externý nástroj, ako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S