L'invio di una e-ail da Microsoft Office Excel utilizzando Visual Basic consente di applicazioni (VBA) risparmiare tempo quando avete bisogno di e-mail dati dal foglio di lavoro. Un approccio è quello di utilizzare il sistema di gestione di posta elettronica di Microsoft Outlook per inviare il tuo indirizzo email da Excel. In Excel, è possibile utilizzare VBA per automatizzare le attività manuali come l'invio di un'e-mail. Con VBA è possibile utilizzare la libreria di oggetti di Microsoft Outlook per automatizzare le funzioni di posta elettronica quali la creazione e l'invio di e-mail.

Istruzioni

1

Avviare Excel e fare clic sulla scheda "Sviluppatore" Click "Visual Basic" per aprire la finestra di Visual Basic di Microsoft. Fare clic sul menu "Strumenti" e fare clic su "Riferimenti". Scorrere verso il basso la casella di riepilogo e selezionare la casella accanto a "Microsoft Outlook < numero versione > Object Library".

2

Fare clic sul menu "Inserisci" e scegliere "Modulo" per inserire un nuovo modulo di codice. Digitare il comando seguente per creare una nuova procedura per l'invio di e-mail:

Sub sendEmail()

Su errore GoTo Err_sendEmail:

3

Digitare quanto segue per dichiarare le variabili:

Dim oLookApp As Outlook.Application

Dim oLookMail As Outlook.MailItem

Dim dataToSend As String4

Digitare il comando seguente per creare gli oggetti di Outlook:

Set oLookApp = New Outlook.Application

Set oLookMail = oLookApp.CreateItem(0)5

Digitare il comando seguente per aggiungere due righe di dati:

Range("A1").Select

ActiveCell.Value = "Test 1 data"

Range("A2").Select

ActiveCell.Value = "Test 2 data"6

Digitare il comando seguente per salvare i dati in una variabile stringa:

Range("A1").Select

dataToSend = ActiveCell.Value

Range("A2").Select

dataToSend = "Row 1:" & dataToSend & "....Row 2:" & ActiveCell.Value7

Digitare quanto segue per definire le informazioni di posta elettronica e inviarlo:

With oLookMail

.To = "[email protected]"

.Subject = "Email Excel"

.Body = dataToSend

.send

Terminare con

Modificare l'indirizzo di posta elettronica e immettere un indirizzo e-mail di lavoro.

8

Digitare il comando seguente per terminare la procedura e catturare gli eventuali errori:

Exit_sendEmail:

Exit Sub

Err_sendEmail:

MsgBox Err.Description

Resume Exit_sendEmail:

End Sub

9

Premere "F5" per eseguire la procedura e inviare un'email da Excel.