Invio di un messaggio e- ail da Microsoft Office Excel utilizzando Visual Basic, Applications Edition (VBA ), è possibile risparmiare tempo quando è necessario inviare i dati dal foglio di lavoro. Un approccio è quello di utilizzare il sistema di gestione della posta elettronica di Microsoft Outlook per inviare una e-mail da Excel . In Excel è possibile utilizzare VBA per automatizzare le attività manuali come l'invio di una e-mail . Con il VBA è possibile utilizzare la libreria di oggetti Microsoft Outlook per automatizzare le funzioni di posta elettronica , come la creazione e l'invio di e-mail . Istruzioni
1

lancio di Excel e fare clic sulla scheda " sviluppatori" . Fare clic su " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fai clic sul menu "Strumenti " e clicca su "Riferimenti ". Scorrere verso il basso della casella di riepilogo e selezionare la casella accanto a " numero> Libreria oggetti di Microsoft Outlook

2 Fare clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice . Digitare quanto segue per creare una nuova procedura per l'invio e-mail :

Sub sendEmail ( ) per

On Error GoTo Err_sendEmail :
3

digitare quanto segue per dichiarare le variabili :

Dim oLookApp Come Outlook.Application

Dim oLookMail Come Outlook.MailItem

Dim dataToSend As String
4

Tipo l' seguendo per creare gli oggetti di Outlook :

oLookApp = New Outlook.Application

oLookMail = oLookApp.CreateItem ( 0 ) economici 5

digitare quanto segue per aggiungere due righe di dati : .

Range ( "A1" ) Selezionare

ActiveCell.Value = "Test 1 dati "

Range (" A2 " ) Select < br . >

ActiveCell.Value = "Test 2 dati "
6

digitare quanto segue per salvare i dati in una variabile stringa : .

Range (" A1 " ) Selezionare < . br

dataToSend = ActiveCell.Value

Gamma > ( " A2 ") Selezionare

dataToSend = " Riga 1 : " & dataToSend & " .... Riga 2 : " & ActiveCell.Value
7

digitare quanto segue per definire le informazioni e-mail e inviarlo: .

oLookMail

Per = " someemailaddress@domain.com " < br >

. Oggetto = "Email Excel"

. del corpo = dataToSend

. inviare

End With

Modifica l' indirizzo email e immettere un indirizzo e-mail di lavoro
8

digitare quanto segue per terminare la procedura e catturare eventuali errori : .

Exit_sendEmail :

Exit Sub