outlook express

[casper]

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ï]

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 😱