Discussion :

[LePtit]

Bonjour à tous,

Aujourd'hui j'arrive bien à ouvrir Outlook Express lors du double clic, mais je ne parviens pas à trouver la commande qui me permettrai d'ouvrir un nouveau message.

Si quelqu'un à une solution je suis preneur, je stocke dans un champ à l'intérieur d'un formulaire sous Oracle Forms en version 6.0.8.25.2 une adresse mail, je voudrai lors d'un double clic sur ce champ lancer Outlook Express, ouvrir un nouveau message et récupérer dans le champ Outlook Express A: ou CC: l'adresse indiquée dans mon champ sous Oracle Forms, et cerise sur le gâteau, dans le champ Objet d'Outlook Express un texte par défaut.

Ci joint le code sur l'évènement WHEN-MOUSE-DOUBLE-CLICK sur le champ "Adresse Mail" : (Pour information dans M0-P0003, je stocke l'application à lancer, c'est à dire Msimn.exe)

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
20
21
22
23
DECLARE
	AppID		PLS_INTEGER;
	V_Appli		VARCHAR2(2000);
	V_Mail		VARCHAR2(60);
 
BEGIN
 
	-- Recherche du navigateur déclaré dans la table de configuration
	SELECT VALEUR_PARAMETRE INTO V_Appli 
	FROM PARAMETRE_DATAFOOT
	WHERE CODE_PARAMETRE = 'M0-P0003';
 
	-- Recherche du site du joueur affiché
	SELECT E_MAIL INTO V_Mail FROM INSTANCE
	WHERE CODE_INSTANCE = :BLK_INSTANCE.CODE_INSTANCE;
 
	-- Si le champs Site n'est pas vide
	IF :BLK_INSTANCE.E_MAIL IS NOT NULL THEN
		   AppID := DDE.App_Begin(V_Appli, DDE.App_Mode_Maximized);
		   DDE.App_Focus(AppID);
	END IF;
 
END;

[ataya]

J'ai EXACTEMENT le même problème ! UP !

[ataya]

Bonjour,

Je suis à la recherche de la doc de certaines bibliothèques dont j'ai entendu parler dans certains post comme OLE2 ou DDE.

Qq'un saurait il ou je peut trouver des infos sur ces bibliothèques ou sur les bibliothèques oracle en général?


PS: Si vous avez qques secondes mon problème précis se trouve ici:
http://www.developpez.net/forums/sho...ferrerid=75174

[orafrance]

dans google : http://www.oracle.com/webapps/online...htm&vtTopicId=

PS : inutile de créer un nouveau sujet juste pour demander de la doc

[ataya]

oups .... c'est la honte !

Je sait pas ce que j'ai foutu : bien sur j'ai cherché sur google avant de poster mais j'ai rien trouvé; Puis en lisant la réponse du responsable du forum (que je remercie au passage pour sa réponse) je me suis dit "c'est pas possible! t'est débile ou quoi?" donc j'ai fait un test avec les mots clé "oracle+dde+package" et je suis tombé ... sur le lien donné plus haut.

ccl: je suis effectivement un peu débile !

Pour me faire pardonner: J'ai trouvé la solution pour ouvrir outlook, alimenter les champs destinataire, contenu message, etc ... et tout ça sans envoyer le message.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Declare
 
 
application ole2.OBJ_TYPE;	
hMailItem ole2.OBJ_TYPE;
hRecipients ole2.OBJ_TYPE;
recipient ole2.OBJ_TYPE;
 
 
args OLE2.LIST_TYPE;		
 
begin
application:=ole2.create_obj('Outlook.Application');		
 
args:=ole2.create_arglist;					
ole2.add_arg(args,0);
hMailItem:=ole2.invoke_obj(application,'CreateItem',args);
ole2.destroy_arglist(args);
 
 
args:=ole2.create_arglist;
hRecipients:=ole2.get_obj_property(hMailItem,'Recipients',args);
ole2.destroy_arglist(args);
 
 
args:=ole2.create_arglist; 
ole2.add_arg(args,'monAdressemail@monFai');
recipient:=ole2.invoke_obj(hRecipients,'Add',args);
 
ole2.set_property(recipient,'Type',1);
ole2.destroy_arglist(args);
 
args:=ole2.create_arglist;
ole2.invoke(hRecipients,'ResolveAll',args);
 
ole2.set_property(hMailItem,'Subject','Test OLE2 Outlook');
ole2.set_property(hMailItem,'Body','texte de mon message');
 
ole2.invoke(hMailItem,'Save',args);
ole2.destroy_arglist(args);
 
 
args:=ole2.create_arglist;
--ole2.invoke(hMailItem,'Send',args); cette ligne là, il faut la mettre si on veut envoyer le mail plutot que de l'afficher
ole2.invoke(hMailItem,'Display',args);
ole2.destroy_arglist(args); 
 
release_obj(application);
release_obj(hRecipients);
release_obj(recipient);
release_obj(hMailItem);
 
 
end;

[orafrance]

t'es un chef