Object Library " og klikk " OK" .
3 Opprett en ny sub prosedyre til og definere Outlook objekter ved å legge til følgende VBA -kode:
Private Sub createEmail ( )
Sett outlookApp = CreateObject ( " Outlook.Application ")
Dim myItem som objekt
Set myItem = outlookApp.CreateItem ( olMailItem )
4
Opprett en ny e- post ved å legge følgende kode:
myItem.Subject = " e- emne "
myItem.Body = " postmelding "
myItem.To = " myname@myemail.com "
myItem.Send
5
Rediger forrige trinn , og angi en gyldig e- ta ved siden av " myItem.To " for å sende e-posten. Skriv " End Sub " for å avslutte prosedyren og trykk " F5 " for å kjøre prosedyren og sende e-post med Outlook .
6
Les e-post i innboksen og vise den i vinduet som vises ved å skape følgende delprosedyre : en
Private Sub checkEmail ( )
Sett OLApp = CreateObject ( " Outlook.Application ")
Set MAPIs = OLApp.GetNamespace ( " MAPI ")
Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )
Hver mymail I outlookFolder.Items
Debug.Print myMail.Subject
Debug.Print mymail . Body
Neste mymail
End Sub
7
Trykk " F5 " for å utføre prosedyren.