Rechercher : dans
Par :

Tester si Outlook est ouvert en VBA

Dernière réponse le 23 jui 2009 à 15:54:53 THYBOB, le 15 jun 2009 à 16:11:50 
 Signaler ce message aux modérateurs

Bonjour,
Je suis en train de développer un utilitaire qui devrai à terme gérer les Fiches d'Anomalies et les demandes de modification de ma boite. Je voudrais dés l'enregistrement d'une fiche d'anomalie envoyer un mail avec pièce jointe (Ca j'y arrive) Mon PB est que pour que mon mail parte il faut que Outlook soit ouvert. D'ou ma question : Comment tester si OutLook est ouvert ?

D'avance merci pour vos réponses,

Configuration: Windows 2000/Excel 2003

Meilleures réponses pour « Tester si Outlook est ouvert en VBA » dans :
Problème pour ouvrir les liens dans Outlook VoirSi Outlook est dans l'impossibilité d'ouvrir un lien hypertexte, ou si les liens dans les messages ouvrent l'explorateur sans charger la page Web, il suffit de suivre l'une des procédures suivantes : Méthode 1 Méthode 2 Méthode 3 Pour...
[Shell] Tester une variable numérique VoirTester une variable numérique    Préambule Dans un environnement "shell", les variables sont, par défaut, de type "chaîne de caractères". De ce fait il n'est pas possible de déclarer une variable de type "entier" (enfin, ceci n'est pas tout à...
Tester son pare-feu ? VoirVous avez des doutes concernant votre firewall ? Il ne détecte plus rien depuis des mois ? Ce test est pour vous ! https://www.grc.com/x/ne.dll?bh0bkyd2 Puis cliquez sur "Proceed" comme ci-dessous : Voici les différents résultats...
VBScript - Les structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle ? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non, c'est-à-dire si la valeur de son expression vaut 0 ou 1 (VBScript associe le mot clé true à...
PHP - Structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non, c'est-à-dire si la valeur de son expression vaut 0 ou 1 (le PHP associe le mot clé true à 1...

1

thev, le 15 jun 2009 à 19:26:58

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

Répondre à thev

2

THYBOB, le 16 jun 2009 à 09:16:59

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:

Répondre à THYBOB

3

 Rip, le 23 jui 2009 à 15:54:53

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

Répondre à Rip
Collection CommentÇaMarche.net