outlook express

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
 

Nikolaï

XLDnaute Nouveau
Bonjour

Vous pouvez peut-etre mettre un sendkeys apres l'ouverture de outlook express.
Regardez si il y a un shortcut pour envoyer (exemple: CTRL + E)
et si vous ne savez pas le faites le moi savoir ou regardez sur l'aide d'excel VBA pour sendkeys.

Christophe :eek:
 

Discussions similaires