Senden Sie eine E -ail von Microsoft Office Excel mit Visual Basic für Applikationen (VBA) können Sie Zeit sparen , wenn Sie Daten aus Ihrem Arbeitsblatt mailen müssen . Ein Ansatz besteht darin, die Microsoft Outlook E-Mail -Management-System zu verwenden, um Ihre E-Mail aus Excel senden. In Excel können Sie mit VBA auf manuelle Aufgaben wie das Senden einer E-Mail zu automatisieren. Mit VBA können Sie die Microsoft Outlook Object Library zu E-Mail- Funktionen , wie das Erstellen und Senden von E-Mail zu automatisieren. Anleitung
1

Starten Sie Excel und klicken Sie auf die Registerkarte "Entwicklertools" . Klicken Sie auf " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen. Klicken Sie auf das Menü "Extras" und dann auf " Referenzen . " Blättern Sie in der Liste, und aktivieren Sie das Kontrollkästchen neben " Microsoft Outlook Object Library . "
2

Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einfügen . Geben Sie den folgenden , ein neues Verfahren zu senden erstellen :

Sub sendEmail ()

On Error GoTo Err_sendEmail :
3

Geben Sie den folgenden zu erklären Sie Ihre Variablen : Dim

oLookApp Wie Outlook.Application

Dim oLookMail Wie Outlook.MailItem

Dim dataToSend As String
4

Typ der nach , um die Outlook-Objekte erstellen :

Set oLookApp = New Outlook.Application

Set oLookMail = oLookApp.CreateItem (0)
5

Geben Sie den folgenden hinzufügen zwei Reihen von Daten: .

Range (" A1") auswählen

ActiveCell.Value = " Test 1 -Daten"

Range ( "A2" ) Select

ActiveCell.Value = " Test 2 Daten "
6

Geben Sie den folgenden , um die Daten in eine String-Variable speichern : .

Range (" A1") Wählen Sie < . br>

dataToSend = ActiveCell.Value

Range ( "A2" ) auswählen

dataToSend = " Zeile 1 :" & dataToSend & ".... Row 2 :" & ActiveCell.Value
7

Geben Sie die folgende E-Mail- Informationen zu definieren und zu schicken: .

oLookMail

= " someemailaddress@domain.com "

. Subject = "E-Mail Excel "

. Körperbau = dataToSend

. senden

End With

bearbeiten Sie die E-Mail -Adresse und geben Sie eine E-Mail- Adresse
8

Geben Sie den folgenden , um den Vorgang zu beenden und zu erfassen Fehler : .

Exit_sendEmail :

Exit Sub

Err_sendEmail :

MsgBox Err.Description

Lebenslauf Exit_sendEmail :

End Sub
9

Presse "F5 ", um die Prozedur ausführen und senden Sie eine E-Mail von Excel.