ludolitaliano | Une procédure VBA qui ouvre outlook automatiquement, remplit les champs; vous n'avez plus qu'à appuyer sur "envoi".
Code :
- Public Sub EnvoiMail(strEmail As String, strObj As String, strMsg As String, blnEdit As Boolean)
- 'Développeur VB : P-L. HERLEMONT 12/01/04
- 'il ne faut pas oublier de cocher la reference : Microsoft outlook 10.0 Object Library
- 'ou : Microsoft outlook 9.0 Object Library
-
- ' Entrée : strEmail <- Adresse e-mail du destinataire
- ' strObj <- Objet du courrier
- ' strMsg <- Corps du message
- ' blnEdit <- True pour pouvoir modifier le courrier avant envoi, False pour expédier le courrier directement.
-
- On Error Resume Next
-
- Dim appOutlook As New Outlook.Application
- Dim oEmail As MailItem
-
- Set myOlApp = CreateObject("Outlook.Application" )
- Set oEmail = myOlApp.CreateItem(olMailItem)
-
- DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
- End Sub
|
Utilisation :
Code :
- Sub TestMail()
- Call EnvoiMail("Marcel.Dupond@free.fr", "Sujet du mail.", "Corps du mail", True)
- End Sub
|
|
