sende en e- ail fra Microsoft Office Excel ved hjælp af Visual Basic for Applications ( VBA ) kan spare dig tid, når du har brug for at e-maile data fra regnearket. En metode er at bruge Microsoft Outlook e-mail management system til at sende din e-mail fra Excel. I Excel kan du bruge VBA til at automatisere manuelle opgaver såsom at sende en e-mail . Med VBA kan du bruge Microsoft Outlook Object Library til at automatisere email funktioner såsom oprettelse og sende e-mail . Instruktioner
1

Launch Excel , og klik på "Udvikler "-fanen . Klik på " Visual Basic " for at åbne Microsoft Visual Basic vindue. Klik på menuen "Funktioner" og klik på " Referencer". Rul ned på listen , og marker afkrydsningsfeltet ved siden af ​​" Microsoft Outlook Object Library ".
2

Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul . Skriv følgende for at oprette en ny procedure for at sende e-mail : Hej

Sub sendEmail ()

On Error GoTo Err_sendEmail :
3

Skriv følgende til erklære dine variabler : Hej

Dim oLookApp Som Outlook.Application

Dim oLookMail Som Outlook.MailItem

Dim dataToSend As String
4

Indtast efter at skabe Outlook objekter:

Set oLookApp = Ny Outlook.Application

Set oLookMail = oLookApp.CreateItem (0)
5

Skriv følgende for at tilføje to rækker af data :.

Range (" A1" ) Vælg

ActiveCell.Value = "Test 1 data "

Range (" A2 " ) Vælg < br . >

ActiveCell.Value = "Test 2 data "
6

Skriv følgende for at gemme data i en streng variabel : .

Range (" A1" ) Vælg < . br >

dataToSend = ActiveCell.Value

Range (" A2 " ) Vælg

dataToSend = " Række 1 : " & dataToSend & " .... Række 2 : " & ActiveCell.Value
7

Skriv følgende for at definere e-mail oplysninger og sende det : .

oLookMail

= " [email protected] " < br >

. Subject = "E-mail Excel "

. Krop = dataToSend

. sende

End With

Rediger e-mail- adresse og indtast et fungerende e-mail -adresse
8

Skriv følgende for at afslutte proceduren og fange eventuelle fejl : .

Exit_sendEmail : Hej

Exit Sub

Err_sendEmail :

MsgBox Err.Description

Resume Exit_sendEmail : Hej

End Sub
9

Tryk på " F5 " for at køre proceduren og sende en e-mail fra Excel.