D
David
Guest
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+
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+