C
casper
Guest
Bonjour,
Comment faire pour envoyer un message avec outlook express en un seul clic.
Dans l'exemple ci-dessous, la fenètre d'outlook express s'affiche et il faut encore cliquer sur 'envoyer', ce que je voudrais éviter.
Merci
Sub mail
Dim adr As String
Dim Sujt As String
Dim Msg As String
adr = 'adresse@site.be'
Sujt = 'bonjour'
Msg = 'ça va ?'
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & '?subject=' & Sujt & '&Body=' & Msg & ''
End Sub
Comment faire pour envoyer un message avec outlook express en un seul clic.
Dans l'exemple ci-dessous, la fenètre d'outlook express s'affiche et il faut encore cliquer sur 'envoyer', ce que je voudrais éviter.
Merci
Sub mail
Dim adr As String
Dim Sujt As String
Dim Msg As String
adr = 'adresse@site.be'
Sujt = 'bonjour'
Msg = 'ça va ?'
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & '?subject=' & Sujt & '&Body=' & Msg & ''
End Sub