Tester si Outlook est ouvert en VBA

Merci ça marche en modifiant lègérement ton code. Merci beaucoup.

'
' Vérification de l'ouverture de la messagerie
'
Set Appli = CreateObject("Outlook.Application")
'
If Appli.Explorers.Count > 0 Then GoTo OutLookEstDemarrer
MsgBox "Vous devez démarrer votre messagerie : Maintenant !", vbExclamation, "Action à faire..."
GoTo Fin
'
' On peut commencer l'enregistrement
'
OutLookEstDemarrer:

Bonjour,

Je cherchais justement à tester l'ouverture d'outlook, ça m'a bien servi merci. Idem je fais une base de données de gestion de réclamations + constat d'anomalie, en gérant la communication automatique par mail des personnes concernées, sur ce qu'elles ont réalisé dans le process.

Au lieu de demander d'ouvrir outlook à l'user, tu peux juste faire un Call Shell("Outlook.exe", 1), mais tu as dû t'en douter déjà.

Voilà, vive l'entraite

Rip

voici le test que je pratique :

Set appli_outlook = Outlook.Application

If appli_outlook.Explorers.Count > 0 Then
    appli_outlook.SendOutlookMsg return_msg, SendTo, sCC, sBCC, Subject, BodyText, sAttachment
Else
    MsgBox "erreur envoi e_mail car outlook non chargé"
End If

Super merci!
Par contre je trouve que la fonction est longue à s'exécuter...

Anthony.

Set appli_outlook = Outlook.Application

if appli_outlook.activewindow is nothing then

MsgBox "erreur envoi e_mail car outlook non chargé"

end if

Voila