PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Savoir si outlook est installé
Savoir si outlook est installé
Started by pompil007, Jul., 26 2004 11:12 AM - 1 reply
Posted on July, 26 2004 - 11:12 AM
Bonjour,

Dans mon application, je souhaite piloter Outlook si ce dernier est installé
sur la machine, voila le code que j'ai mis pour tester la présence d'outlook
:

Outlook est un objet Automation dynamique
// Si un Outlook est déjà lancé, on va le récupérer
Outlook = ObjetActif("OutLook.Application")
SI Outlook = Null ALORS
// Aucun Outlook n'est déjà lancé : on en lance un
Outlook = allouer un objet Automation "OutLook.Application"
SI Outlook = Null ALORS
ISOutlook = Faux
SINON
ISOutlook = Vrai
FIN
FIN

Toutefois cela fait une erreur si l'outlook n'est pas installé, avez-vous
une solution ?

D'avance merci beaucoup.

Emmanuel
Posted on July, 26 2004 - 11:39 AM
Salut,

Emmanuel ROUX (news) wrote:
Dans mon application, je souhaite piloter Outlook si ce dernier est
installé sur la machine, voila le code que j'ai mis pour tester la
présence d'outlook


Outlook est un objet Automation dynamique
// Si un Outlook est déjà lancé, on va le récupérer
Outlook = ObjetActif("OutLook.Application")
SI Outlook = Null ALORS
// Aucun Outlook n'est déjà lancé : on en lance un
Outlook = allouer un objet Automation "OutLook.Application"
SI Outlook = Null ALORS
ISOutlook = Faux
SINON
ISOutlook = Vrai
FIN
FIN

Toutefois cela fait une erreur si l'outlook n'est pas installé,
avez-vous une solution ?


Essaie de mettre ce code à l'intérieur d'une clause Quand Exception Dans

Quand Exception Dans
<Ton code ci-dessus...>
Faire
ISOutlook = Faux
ExceptionActive() // Permet de réactiver la gestion des exceptions
Fin
<...Suite de ton traitement...>

--
Cordialement,

Erick :-)
Fiduciaire Informatique - Saint-Etienne