Kaip automatiškai persiųsti konkrečius gaunamus el. laiškus naudodami kitą paskyrą „Outlook“.

Kai kurie vartotojai programoje „Outlook“ sukonfigūravo daugiau nei vieną el. pašto paskyrą ir vieną nustatė kaip numatytąją paskyrą. Tačiau jie taip pat nori, kad „Outlook“ automatiškai peradresuotų konkrečius gaunamus el. laiškus per kitą paskyrą. „Outlook“ tokios funkcijos neturi, todėl ją galima realizuoti tik naudojant šiame straipsnyje bendrinamą VBA kodą.

Pavyzdžiui, „Outlook“ nustatėte dvi POP3 el. pašto paskyras ir 1 paskyrą nustatėte kaip numatytąją paskyrą. Tokiu būdu visi gaunami el. laiškai būtų išsaugoti 1 paskyros „Outlook“ faile. Jūs sukuriate „Outlook“ taisyklę, kuri automatiškai persiunčia konkrečius gaunamus el. laiškus kam nors kitam. Dabar tikitės, kad visas laiškų persiuntimas bus vykdomas per kitą el. pašto paskyrą, būtent 2 paskyrą. Tačiau „Outlook“ taisyklė nenumato tokio veiksmo. Taigi, jūs turite naudoti kitus metodus, pavyzdžiui, šį būdą.

Automatiškai persiųskite konkrečius gaunamus el. laiškus naudodami kitą paskyrą

1. Norėdami pradėti, programoje „Outlook“ pasiekite VBA redaktorių naudodami „Alt + F11“.
2. Tada VBA redaktoriuje įdėkite šį VBA kodą į tuščiosios eigos modulį.

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. Tada išeikite iš VBA redaktoriaus.
4. Tada skirtuke „Pagrindinis“ spustelėkite „Taisyklės“ > „Tvarkyti taisykles ir įspėjimus“.
5. Tada naujame dialogo lange paspauskite „Nauja taisyklė“.
6. Po to pasirodys kitas dialogo langas, kuriame turėsite pasirinkti „Taikyti taisyklę gautiems pranešimams“ ir spustelėti „Kitas“.
7. Tada naujame ekrane turite nustatyti taisyklės sąlygą, pvz., „su konkrečiais žodžiais temoje“ ir paspauskite „Kitas“.
8. Kitame ekrane turite pasirinkti „paleisti scenarijų“ ir pasirinkti naują makrokomandą, kurią ką tik pridėjote.
9. Po to galite užbaigti taisyklės sąranką pagal ekrane rodomus vedlius.
10. Nuo šiol kiekvieną kartą, kai konkretus el. laiškas patenka į konkrečią pašto dėžutę, „Outlook“ automatiškai persiųs jį per kitą konkrečią el. pašto paskyrą.

Išsaugokite „Outlook“ duomenis po žalos

Nors „Outlook“ teikia daugybę funkcijų, ji vis tiek negali būti be klaidų ir sugadinimo. Jei „Outlook“ staiga sugenda, yra didelė tikimybė, kad „Outlook“ duomenų failas gali būti sugadintas. Tuo metu net įmontuotas „Outlook“ taisymas įrankis, Scanpst, negali jums padėti. Neturite kitos išeities, kaip tik pasinaudoti didžiuliu išoriniu įrankiu, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com