3 créer un nouveau sous procédure et de définir les objets Outlook en ajoutant ce qui suit code VBA :
Private Sub createEmail ()
Set outlookApp = CreateObject (" Outlook.Application " )
de myItem As Object
Set myItem = outlookApp.CreateItem ( olMailItem )
4
créer un nouvel élément de messagerie en ajoutant le code suivant :
myItem.Subject = " objet de l'email "
myItem.Body = " message "
myItem.To = " myname@myemail.com "
myItem.Send
5
Modifier l'étape précédente et entrez une adresse email valide s'attaquer à côté de " myItem.To " pour envoyer le courriel. Tapez " End Sub " pour mettre fin à la procédure et appuyez sur la touche "F5 " pour exécuter votre procédure et envoyer l'e-mail en utilisant Outlook.
6
lire des emails dans votre dossier Boîte de réception et de l'afficher dans la fenêtre immédiate en créant le sous procédure suivante :
Private Sub checkEmail ()
Set OLApp = CreateObject (" Outlook.Application " )
Set MAPIS = OLApp.GetNamespace ( " MAPI " ) Photos
Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )
Chaque MonCourriel En outlookFolder.Items
Debug.Print myMail.Subject
Debug.Print MonCourriel . Body
