l’envoi d’un message Outlook peut s’effectuer par programmation Visual
Basic en utilisant l’ole automation, c’est à dire en pilotant Outlook à
partir d’Access.
Pour cela, il faut suivre le pas à pas suivant.
Dans un formulaire, créer une zone de texte nommée message et un bouton
nommé envoi.
Afficher les propriétés du bouton et sur l’événement sur clic choisir
le générateur de code.
Aller dans le menu Outils Références et cocher la référence Microsoft
Outlook 8.0 Object Library.
Fermer cette fenêtre en cliquant sur le bouton OK.
Tapez la procédure suivante :
Private Sub envoi_Click()
Dim Envol As New Outlook.Application
Dim Env As MailItem
’ Création d’un objet de type message
Set Env = Envol.CreateItem(olMailItem)