Specifieke inkomende e-mails automatisch doorsturen via een ander account in uw Outlook

Sommige gebruikers hebben meer dan één e-mailaccount in Outlook geconfigureerd en een als standaardaccount ingesteld. Maar ze willen ook dat Outlook specifieke inkomende e-mails automatisch doorstuurt via een ander account. Outlook heeft zo'n functie niet, dus het kan alleen worden gerealiseerd met de VBA-code die in dit artikel wordt gedeeld.

U hebt bijvoorbeeld twee POP3-e-mailaccounts in uw Outlook ingesteld en Account 1 ingesteld als het standaardaccount. Daardoor worden alle inkomende e-mails opgeslagen in het Outlook-bestand van Account 1. En u maakt een Outlook-regel om de specifieke inkomende e-mails automatisch door te sturen naar iemand anders. Nu hoop je dat alle e-mail doorsturen wordt uitgevoerd via een ander e-mailaccount, namelijk Account 2. De Outlook-regel voorziet echter niet in een dergelijke actie. U moet dus andere methoden gebruiken, zoals de volgende manier.

Specifieke inkomende e-mails automatisch doorsturen via een ander account

1. Om te beginnen opent u in Outlook de VBA-editor via "Alt + F11".
2. Plaats vervolgens in de VBA-editor de volgende VBA-code in een inactieve module.

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. Verlaat vervolgens de VBA-editor.
4. Klik vervolgens op “Regels”> “Regels en waarschuwingen beheren” op het tabblad “Home”.
5. Klik vervolgens in het nieuwe dialoogvenster op "Nieuwe regel".
6. Daarna wordt een ander dialoogvenster weergegeven, waarin u "Regel toepassen op berichten die ik ontvang" moet selecteren en op "Volgende" moet klikken.
7. Vervolgens moet u in het nieuwe scherm de regelvoorwaarde instellen, zoals "met specifieke woorden in het onderwerp" en op "Volgende" klikken.
8. In het volgende scherm moet je "run a script" selecteren en de nieuwe macro selecteren die je zojuist hebt toegevoegd.
9. Daarna kunt u het instellen van de regels voltooien volgens de wizards op het scherm.
10. Vanaf nu zal Outlook elke keer dat een specifieke e-mail in de specifieke mailbox terechtkomt, deze automatisch doorsturen via een ander specifiek e-mailaccount.

Herstel Outlook-gegevens na schade

Hoewel Outlook een groot aantal functies biedt, kan het nog steeds niet vrij zijn van fouten en corruptie. Als uw Outlook plotseling crasht, is de kans groot dat uw Outlook-gegevensbestand beschadigd is. Op dat moment zelfs de ingebouwde Outlook-reparatie tool, Scanpst, kan u niet helpen. Je hebt geen andere keuze dan hulp te gebruiken van een formidabel extern hulpmiddel, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com