Come inoltrare automaticamente e-mail in arrivo specifiche tramite un account diverso in Outlook

Alcuni utenti hanno configurato più di un account di posta elettronica in Outlook e ne hanno impostato uno come account predefinito. Ma desiderano anche che Outlook inoltri automaticamente e-mail in arrivo specifiche tramite un altro account. Outlook non ha tale funzione, quindi può essere realizzata solo con il codice VBA condiviso in questo articolo.

Ad esempio, hai impostato due account di posta elettronica POP3 in Outlook e hai impostato Account 1 come account predefinito. In tal modo, tutte le e-mail in arrivo verrebbero salvate nel file di Outlook dell'Account 1. E crei una regola di Outlook per inoltrare automaticamente le e-mail in arrivo specifiche a qualcun altro. Ora, ciò che speri è che tutto l'inoltro della posta venga eseguito tramite un altro account di posta elettronica, vale a dire l'Account 2. Tuttavia, la regola di Outlook non prevede tale azione. Pertanto, devi utilizzare altri metodi, come il modo seguente.

Inoltro automatico di e-mail in arrivo specifiche tramite un account diverso

1. Per cominciare, in Outlook, accedi all'editor VBA tramite "Alt + F11".
2. Quindi, nell'editor VBA, inserisci il seguente codice VBA in un modulo inattivo.

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. Quindi, esci dall'editor VBA.
4. Successivamente, fai clic su "Regole" > "Gestisci regole e avvisi" nella scheda "Home".
5. Quindi, nella nuova finestra di dialogo, fai clic su "Nuova regola".
6. Successivamente, verrà visualizzata un'altra finestra di dialogo, in cui è necessario selezionare "Applica regola ai messaggi che ricevo" e fare clic su "Avanti".
7. Successivamente, nella nuova schermata, devi impostare la condizione della regola, come "con parole specifiche nell'oggetto" e premere "Avanti".
8. Nella schermata successiva, devi selezionare "esegui uno script" e selezionare la nuova macro che hai appena aggiunto.
9. Successivamente, puoi completare l'impostazione della regola in base alle procedure guidate sullo schermo.
10. D'ora in poi, ogni volta che un'e-mail specifica arriva nella casella di posta specifica, Outlook la inoltrerà automaticamente tramite un altro account e-mail specifico.

Salvataggio dei dati di Outlook dopo il danno

Sebbene Outlook fornisca una quantità di funzioni, non può ancora essere esente da errori e danneggiamenti. Se il tuo Outlook si blocca improvvisamente, c'è una cattiva possibilità che il tuo file di dati di Outlook possa essere danneggiato. A quel tempo, anche l'integrato Riparazione di Outlook strumento, Scanpst, non è in grado di aiutarti. Non hai altra alternativa che prendere l'aiuto di un formidabile strumento esterno, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com