In molti casi, un intervallo di contenuti specificato nel foglio di lavoro di Excel può essere utile nella comunicazione e-mail. In questo articolo, introdurremo un metodo per inviare un'e-mail con un intervallo specificato incollato nel corpo dell'e-mail direttamente in Excel.
Invia e-mail con un intervallo specificato incollato nel corpo dell'e-mail in Excel
Invia e-mail con un intervallo specificato incollato nel corpo dell'e-mail con uno strumento straordinario
Altri tutorial per l'invio di posta in Excel ...
Il seguente codice VBA può aiutarti a copiare un intervallo e incollarlo nel corpo di un messaggio di posta elettronica di Outlook direttamente in Excel. Si prega di fare quanto segue.
1. Nel foglio di lavoro contiene l'intervallo che è necessario copiare, premere il tasto altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. In apertura Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Referenze come mostrato nell'immagine sottostante.
3. Nel Riferimenti - VBAProject finestra di dialogo, trova e controlla il file Libreria di oggetti di Microsoft Outlook opzione, quindi fare clic su OK pulsante.
4. Clic inserire > Modulo, quindi copia e incolla il codice VBA sottostante nella finestra del modulo.
Codice VBA: invia e-mail con un intervallo specificato incollato nel corpo dell'e-mail in Excel
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = "happy.xuebi@163.com"
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Note:
5. premi il F5 chiave per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, selezionare l'intervallo che è necessario incollare nel corpo dell'e-mail, quindi fare clic su OK pulsante. Vedi screenshot:
6. Ora viene creata un'e-mail con il destinatario, l'oggetto, il corpo e l'intervallo di Excel selezionati specificati, fare clic su Invia pulsante per inviare questa email. Vedi screenshot mostrato.
Osservazioni:: Il codice VBA funziona solo quando utilizzi Outlook come programma di posta elettronica.
Se non utilizzi Outlook e desideri comunque inviare e-mail direttamente in Excel con un intervallo specificato di dati incollati all'interno, consiglio vivamente il Inviare emails utilità di Kutools for Excel per te. Con questa funzione, devi solo configurare il server in uscita di un indirizzo e-mail, quindi inviare e-mail in Excel direttamente tramite questo indirizzo e-mail in futuro.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. In primo luogo, è necessario preparare una mailing list con i campi necessari.
2. Selezionare l'intervallo in cui aggiungere i dati al corpo dell'email e premere il tasto Ctrl + C chiavi per copiarlo.
3. Selezionare l'intera mailing list (includi intestazioni), fare clic su Kutools Plus > Inviare emails. Vedi screenshot:
4. Quindi il file Inviare emails si apre la finestra di dialogo.
5. Quindi il file Impostazioni server in uscita (SMTP) - Nuovo schema si apre la finestra di dialogo. Si prega di inserire l'indirizzo e-mail con le impostazioni del server, specificare una cartella in cui salvare tutte le e-mail inviate dopo aver controllato il file Salva le email inviate a casella, quindi fare clic su OK pulsante per salvare le impostazioni.
6. Quando ritorna al file Inviare emails finestra di dialogo, fare clic su Invia pulsante per inviare l'email.
D'ora in poi, puoi inviare e-mail con questa funzione direttamente in Excel.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Invia e-mail agli indirizzi e-mail specificati nelle celle in Excel
Supponendo che tu abbia un elenco di indirizzi e-mail e desideri inviare messaggi e-mail a questi indirizzi in blocco direttamente in Excel. Come ottenerlo? Questo articolo ti mostrerà i metodi per inviare e-mail a più indirizzi e-mail specificati nelle celle in Excel.
Inserisci la firma di Outlook durante l'invio di e-mail in Excel
Supponendo che tu voglia inviare un'e-mail direttamente in Excel, come puoi aggiungere la firma predefinita di Outlook nell'e-mail? Questo articolo fornisce due metodi per aiutarti ad aggiungere la firma di Outlook quando invii messaggi di posta elettronica in Excel.
Invia e-mail con più allegati allegati in Excel
Questo articolo parla dell'invio di un'e-mail tramite Outlook con più allegati allegati in Excel.
Invia e-mail se la data di scadenza è stata rispettata in Excel
Ad esempio, se la data di scadenza nella colonna C è inferiore o uguale a 7 giorni (la data corrente è 2017/9/13), inviare un promemoria e-mail al destinatario specificato nella colonna A con il contenuto specificato nella colonna B. Procedura raggiungerlo? Questo articolo fornirà un metodo VBA per affrontarlo in dettaglio.
Invia automaticamente e-mail in base al valore della cella in Excel
Supponendo di voler inviare un'e-mail tramite Outlook a un determinato destinatario in base a un valore di cella specificato in Excel. Ad esempio, quando il valore della cella D7 in un foglio di lavoro è maggiore di 200, viene creata automaticamente un'e-mail. Questo articolo introduce un metodo VBA per risolvere rapidamente questo problema.
