Discussion :

[arnaud_verlaine]

Bonjour à tous !

Ma question est la suivante :

Je recherche à créer un add-in ou plugin pour outlook (2007,2010 et 2013 et >) en Windev. d'après pas mal de discussions (anciennes) le mieux est de passer par VBA, que je ne connais plus du tout !

En gros j'ai besoin d'un simple bouton dans Outlook (bouton ou menu peu importe) qui me renvoie des infos d'un email dans une base de données HyperFile SQL.

Un truc donc tout bête en terme de code, mais c'est juste pour faire le plugin, ben je ne sais pas par où commencer !

Si quelqu'un pouvait m'éclairer ?! En dernier recours, j'avais pensé avoir une toute petite fenêtre composée d'un bouton qui serait devant toutes les autres fenêtres tout le temps en permanence. Plus simple en programmation (moi qui connait bien Windev, mais plus VB ! ) mais je trouve cette solution très bateau, bancale, bref, un peu nulle !

Merci d'avance de vos conseils !

Bonne soirée à tous !

[frenchsting]

Je ne connais pas VBA. En fait, si mais juste pour des besoins particuliers. Et je le triture pour le Windeviser...

Première chose : tu dis qu'il faut créer un bouton dans Outlook. Ca, c'est pas du Windev.
Deuxième chose : ce bouton doit exécuter une appli (windev) : équivalent du LanceAppli("c:\...\WdTripotageParWindev.exe"). Ca, c'est toujours pas du Windev.
Troisième chose : le code Windev proprement dit. Il y a l'exemple d'automation de Outlook par Windev...

[arnaud_verlaine]

Bonjour et merci de ta réponse.

Première chose : tu dis qu'il faut créer un bouton dans Outlook. Ca, c'est pas du Windev.

C'est justement le but ! Créer un composant via Windev que l'on pourrait implémenter dans Outlook

Deuxième chose : ce bouton doit exécuter une appli (windev) : équivalent du LanceAppli("c:\...\WdTripotageParWindev.exe"). Ca, c'est toujours pas du Windev.

=> cfr première chose !

Troisième chose : le code Windev proprement dit. Il y a l'exemple d'automation de Outlook par Windev...

L'exemple d'automation de Outlook par Windev, ça je connais, ça sera le code implémenté dans le "bouton" de Outlook.

Une autre chose plus simple à laquelle je pense :

1. Créer une application Windev qui récupère un mail choisi dans Outlook
2. Effectuer une combinaison de touches et vérifier qu'on est bien dans Outlook. Si c'est le cas, le code de la fenêtre Windev s'exécute.

Mais pour l'utilisateur final, je pense que ça serait tellement plus simple un beau bouton..

[dsr57]

Bonjour


En effectuant une rechecrhe sur , je suis tombé sur ce site : Ajouter un bouton, un menu ou une commande

Cela pourrait t'aider pour créer le bouton et mettre en place la solution de frenchsting

Bon dev

[frenchsting]

J'ai trouvé ceci pour le point 1 : http://www.howto-outlook.com/howto/macrobutton.htm
J'ai trouvé ceci pour le point 2 : http://windowssecrets.com/forums/sho...(Outlook-2003)

Les 2 sont en anglais.

Il ne te "reste plus" qu'à faire le point 3.

[arnaud_verlaine]

Voilà le point 3 est presque fini !

Cela fonctionne, j'arrive à récupérer le mail sélectionné dans Outlook.

Voici le code :

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
 
oOutlook est un objet Automation dynamique = ObjetActif("Outlook.Application")
SI oOutlook=Null ALORS
	RETOUR
FIN
oOutlookMail est un objet Automation dynamique
 
SELON oOutlook>>ActiveWindow>>Class//Vérification de la Classe de la fenêtre en cours
	CAS 35//Inspector
 
		oOutlookMail=oOutlook>>ActiveWindow>>CurrentItem
 
	CAS 34//Explorer - Cas qui nous intéresse
 
		// Attention dans ce cas il peut y avoir plusieurs Mails sélectionnés.. là je ne retiens que le premier
		oOutlookMail=oOutlook>>ActiveWindow>>Selection(1)
		SI oOutlook>>ActiveWindow>>Selection(1)>>Class=43 ALORS 
 
			// Affectation des infos du mail dans le fichier Emails_Contenu
 
			HRAZ(Emails_Contenu)
			Emails_Contenu.CC = oOutlookMail>>CC 
			Emails_Contenu.CorpsOrigine = oOutlookMail>>Body
			Emails_Contenu.EntryID = oOutlookMail>>EntryID
			Emails_Contenu.Expediteur_Mail = oOutlookMail>>SenderEmailAddress
			Emails_Contenu.Expediteur_Nom = oOutlookMail>>SenderName
			Emails_Contenu.ListTO = oOutlookMail>>TO
			Emails_Contenu.Sujet = oOutlookMail>>subject
			Emails_Contenu.Rubrique = rubrique
 
			SELON oOutlookMail>>BodyFormat
 
				CAS 2 //html
					Emails_Contenu.Corps = HTMLVersTexte(oOutlookMail>>Body)
 
				CAS 1 //simple texte
					Emails_Contenu.Corps = oOutlookMail>>Body
 
				CAS 3 //rtf
					Emails_Contenu.Corps = RTFVersTexte(oOutlookMail>>Body)
 
				AUTRE CAS
					Emails_Contenu.Corps = oOutlookMail>>Body
 
			FIN
 
			// On ajoute les infos dans le fichier
			HAjoute(Emails_Contenu) 
		FIN
 
FIN

Il reste toutefois un soucis où je ne vois pas..

C'est le corps du mail.

Je le récupère bien mais le format HTML lui n'est pas bon.

Donc en gros je récupère du RTF mais sans plus.

Si je mets ce que je récupère (depuis un mail au format HTML) dans un fichier HTML comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
			MonEmail est un Email 
			MonEmail.Message = oOutlookMail>>Body // Essai 1
			Monemail.HTML = oOutlookMail>>Body // Essai 2 - même résultat
 
 
			sNomFic est une chaîne = fRepExe()+"\temp.htm"
			nFic est un entier = fOuvre(sNomFic, foCréation + foEcriture)
			fEcrit(nFic, monEmail.HTML, Taille(monEmail.HTML))
			fFerme(nFic)

Mon fichier HTML n'est pas bon. C'est comme si je récupérait un simple fichier texte depuis Outlook au lieu d'un fichier HTML.

Avez-vous une idée ? Un paramètre que j'aurais loupé ?

Merci d'avance !

Bien à vous,

[arnaud_verlaine]

J'ai trouvé, je dois utiliser la propriété HTMLBody en place de Body !

Code :

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

1
2
 
Monemail.HTML = oOutlookMail>>HTMLBody

Merci à vous (et finalement à moi !)

[frenchsting]

J'avais perdu le fil de cette discussion. J'ai mis en ligne dans la section "contribuez", un exemple de pilotage de Outlook.