Discussion :

[droliprane]

Bonjour à tous,

j'utilise ce bout de code pour ouvrir une fenêtre outlook depuis mon appli :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROCEDURE ouvreFenetreMail(PJ est une chaîne)
 
OUTLOOK est un objet OLE dynamique
mail est un objet OLE dynamique
nItem est un entier
 
nItem = 0
 
OUTLOOK = allouer un objet OLE "Outlook.Application"
 
mail = OUTLOOK>>CreateItem(nItem)
mail>>to = ""
mail>>subject = ""
mail>>HTMLBody = ""
mail>>attachments>>add(PJ)
mail>>Display()
 
libérer mail
libérer OUTLOOK

Je ne souhaite pas utiliser EmailLanceAppli, qui parfois, pour une raison que j'ignore, mets 10-15 secondes avant d'ouvrir une fenêtre outlook. Tandis qu'avec l'objet OLE, c'est instantané.

En revanche, une partie des accès à mon appli se fait au travers d'un serveur TSE (RDP) sur lequel il n'y a pas de pack Office d'installé (pour des raisons de coûts de CAL RDS + CAL Office).

Et donc mon script plante car, je cite, "L'objet automation 'Outlook.Application' n'est pas installé sur votre système."

Du coup, je voudrais au moins empêcher le crash de l'apppli, en détectant que l'objet OLE n'est pas dispo sur l'environnement.

J'ai testé SI OUTLOOK = null mais c'est trop tard, c'est au moment de l'allocation que ça plante.

Une idée ?

Bien à vous.

droliprane

[droliprane]

Je me réponds à moi-même, une bête gestion d'exception a réglé le problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
QUAND EXCEPTION DANS
	OUTLOOK = allouer un objet OLE "Outlook.Application"
FAIRE
	Erreur("Outlook n'est pas installé sur ce poste." + RC + RC + "Si vous êtes en bureau distant, il est normal que vous ne puissiez pas profiter de cette fonctionnalité.")
	RETOUR
FIN

Résolu

[Jon Shannow]

T'aurais pas oublié d'appuyer sur ?

[droliprane]

Voilà qui est fait, désolé