Sélectionnez le rapport que vous souhaitez envoyer au destinataire. Vous sélectionnez un rapport en utilisant le code suivant:
Réglez theReport = db.OpenRecordset ( "Sélectionnez theReport du rapport où id = 2")
Le code ci-dessus récupère un rapport avec l'ID 2.
Créer un objet de courriel. L'objet de messagerie est configuré pour une application Microsoft Outlook. Le code suivant crée un objet de courrier électronique utilisé pour envoyer le rapport via Outlook:
Régler app = New Outlook.Application
Set email = app.CreateItem ()
Définissez les propriétés de courriel, y compris l'objet, le corps et l'accès rapport attachement. Le code suivant définit les propriétés de votre email visibles à l'adresse e-mail:
email.subject = "rapport de la matinée pour 1/1/2010"
email.Recipients.Add "[email protected]"
email.Body = "S'il vous plaît voir votre rapport ci-joint"
email.Attachments.Add theReport, OlByValue, 1, "Rapport Matin"
Envoyer l'e-mail et fermer les objets. Fermeture objets libère des ressources de l'ordinateur, y compris l'espace mémoire. Le suivant finalise votre code de rapport d'accès:
email.Send
Set email = Nothing
Régler app = Nothing