Création d'un programme de gestion de courrier électronique à l'intérieur de votre base de données Microsoft Access peut faire votre demande d'accès plus précieux et plus dynamique. Dans VBA, vous pouvez utiliser la bibliothèque d'objets Microsoft Outlook pour créer email et les dossiers de courrier électronique d'accès à Microsoft Outlook. La bibliothèque vous permet de créer et envoyer par programmation un e-mail sans avoir à ouvrir Outlook. Utilisez cette bibliothèque pour envoyer des emails automatiquement pour les utilisateurs avec des informations de base de données qui est important pour eux . Instructions
1

Cliquez sur l'onglet "Outils de base de données " , cliquez sur " Visual Basic", puis cliquez sur le menu "Insertion " . Cliquez sur " Module " pour insérer un nouveau module de code VBA.
2

Cliquez sur le menu " Outils " et cliquez sur "Références" . Cochez la case à côté de " Microsoft Outlook 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