Come modificare automaticamente la firma in base ai destinatari in Outlook?

Per impostazione predefinita, Outlook ha una funzione incorporata che consente agli utenti di modificare automaticamente la firma durante l'invio di e-mail tramite diversi account di posta elettronica. Ma oltre a ciò, qui ti mostrerò il metodo per cambiare automaticamente la firma in base a diversi destinatari nel campo A in Outlook.

Cambia automaticamente la firma in base ai destinatari con il codice VBA

Cambia automaticamente la firma in base ai destinatari con il codice VBA

Seguire i passaggi seguenti per applicare firme diverse ai destinatari corrispondenti durante l'invio di e-mail in Outlook.

1. Innanzitutto, è necessario disabilitare la funzione di firma allegata automaticamente in Outlook. Fare clic su Compila il > Opzioni per aprire il Opzioni di Outlook finestra.

2. Nel Opzioni di Outlook finestra, selezionare posta nel riquadro di sinistra, quindi fare clic su firme nel pulsante Scrivi messaggi sezione. Vedi screenshot:

3. Nel Firme e articoli di cancelleria finestra di dialogo, vai al Scegli la firma predefinita sezione sotto il Firma e-mail scheda, seleziona un account di posta elettronica nel file Account email elenco a discesa, quindi scegliere (Nessuno) dal Nuovo messaggio ed Risposte / inoltri elenchi a discesa. Ripeti questi passaggi finché tutti gli account di posta elettronica non sono impostati su (Nessuno). Quindi fare clic su OK pulsante.

Note:: Puoi anche creare le firme necessarie in questo file Firme e articoli di cancelleria la finestra di dialogo.

4. Fare clic sul OK quando ritorna il Opzioni di Outlook finestra.

5. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

6. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook nel riquadro di sinistra per aprire la finestra del codice e la copia sotto il codice VBA nella finestra. Vedi screenshot:

Codice VBA: modifica automaticamente la firma in base ai destinatari in Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
    If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
        xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
    Else
        xRcpAddress = xRecipient.AddressEntry.Address
    End If
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
            Exit For
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
            Exit For
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
            Exit For
    End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
    xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    With xDoc.Application.Selection.Find
        .ClearFormatting
        .Text = xFindStr
        .Execute Forward:=True
    End With
    With xDoc.Application.Selection
        .MoveLeft wdCharacter, 2
        .InsertParagraphAfter
        .MoveDown Unit:=wdLine, Count:=1
    End With
Else
    With xDoc.Application.Selection
        .EndKey Unit:=wdStory, Extend:=wdMove
        .InsertParagraphAfter
        .MoveDown Unit:=wdLine, Count:=1
    End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub

Note:

• 1). Nel codice VBA, sostituire il "Indirizzo e-mail 1/2/3/4"Con determinati indirizzi email dei destinatari.
• 2). "aaa.htm""bbb.htm" e "ccc.htm" sono le firme specificate che invierai ai destinatari corrispondenti.
• 3). In questo caso, la firma "aaa"Verrà inviato a"Indirizzo e-mail 1", firma "bbb"Verrà inviato a"Indirizzo e-mail 2" e "Indirizzo e-mail 3", e "Indirizzo e-mail 4"Riceverà l'email incorporata con la firma"ccc". Si prega di modificarli in base alle proprie esigenze.
• 4). Se ci sono più destinatari in un'e-mail, il codice prende in considerazione solo il primo destinatario. In questo caso, gli altri destinatari riceveranno le email con la stessa firma del primo destinatario.

7. Quindi fare clic Strumenti > Riferimenti per andare al Referenze-Progetto la finestra di dialogo. Nella finestra di dialogo, controlla entrambi i file Libreria di oggetti di Microsoft Word e la Runtime di script Microsoft opzioni, quindi fare clic su OK pulsante, vedi screenshot:

8. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.

D'ora in poi, dopo aver composto un'e-mail e aver premuto il pulsante Invia, la firma corrispondente verrà automaticamente inserita alla fine del corpo dell'e-mail in base all'indirizzo e-mail del destinatario nel campo A.

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista