Sende en e - ail fra Microsoft Office Excel ved hjelp av Visual Basic for Applications ( VBA ) kan spare deg for tid når du trenger å sende data fra regnearket. En tilnærming er å bruke Microsoft Outlook e- styringssystem for å sende e-post fra Excel. I Excel kan du bruke VBA til å automatisere manuelle oppgaver som å sende en e-post . Med VBA kan du bruke Microsoft Outlook Object Library å automatisere e-postfunksjoner som å opprette og sende e-post . Instruksjoner
en

Launch Excel og klikk på " Utvikler " fanen . Klikk på " Visual Basic " for å åpne Microsoft Visual Basic Window . Klikk på " Verktøy"-menyen og klikk " Referanser . " Bla nedover i listen og merk av for " Microsoft Outlook Object Library. "
2

Klikk på " Insert"-menyen og klikk " Module" å sette inn en ny kode modul . Skriv inn følgende for å opprette en ny prosedyre for å sende e-post : en

Sub sendEmail ( )

On Error GoTo Err_sendEmail :
3

Skriv inn følgende til erklære variabler : en

Dim oLookApp Som Outlook.Application

Dim oLookMail Som Outlook.MailItem

Dim dataToSend As String
4

Skriv inn etter å skape Outlook objekter:

Set oLookApp = Ny Outlook.Application

Set oLookMail = oLookApp.CreateItem ( 0 )
5

Skriv inn følgende for å legge til to rader med data: .

Range ( "A1" ) Velg

ActiveCell.Value = "Test en data "

Range (" A2" ) Velg

ActiveCell.Value = "Test 2 data "
6

Skriv inn følgende for å lagre dataene i en streng variabel: .

Range (" A1 ") Velg < . br >

dataToSend = ActiveCell.Value

Range (" A2" ) Velg

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

Skriv inn følgende for å definere e-post informasjon og sende den : .
p Med oLookMail

= " someemailaddress@domain.com "

. Emne = " e-post Excel "

. Body = dataToSend

. sende

End With

Rediger e-postadresse og skriv inn et riktig e-postadresse
8

Skriv inn følgende for å avslutte prosedyren og fange opp eventuelle feil : .

Exit_sendEmail : en

Exit Sub

Err_sendEmail :

MsgBox err.Description

Resume Exit_sendEmail : en

End Sub
9

Trykk " F5 " for å kjøre prosedyren og send en e-post fra Excel.