Outlook
thegrenouille
-
27 juin 2001 à 15:44
JeffLC Messages postés 73 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 20 février 2003 - 9 août 2002 à 12:58
JeffLC Messages postés 73 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 20 février 2003 - 9 août 2002 à 12:58
1 réponse
JeffLC
Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003
9 août 2002 à 12:58
9 août 2002 à 12:58
Il suffit de placer le code suivant
Private Sub LaunchMail()
Dim Olook As Outlook.Application
Dim Omail As MailItem
' On ouvre une instance d'outlook
Set Olook = New Outlook.Application
' On crée un objet Omail qui est un e-mail
Set Omail = Olook.CreateItem(olMailItem)
Omail.To = "Adresse ou doit être envoyé l'e-mail"
Omail.Subject = "Le champ sujet"
Omail.Body = "Le corps du message"
' .send envoie le mail si tu ne mets pas .send le message restera ouvert
Omail.Send
'On vide les objets ne pas le faire si tu n'as pas utilisé le .send
Set Olook = Nothing
Set Omail = Nothing
End Sub
Private Sub LaunchMail()
Dim Olook As Outlook.Application
Dim Omail As MailItem
' On ouvre une instance d'outlook
Set Olook = New Outlook.Application
' On crée un objet Omail qui est un e-mail
Set Omail = Olook.CreateItem(olMailItem)
Omail.To = "Adresse ou doit être envoyé l'e-mail"
Omail.Subject = "Le champ sujet"
Omail.Body = "Le corps du message"
' .send envoie le mail si tu ne mets pas .send le message restera ouvert
Omail.Send
'On vide les objets ne pas le faire si tu n'as pas utilisé le .send
Set Olook = Nothing
Set Omail = Nothing
End Sub
