Hvordan bruke Excel til e-post

June 26

Sende en e-ail fra Microsoft Office Excel ved hjelp av Visual Basic for Applications (VBA) kan du spare tid når du trenger å sende e-post data fra regnearket. En tilnærming er å bruke Microsoft Outlook e-post 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 objektbiblioteket for å automatisere e-postfunksjoner som å opprette og sende e-post.

Bruksanvisning

1 Start Excel, og klikk på "Utvikler" fanen. Klikk på "Visual Basic" for å åpne Microsoft Visual Basic Window. Klikk på "Verktøy" -menyen og klikk "Referanser". Rull nedover listen og merk av for "Microsoft Outlook <versjonsnummer> 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:

Sub sendEmail ()

På Error GoTo Err_sendEmail:

3 Skriv inn følgende å erklære variabler:

Dim oLookApp As Outlook.Application

Dim oLookMail Som Outlook.MailItem

Dim dataToSend As String

4 Skriv inn følgende for å opprette Outlook objekter:

Set oLookApp = New Outlook.Application

Sett oLookMail = oLookApp.CreateItem (0)

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

Range("A1").Select

ActiveCell.Value = "Test 1 data"

Range ( "A2"). Velg

ActiveCell.Value = "Test 2 data"

6 Skriv inn følgende for å lagre data i en streng variabel:

Range("A1").Select

dataToSend = ActiveCell.Value

Range ( "A2"). Velg

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

7 Skriv inn følgende for å definere e-postinformasjon og sende det:

With oLookMail

.For = "[email protected]"

.Subject = "E-post Excel"

.Body = DataToSend

.sende

End With

Rediger e-postadressen og angi en fungerende e-postadresse.

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

Exit_sendEmail:

Exit Sub

Err_sendEmail:

MsgBox Err.Description

Gjenoppta Exit_sendEmail:

End Sub

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