Come inserire la firma di Outlook durante l'invio di e-mail in Excel?

Supponendo di voler inviare un'e-mail direttamente in Excel, come puoi aggiungere la firma di Outlook predefinita nell'e-mail? Questo articolo fornisce due metodi per aiutarti ad aggiungere la firma di Outlook quando invii e-mail in Excel.

Inserisci la firma nell'e-mail di Outlook quando invii tramite Excel VBA
Inserisci facilmente la firma di Outlook durante l'invio di e-mail in Excel con uno strumento straordinario
Altri tutorial per l'invio di posta in Excel ...

Inserisci la firma nell'e-mail di Outlook quando invii tramite Excel VBA

Ad esempio, c'è un elenco di indirizzi e-mail in un foglio di lavoro, per inviare e-mail a tutti questi indirizzi in Excel e aggiungere la firma di Outlook predefinita nelle e-mail. Si prega di applicare il codice VBA sottostante per ottenerlo.

1. Aprire il foglio di lavoro che contiene l'elenco di indirizzi e-mail a cui si desidera inviare un'e-mail, quindi premere il tasto altro + F11 chiavi.

2. In apertura Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo, e quindi copia il seguente VBA 2 nella finestra del codice del modulo.

3. Ora è necessario sostituire il file .Corpo linea in VBA 2 con il codice in VBA 1. Dopodiché, sposta la linea .Schermo sotto la linea Con xMailOut.

VBA 1: modello di invio di e-mail con la firma predefinita di Outlook in Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: invia e-mail agli indirizzi e-mail specificati nelle celle in Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Lo screenshot seguente può aiutarti a trovare facilmente le differenze dopo aver modificato il codice VBA.

4. premi il F5 chiave per eseguire il codice. Poi un Kutools for Excel si apre la casella di selezione, selezionare gli indirizzi e-mail a cui verranno inviate le e-mail, quindi fare clic su OK.

Quindi vengono create le e-mail. Puoi vedere la firma predefinita di Outlook aggiunta alla fine del corpo dell'e-mail.

Suggerimenti:

• 1. È possibile modificare il corpo dell'email nel codice VBA 1 in base alle proprie esigenze.
• 2. Dopo aver eseguito il codice, se viene visualizzata una finestra di dialogo di errore che avverte che il tipo definito dall'utente non è definito, chiudere questa finestra di dialogo e quindi fare clic su Strumenti > Riferimenti nel Microsoft Visual Basic, Applications Edition finestra. In apertura Riferimenti - VBAProject finestra, controlla il file Libreria di oggetti di Microsoft Outlook box e clicca OK. E poi esegui di nuovo il codice.
  

Inserisci facilmente la firma di Outlook durante l'invio di e-mail in Excel con uno strumento straordinario

Se sei un principiante in VBA, qui consiglio vivamente il Inviare emails utilità di Kutools for Excel per te. Con questa funzione, puoi inviare facilmente e-mail in base a determinati campi in Excel e aggiungere la firma di Outlook. Si prega di fare quanto segue.

In primo luogo, è necessario creare una mailing list con diversi campi su cui inviare le e-mail.

Puoi creare manualmente una mailing list in base alle tue esigenze o applicare la funzione Crea mailing list per farlo rapidamente.

1. Clic Kutools Plus > Crea mailing list.

2. Nel Crea mailing list finestra di dialogo, specificare i campi necessari, scegliere dove stampare l'elenco, quindi fare clic su OK pulsante.

3. Ora viene creato un esempio di mailing list. Poiché si tratta di un elenco di esempio, è necessario modificare i campi con determinati contenuti necessari. (sono consentite più righe)

4. Successivamente, seleziona l'intero elenco (includi le intestazioni), fai clic su Kutools Plus > Inviare emails.

5. Nel Inviare emails la finestra di dialogo:

• 5.1) Gli elementi nella mailing list selezionata vengono inseriti automaticamente nei campi corrispondenti;
• 5.2) Termina il corpo dell'email;
• 5.3) Verificare sia il file Invia email tramite Outlook e Usa le impostazioni della firma di Outlook scatole;
• 5.4) Fare clic su Invia pulsante. Vedi screenshot:

Ora vengono inviate le e-mail. E la firma predefinita di Outlook viene aggiunta alla fine del corpo dell'email.

Articoli correlati:

---

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

• Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Download gratuito... Acquista...