Object Library" und klicken Sie auf "OK".
3 Erstellen Sie eine neue Sub-Prozedur zu und definieren Sie die Outlook-Objekte , indem Sie folgende VBA-Code : private Sub
createEmail ()
Set outlookApp = CreateObject (" Outlook.Application " )
Dim myItem As Object
Set myItem = outlookApp.CreateItem ( olMailItem )
4
erstellen Sie eine neue E-Mail- Einzelteil, indem Sie den folgenden Code:
myItem.Subject = " E-Mail- Betreff"
myItem.Body = " Mail "
myItem.To = " myname@myemail.com "
myItem.Send
5
bearbeiten Sie die vorherigen Schritt und geben Sie eine gültige E-Mail- adressieren neben " myItem.To ", um die E-Mail zu senden. Typ "End Sub ", um den Vorgang zu beenden , und drücken Sie "F5" auf Ihrer Prozedur ausführen und senden Sie die E-Mails mit Outlook .
6
Lesen Sie E-Mail in Ihrem Posteingang Ordner und zeigt es in Ihrem Direkt-Fenster , indem Sie die folgende Sub-Prozedur : private Sub
checkEmail ()
Set olApp = CreateObject (" Outlook.Application " )
Set Mapis = OLApp.GetNamespace ( " MAPI " )
Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )
For Each myMail In outlookFolder.Items
Debug.Print myMail.Subject
Debug.Print myMail . Körper
Weiter myMail
End Sub
7
Presse "F5" , um den Vorgang auszuführen.