Préparer un mail avec Outlook

Bonjour Patrick EVEN,
Patrick EVEN a écrit :

Bonjour,

En VBA, pour préparer un mail avec Outlook Express,
j'ai écrit la commande suivante :

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & EMail & "?subject=" & Subject & "&Body=" & Msg & ""

Quel est l'équivalent pour Oulook 2003 ?

Utiliser COM. Un petit bout de code repiqué sur mpfe :

Sub envoiEmail()
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "o_riss@hotmail.com"
myItem.Subject = "SujetMail"
myItem.Body = "Hello'
myItem.Send
Set ol = Nothing
End Sub


--
Cordialement,

Jacques.

Merci Jacques.
Je vais essayer.

Cordialement,

Patrick EVEN


"Jacques93" <jacques@Nospam> a écrit dans le message de news:
%23SxRDVgFGHA.2064@TK2MSFTNGP09.phx.gbl...

Bonjour Patrick EVEN,
Patrick EVEN a écrit :

Bonjour,

En VBA, pour préparer un mail avec Outlook Express,
j'ai écrit la commande suivante :

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & EMail & "?subject=" & Subject & "&Body=" & Msg & ""

Quel est l'équivalent pour Oulook 2003 ?

Utiliser COM. Un petit bout de code repiqué sur mpfe :

Sub envoiEmail()
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "o_riss@hotmail.com"
myItem.Subject = "SujetMail"
myItem.Body = "Hello'
myItem.Send
Set ol = Nothing
End Sub


--
Cordialement,

Jacques.