Come selezionare automaticamente firme diverse per destinatari diversi nelle e-mail di Outlook

Molti utenti sperano che Outlook possa selezionare automaticamente le diverse firme per i diversi destinatari nelle e-mail. Pertanto, questo articolo insegnerà come realizzarlo tramite VBA.

Per impostazione predefinita, Outlook ti consente solo di inserire automaticamente la firma variabile in nuove e-mail, risposte e inoltri. Tuttavia, molte persone sperano persino che Outlook possa selezionare automaticamente le diverse firme per i diversi destinatari. Sfortunatamente, Outlook non fornisce una funzionalità così diretta. Pertanto, devi cercare altri modi, come eventuali componenti aggiuntivi di terze parti o codice VBA. Ora, di seguito, ti sveleremo un pezzo di codice VBA, che può aiutarti a realizzarlo come un gioco da ragazzi.

Selezione automatica di firme diverse per destinatari diversi

1. Per iniziare, è necessario avviare il programma Outlook.
2. Quindi faresti meglio a disabilitare la funzione di inserimento automatico della firma.

• Innanzitutto, vai al menu "File" e seleziona "Opzioni".
• Nella finestra "Opzioni di Outlook", passa alla scheda "Posta".
• Quindi trova e fai clic sul pulsante "Firme".
• Successivamente nella finestra di dialogo popup, imposta "(nessuno)" sia in "Nuovi messaggi" che in "Risposte/Inoltri".
• Successivamente, fai clic su una serie di "OK" per salvare le modifiche.

3. Successivamente, puoi tornare alla finestra principale di Outlook e premere i tasti "Alt + F11".
4. Successivamente, nella finestra "Microsoft Visual Basic for Applications", trova e apri il progetto "ThisOutlookSession".
5. Successivamente, copia e incolla il seguente codice VBA in questo progetto.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim strRecipientAddress As String
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strSignature As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
       End If
    Else
       strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
    End If
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

6. Successivamente, dovresti firmare questo codice.
7. Modificare successivamente le impostazioni delle macro di Outlook per consentire le macro firmate.
8. D'ora in poi, ogni volta che si fa clic sul pulsante "Invia" per inviare un'e-mail, Outlook identificherà il destinatario e inserirà automaticamente la firma corrispondente alla fine del corpo dell'e-mail.

Fai attenzione alle macro dannose nascoste nelle e-mail in arrivo

Al giorno d'oggi i virus sono diventati molto maturi e potenti. Li mascherano sempre come cose innocue nell'e-mail. Pertanto, ora che intendi utilizzare le macro in Outlook, dovresti aumentare la vigilanza contro le macro dannose. In caso contrario, i tuoi dati PST saranno tenuti a rischio. Se PST viene corrotto, farai del tuo meglio per farlo recuperare PST dati. In questo caso, si suggerisce di applicare uno strumento potente, come ad esempio 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 correzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com