Ben moi avec ce code ca marche :
Dim olapp As Object
On Error Resume Next
Set olapp = GetObject(, "Outlook.Application" )
If Err.Number Then
Err.Clear
Set olapp = CreateObject("Outlook.Application" )
If Err.Number Then
MsgBox "Can't open Outlook."
End If
End If
Set olMail = olapp.CreateItem(olMailItem)
olMail.To = "mail@mail.es"
olMail.Subject = ""
olMail.Body = " "
olMail.Display True ' ou olMail.Send
MsgBox "Email enviado", vbMsgBoxSetForeground
Set olMail = Nothing
Set olapp = Nothing
Message édité par Turk182 le 13-06-2002 à 12:29:11
---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook