envoi mail (VBA) avec outlook express

envoi mail (VBA) avec outlook express - VB/VBA/VBS - Programmation

Marsh Posté le 24-03-2004 à 11:37:25    

en sachant que ce n'est pas ma messagerie par défaut.

Reply

Marsh Posté le 24-03-2004 à 11:37:25   

Reply

Marsh Posté le 26-03-2004 à 15:42:10    

Une procédure VBA qui ouvre outlook automatiquement, remplit les champs; vous n'avez plus qu'à appuyer sur "envoi".
 

Code :
  1. Public Sub EnvoiMail(strEmail As String, strObj As String, strMsg As String, blnEdit As Boolean)
  3.     'Développeur VB : P-L. HERLEMONT 12/01/04
  5.     'il ne faut pas oublier de cocher la reference : Microsoft outlook 10.0 Object Library
  6.     'ou : Microsoft outlook 9.0 Object Library
  7.    
  8.     ' Entrée : strEmail <- Adresse e-mail du destinataire
  9.     ' strObj <- Objet du courrier
  10.     ' strMsg <- Corps du message
  11.     ' blnEdit <- True pour pouvoir modifier le courrier avant envoi, False pour expédier le courrier directement.
  12.    
  13.     On Error Resume Next
  14.    
  15.     Dim appOutlook As New Outlook.Application
  16.     Dim oEmail As MailItem
  17.    
  18.     Set myOlApp = CreateObject("Outlook.Application" )
  19.     Set oEmail = myOlApp.CreateItem(olMailItem)
  20.    
  21.     DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
  23. End Sub


 
Utilisation :  
 

Code :
  1. Sub TestMail()
  2.     Call EnvoiMail("Marcel.Dupond@free.fr", "Sujet du mail.", "Corps du mail", True)
  3. End Sub

Reply

Marsh Posté le 07-07-2004 à 15:31:34    

ok mais ça c outlook...
 
en exécutant ce code sur une machine ne disposant pas d'outlook mais uniquement d'outlook express.. ça marchera ?
est-ce qu'on aura pas un message du genre "référence manquante" ??

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed