Hur man använder Excel för att E

Skicka ett e - ail från Microsoft Office Excel med hjälp av Visual Basic for Applications ( VBA ) kan spara tid när du behöver e-data från kalkylbladet . Ett tillvägagångssätt är att använda Microsoft Outlook systemet e-förvaltning för att skicka e-post från Excel . I Excel kan du använda VBA för att automatisera manuella uppgifter som att skicka ett mail . Med VBA kan du använda Microsoft Outlook Object Library för att automatisera e- funktioner som att skapa och skicka e-post . Instruktioner
1

Starta Excel och klicka på " Utvecklare " fliken . Klicka på " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Verktyg " -menyn och klicka på " Referenser . " Bläddra nedåt i listan och markera rutan bredvid " Microsoft Outlook Object Library . "
2

Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kod modul . Skriv följande för att skapa ett nytt förfarande för att skicka e-post :

Sub sendemail ( ) katalog

On Error GoTo Err_sendEmail : Addera 3

Skriv följande för att deklarera dina variabler :

Dim oLookApp Som Outlook.Application

Dim oLookMail Som Outlook.MailItem

Dim dataToSend As String
4

Skriv efter att skapa de Outlook objekt :

Set oLookApp = Ny Outlook.Application

Set oLookMail = oLookApp.CreateItem ( 0 )
5

Skriv följande för att lägga till två rader med data : .

Range ( " A1 " ) Välj

ActiveCell.Value = " Test 1 data "

Range ( " A2 " ) Select

ActiveCell.Value = " Test 2 uppgifter "
6

Skriv följande för att spara data i en sträng variabel : .

Range ( " A1 " ) Välj < . br >

dataToSend = ActiveCell.Value

Range ( " A2 " ) Välj

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

Skriv följande för att definiera e-post och skicka det : .

oLookMail

= " someemailaddress@domain.com "

. Ämne = " e-post Excel "

. Body = dataToSend

. skicka

End With

Redigera e-postadressen och ange en Mottagarens e-postadress
8

Skriv följande för att avsluta förfarandet och fånga eventuella fel : .

Exit_sendEmail :

Exit Sub

Err_sendEmail :

MsgBox Err.Description

Resume Exit_sendEmail :

End Sub
9

Tryck " F5 " för att köra proceduren och skicka ett e-postmeddelande från Excel . Addera