Kā automātiski pārsūtīt konkrētus ienākošos e-pastus, izmantojot jūsu Outlook citu kontu

Daži lietotāji programmā Outlook ir konfigurējuši vairākus e-pasta kontus un iestatījuši vienu kā noklusējuma kontu. Bet viņi arī vēlas, lai Outlook automātiski pārsūtītu konkrētus ienākošos e-pastus, izmantojot citu kontu. Outlook nav šādas funkcijas, tāpēc to var realizēt tikai ar šajā rakstā kopīgoto VBA kodu.

Piemēram, programmā Outlook esat iestatījis divus POP3 e-pasta kontus un kā noklusējuma kontu iestatījāt 1. kontu. Tādējādi visi ienākošie e-pasta ziņojumi tiks saglabāti 1. konta Outlook failā. Jūs izveidojat Outlook kārtulu, lai automātiski pārsūtītu konkrētos ienākošos e-pastus kādam citam. Tagad jūs cerat, ka visa pasta pārsūtīšana tiek veikta, izmantojot citu e-pasta kontu, proti, 2. kontu. Tomēr Outlook kārtula nenodrošina šādu darbību. Tādējādi jums jāizmanto citas metodes, piemēram, šāds veids.

Automātiski pārsūtīt konkrētus ienākošos e-pastus, izmantojot citu kontu

1. Vispirms programmā Outlook piekļūstiet VBA redaktoram, izmantojot “Alt + F11”.
2. Pēc tam VBA redaktorā dīkstāves modulī ievietojiet šādu VBA kodu.

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. Pēc tam izejiet no VBA redaktora.
4. Pēc tam cilnē Sākums noklikšķiniet uz “Noteikumi”> “Pārvaldīt kārtulas un brīdinājumus”.
5. Pēc tam jaunajā dialoglodziņā nospiediet “Jauns noteikums”.
6. Pēc tam tiks parādīts vēl viens dialoglodziņš, kurā jums jāizvēlas “Lietot kārtulu saņemtajiem ziņojumiem” un noklikšķiniet uz “Tālāk”.
7. Pēc tam jaunajā ekrānā jums jāiestata kārtulas nosacījums, piemēram, “ar konkrētiem vārdiem priekšmetā” un jānospiež “Tālāk”.
8. Nākamajā ekrānā jums jāizvēlas “palaist skriptu” un jāizvēlas tikko pievienotā jaunā makro.
9. Pēc tam jūs varat pabeigt kārtulas iestatīšanu atbilstoši ekrānā redzamajiem vedņiem.
10. Turpmāk katru reizi, kad konkrēts e-pasts nonāk konkrētajā pastkastē, programma Outlook to automātiski pārsūtīs caur citu konkrētu e-pasta kontu.

Saglabāt Outlook datus pēc bojājumiem

Lai gan programma Outlook nodrošina daudz funkciju, tajā joprojām nevar būt kļūdu un korupcijas. Ja jūsu Outlook pēkšņi avarē, pastāv lielas iespējas, ka jūsu Outlook datu fails var tikt bojāts. Tajā laikā pat iebūvētais Outlook remonts rīks Scanpst nevar jums palīdzēt. Jums nav citas izvēles, kā vien izmantot drausmīgu ārēju rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar