Object Library . ' Kopen van 2 Klik op het menu " Invoegen " en klik op " Module "om een nieuwe code -module plaatsen . Typ het volgende om een nieuwe procedure om e-mail te maken:
Sub sendemail ( )
On Error GoTo Err_sendEmail :
Type 3 het volgende aan verklaren uw variabelen :
Dim oLookApp
Zoals Outlook.Application
Dim oLookMail
Zoals Outlook.MailItem
Dim dataToSend
als Koord
Type 4 de aanleiding om de Outlook- objecten te maken :
Set oLookApp = Nieuwe Outlook.Application
Set oLookMail = oLookApp.CreateItem ( 0 )
5
Typ
het volgende toe te voegen twee rijen gegevens : .
Range
( " A1 " ) Selecteer
ActiveCell.Value = " Test 1 data "
Range ( " A2 " ) op Twitter Select < br . >
ActiveCell.Value = " Test 2 data "
Type 6 het volgende om de gegevens op te slaan in een string variabele : .
Range
( " A1 " ) kiezen < . br
dataToSend = ActiveCell.Value
Range ( " A2 " ) >
Selecteer
dataToSend = " Rij 1 : "
& dataToSend & " .... Row 2 : " & ActiveCell.Value
Type 7 de volgende e-mail informatie te definiëren en op te sturen : .
met oLookMail
= " [email protected] " < br >
. Subject = " Excel "
. Body = dataToSend
. stuur
End met
Bewerk het e-mailadres en voer een geldig e-
Type 8 het volgende om de procedure te beëindigen en vangen eventuele fouten : .
Exit_sendEmail
:
Exit Sub
Err_sendEmail
:
MsgBox Err.Description
Resume Exit_sendEmail :
End Sub
Druk op " F5 "
9 om de procedure te lopen en stuur een e-mail van Excel.
