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 : digitare quanto segue per dichiarare le variabili : Dim oLookApp Come Outlook.Application Dim oLookMail Come Outlook.MailItem Dim dataToSend As String 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 " 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 digitare quanto segue per definire le informazioni e-mail e inviarlo: . oLookMail Per = " [email protected] " . Oggetto = "Email Excel" . del corpo = dataToSend . inviare End With Modifica l' indirizzo email e immettere un indirizzo e-mail di lavoro digitare quanto segue per terminare la procedura e catturare eventuali errori : . Exit_sendEmail : Exit Sub
3
4
6
7
8
Informazioni correlate
software © www.354353.com