lien e-mail dans un userform

[David]

Salut le forum et bonne année

Je voudrais faire un lien pour consulter mes e-mail dans un userform.
j'ai presque touvé avec cette syntaxe:

*****************************

Sub Mail()
'consulter mes message depuis Outlook
On Error GoTo PasTrouve
Reponse = MsgBox("...Envoyez directement vos commentaires à l'auteur...", vbYesNo, "N'hésitez pas...")
If Reponse = vbYes Then
Shell "C:\Program Files\Outlook Express\msimn.exe"
End If
Exit Sub
PasTrouve:
MsgBox "Ne trouve pas Outloock...aucun message envoyé..."
End Sub

******************************
Outlook s'ouvre mais reste dans la barre des tâches sans s'afficher

donc je pense que ma syntaxe doit être fausse ou contient une erreur si quelqu'un a une solution
je suis preneur

merci
a+

 

[JMG]

bonjour david


c'est vrai que outlook s'affiche 1 coup sur 5
peu être qu'en jouant avec alt+tab pour basculer

SendKeys "%{TAB}"

à voir
amicalement
JMG

 

[David]

salut JMG

j'ai trouvé la solution il manquait un ",1"
après Shell "C:\Program Files\Outlook Express\msimn.exe"


*****************************

Sub Mail()
'consulter mes message depuis Outlook
On Error GoTo PasTrouve
Reponse = MsgBox("...Envoyez directement vos commentaires à l'auteur...", vbYesNo, "N'hésitez pas...")
If Reponse = vbYes Then
Shell "C:\Program Files\Outlook Express\msimn.exe" ,1
End If
Exit Sub
PasTrouve:
MsgBox "Ne trouve pas Outloock...aucun message envoyé..."
End Sub

******************************

a+

 

[Roland]

Salut à tous et à David en particulier

Svp Où as-tu trouvé les arguments à passer à Outlook

Merci d'avance Roland