Ouvrir simplement Outlook.

**Traxsilver** · 25/04/2012, 15h07

Bonjour tout le monde,

Je cherche a développer un générateur d'email. J'ai déjà manié excel avec C++ Builder sans souci. J'utilise la version XE2, et office 2007.

J'ai bien sur suivis la FAQ builder, qui pour excel a fonctionné a merveille, hormis certain souci avec les WideString remplaçant des AnsiString.

La j'utilise le code basique de la FAQ a savoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
	try
	{
		vMSOutlook = Variant::GetActiveObject("Outlook.Application");
	}
	catch(...)
	{
		vMSOutlook = Variant::CreateObject("Outlook.Application");
	}
	vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");

Suite a la derniére ligne j’obtiens une Exception :

"Type de variable incorrect"

J'ai pourtant simplement copier collé.

Vous avez une idée ? Merci.

**blondelle** · 25/04/2012, 15h33

Salut Traxsilver
Le programme fonctionne

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "utilcls.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSOutlook, vEspaceDeNom;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 try
 {
// ici ci outlook n'est pas charge il y a une erreur, relancer par Run cette erreur n'est generee quand mode pas a pas
  vMSOutlook = Variant::GetActiveObject("Outlook.Application");
 }
 catch(...)
 {
  vMSOutlook = Variant::CreateObject("Outlook.Application");
 }
 vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");
}
//---------------------------------------------------------------------------

**Traxsilver** · 26/04/2012, 08h43

Merci de ta réponse Blondelle.

Mais pourtant nos 2 codes sont identique. Et pourtant a la ligne 10 j'ai bien une exeption.
Pour pouvoir exporter tout ca j'ai fait un fichier C++ appart avec dans le .h :

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
 
#ifndef UtilisezOutlookH
#define UtilisezOutlookH
#include <System.Classes.hpp>
#include <Vcl.StdCtrls.hpp>
#include <utilcls.h>class UseOutlook
{
	private :
		Variant vMSOutlook, vEspaceDeNom, vDossierReception, olFolderInbox;
		Variant  vobjNewMail, chemin;
	public  :
		bool Envoyez(WideString dest, WideString copie, WideString sujet, TMemo* contenue) ;
		UseOutlook() ;
		OuvrirOutlook() ;
		~UseOutlook() ;
};
#endif

Et dans le cpp :

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
56
57
58
 
#pragma hdrstop
 
#include "UtilisezOutlook.h"
#pragma package(smart_init)
UseOutlook::UseOutlook()
{
	//ouvre outlook
   /*	try
	{
		vMSOutlook = Variant::GetActiveObject("Outlook.Application");
	}
	catch(...)
	{
		vMSOutlook = Variant::CreateObject("Outlook.Application");
	}
	vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");
	vEspaceDeNom.OleFunction("Logon", "", "", true, true);  */
}
//---------------------------------------------------------------------------
UseOutlook::~UseOutlook()
{
	//destructeur qui ferme outlook
	vEspaceDeNom.OleFunction("Logoff");
	vMSOutlook.OleFunction("Quit");
}
//---------------------------------------------------------------------------
UseOutlook::OuvrirOutlook()
{
	//ouvre outlook
 
 try
 {
// ici ci outlook n'est pas charge il y a une erreur, relancer par Run cette erreur n'est generee quand mode pas a pas
	vMSOutlook = Variant::GetActiveObject("Outlook.Application");
 }
 catch(...)
 {
	vMSOutlook = Variant::CreateObject("Outlook.Application");
 }
 vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");
	//vEspaceDeNom.OleFunction("Logon", "", "", true, true);
}
//---------------------------------------------------------------------------
bool UseOutlook::Envoyez(WideString dest, WideString copie, WideString sujet, TMemo *contenue)
{
	//la pour envoyer le message
	//vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");  //deja dans ouvrir()
	vobjNewMail = vMSOutlook.OleFunction("CreateItem", 0);
	vobjNewMail.OleFunction("Display");
	for(int i = 0 ; i <= contenue->Lines->Count; i++)
	{
		vobjNewMail.OlePropertySet("Body",contenue->Lines[0][i] );
	}
	vobjNewMail.OlePropertySet("Subject", sujet);
	vobjNewMail.OlePropertySet("To", dest);
	return true ;
}

Peut etre le probleme vient du fait que le code soit séparé. J'ai pourtant toujours utilisé excel par le meme principe, une classe dédiée, et un objet instancier dynamiquement dans mon programme.
Je vais donc essayer d'intégrer le code directement dans la Form pour faire un test. Et je reviens poster les résultats.

**blondelle** · 26/04/2012, 10h10

Essaye le morceau de code que je t'ai poste il faut juste poser un TButton sur une Form vierge.
En mode teste il va y avoir une exeption sur la ligne ci dessous ce qui est normal si outlook n'est pas actif, quand le code est compile en .exe l'erreur ne se voie plus, c'est un comportement normal, c'est juste pour signaler que l'on passe sur le Try / Catch, pour continuer le teste faire Run ou F9

Code :

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

1
2
vMSOutlook = Variant::GetActiveObject("Outlook.Application");

**Traxsilver** · 26/04/2012, 13h17

J'avais bien compris que la première ligne génére une exception car outlook n'est pas ouvert, si je l'ouvre au préalable je n'ai pas l’exception. J'ai donc fais un nouveau projet comme tu le suggérais avec juste un bouton. Le résultat est le meme j'ai une exception a l'exécution de cette ligne :

Code :

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

 vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");

Voici la capture :

exeption_outlook.jpg

L’exception survient bien apres le point d'arret qu'on voit sur la capture.

**blondelle** · 26/04/2012, 13h34

dans la ligne

Code :

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

1
2
vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", "MAPI");

vEspaceDeNom est un variant ainsi que vMSOutlook
GetNameSpace est une fonction outlook reste MAPI
Je pense que la gestion unicode de XE est en cause, je ne peux pas t'aider plus je ne possede pas XE

**Traxsilver** · 26/04/2012, 13h45

Merci pour ton analyse. J'ai effectivement eu un certain nombre de souci avec la gestion unicode. Mais en general c'est seulement si je remplace une variable det ype WideString en paramètre d'une fonction OLE. Pour Excel tout fonctionne bien pourtant.

Exemple de code OLE présent dans le meme projet :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
 
 
#pragma hdrstop
 
#include "Lireexcel.h"
 
#pragma package(smart_init)
//---------------------------------------------------------------------------
Inexcel::Inexcel(WideString nomduexcel,WideString lefeuillet)
{
	BaseName = nomduexcel ;
	vCell = "" ;
	feuillet = lefeuillet ;
	data_cellule = range = "" ;
	ouvrirexcel() ;
}
//---------------------------------------------------------------------------
Inexcel::~Inexcel()
{
	//destructeur qui ferme excel
	// fermer par la croix pareil que fermer
	try
	{
		vMSExcel.OleFunction("Quit");
		vMSExcel = Unassigned; //libere les resources
	}
	catch(Exception &exception)
	{
		//rien on s'en tappe defois il veux pas liberer les resources.
		// Free le fera plus tard.
    }
}
//---------------------------------------------------------------------------
void Inexcel::ouvrirexcel()
{
	//on ouvre l'instance excel en lecture seule
	vMSExcel = Variant::CreateObject("Excel.Application");
	vMSExcel.OlePropertySet("Visible", false);
 
	//on charge le fichier
	vSeparator = 4;
	vReadOnly = true ;
	vFileName = BaseName ;
	vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
	vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, Unassigned, vReadOnly);
 
	//on déclare sur quel feillet on travaille
	vSheetName = feuillet;
	vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
 
}
 
//---------------------------------------------------------------------------
WideString Inexcel::readcell(WideString lacase)
{
	//ici lis ce qu'il y'a dans la cellule
	vRange = lacase ;
	try
	{
		//on test defois qu'on est fermé excel
		vCell = vWorksheet.OlePropertyGet("Range", vRange);
	}
	catch(Exception &exception)
	{
		//si excel a été fermé on le réouvre
		ouvrirexcel() ;
		vCell = vWorksheet.OlePropertyGet("Range", vRange);
	}
	data_cellule = vCell.OlePropertyGet("Value");
	if(data_cellule == "") data_cellule = "N/A" ;
	return data_cellule ;
}
//---------------------------------------------------------------------------
WideString Inexcel::findcell(WideString text)
{
	//ici on cherche la cellule qui corespond a text
	try
	{
		//on test defois qu'on est fermé excel
		vRange = vWorksheet.OlePropertyGet("UsedRange");
	}
	catch(Exception &exception)
	{
		//si excel a été fermé on le réouvre
		ouvrirexcel() ;
		vRange = vWorksheet.OlePropertyGet("UsedRange");
	}
	vCell = vRange.OleFunction("Find", text) ;
	if(	vCell.VInteger != 0 )
	{
		//on recup son emplacement excel
		range = vCell.OlePropertyGet("Address", false, false);
	}
	else
	{
		// on as pas trouver la recherche
		range = "" ;
	}
	return WideString(range) ;
 
}
//---------------------------------------------------------------------------
WideString Inexcel::findnext()
{
	//ici on cherche la prochaine cellule qui corespond
	//a ce qu'on as deja chercher
	try
	{
		//on test defois qu'on est fermé excel
		vRange = vWorksheet.OlePropertyGet("UsedRange");
	}
	catch(Exception &exception)
	{
		//si excel a été fermé on le réouvre
		ouvrirexcel() ;
		vRange = vWorksheet.OlePropertyGet("UsedRange");
	}
	vCellnext = vRange.OleFunction("FindNext", vCell) ;
	if(	vCellnext.VInteger != 0 )
	{
		//on recup son emplacement excel
		range = vCellnext.OlePropertyGet("Address", false, false);
	}
	else
	{
		// on as pas trouver le serveur
		range = "" ;
	}
    vCell = vCellnext ;
	return WideString(range) ;
 
}
//---------------------------------------------------------------------------
unsigned int Inexcel::nbrlignes()
{
	//determine le nombre de lignes
	//s'arrete a la premiére ligne vide de la collone A
 
	unsigned int  nbrligne = 0 ;
	while(readcell("A"+UIntToStr(nbrligne+1))!="N/A")
	{
		nbrligne ++ ;
	}
	return nbrligne ;
 
}
//---------------------------------------------------------------------------

Donc si la gestion unicode est en cause, cela voudrais dire que XE réalise des conversion implicite avec mes chaines de caractère avant de les envoyer a la fonction OLE. Mais pourquoi certaine serait impacté et d'autre fonctionne parfaitement ...?

**blondelle** · 26/04/2012, 13h51

La je vois pas, outlook est bien installe et tu peux l'utiliser normalement

**Traxsilver** · 26/04/2012, 13h56

Oui oui, c'est pas la dernière c'est une version 2007. Peut être que c'est trop récent. Je pense que certain poste de l'entreprise on encore une version Office 2003 je vais essayer dessus. Mais je ne pourrais pas le faire avant lundi.

Merci beaucoup pour tes réponses claire est rapide Blondelle.

**blondelle** · 26/04/2012, 14h07

La version de teste etait la 2003 et BCB6, je ne pense pas qu'une version plus recente pose probleme.
Tu a bien parametre tes numero de compte Pop3, Smtp, Mots de passe, tu peu envoyer et recevoir avec outlook en direct, si oui je seche.

**Traxsilver** · 26/04/2012, 14h17

Ben je suis en exchange pas en pop3. Je vais créer un profil en pop3 pour verifier ....

**Traxsilver** · 27/04/2012, 10h47

Defois que d'autre personne ai le meme problème j'ai trouvé une autre manière d'attaquer outlook :

TOutlookApplication

J'arrive a trouver quelque exemple en delphi, mais il m'est assez compliqué de les traduire en C++. Alors je patauge légèrement.... Mais je persiste !

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
TFMain.BitBtnSendMailClick(Sender: TObject);
Var
oOutLook:TOutLookApplication;
NSpace:NameSpace;
MyMail:MailItem;
begin
oOutLook:=TOutLookApplication.Create(nil);
NSpace:=oOutLook.GetNamespace('MAPI');
NSpace.Logon('MyName','MyPwd',false,false);
MYMail:=oOutlook.CreateItem(olMailItem) as MailItem;
MYMail.Recipients.Add('boubou2024@scarlet.be');
MYMail.Subject := 'Offfre de prix';
MYMail.Body := 'Corps du message envoyé'+#13#10;
MYMail.Display(False);
end;

Lorseque je déclare une variable de type MailItem j'obtiens le message suivant :

E2352 Impossible de créer une instance de la classe abstraite '_MailItem'

Je comprend pas vraiment ce que cela signifie.

**blondelle** · 27/04/2012, 11h29

Si je ne me trompe pas TOutlookApplication est un composant a placer sur la Form qui se trouve dans le repertoire Office2K pour BCB6

**Traxsilver** · 27/04/2012, 14h27

Effectivement, il existe une compostant comme celui la. Hors sur ma version de XE2 elle ne sont pas d'origine, j'ai donc rajouter le composant, et meme la version Office XP. Mais n'ayant aucune doc intégré j'essaye de comprendre comment ca fonctionne. Je trouve certaine chose mais seulement sur des forum américain.

**ShaiLeTroll** · 27/04/2012, 14h43

TOutlookApplication c'est juste la version Early Binding de "Excel.Application",
tu n'auras pas différence pa rapport à l'utilisation en Late Binding via OLE Variant comme tu le faisais déjà !

As-tu testé :

Code :

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

vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", L"MAPI");

Le L devant "" indique des chaines wchar_t* et non char*

ou

Code :

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

vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", WideString("MAPI"));

Envoyé par Traxsilver

Merci pour ton analyse. J'ai effectivement eu un certain nombre de souci avec la gestion unicode. Mais en general c'est seulement si je remplace une variable det ype WideString en paramètre d'une fonction OLE. Pour Excel tout fonctionne bien pourtant.

Donc si la gestion unicode est en cause, cela voudrais dire que XE réalise des conversion implicite avec mes chaines de caractère avant de les envoyer a la fonction OLE. Mais pourquoi certaine serait impacté et d'autre fonctionne parfaitement ...?

Il effectue des conversions implicite de char*\AnsiString vers WideString ou UnicodeString mais le paramètre étant un Variant, il reçoit un char* donc pas de conversion !

Seul les paramètres sont concernés !
name dans OleFunction est un String, cela appelle le constructeur UnicodeString(char*),
les paramètres P1 à P32 sont des Variant, il n'y a pas de conversion !
tu n'as pas remarqué mais dans ton code Excel, tu ne passe jamais directement une chaîne constante mais une variable WideString (celle en paramètre de fonction, je suppose qu'il en va de même pour les membres de la classe)

Avant, tout était AnsiString, à l'époque de la Rédaction de la FAQ, il devait y avoir un mécanisme pour forcer le WideString, entre le TVariant, le VARIANT, le Variant et le OleVariant, les comportements d'affectation était différents, possible qu'entre les versions Ansi et Unicode, il y a eu des changement à ce sujet !

**Traxsilver** · 27/04/2012, 15h09

J'arrive en joie sur le forum me disant que je pourais répondre a mon probleme moi meme mais non ... Grand maitre ShaiLeTroll est deja passé par la.

En analysant les code d'adaptation de TOutlookApplication j'en ai deduis l'histoire de conversion implicite et avec ce code :

Code :

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

vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace", WideString("MAPI"));

cela fonctionne !!! Merci !!!

Et en plus tu m'explique comment la chaine "GetNameSpace" passe sans soucis et "MAPI" necessite une conversion explicite en WideString. Mais je ne suis pas arrivé a metre la main sur le prototypage des fonction pour comprendre quelle variable envoyer a cette fonction. Tu as vraiment fouillé le .h pour savoir ca ??

**ShaiLeTroll** · 27/04/2012, 15h41

Effectivement, j'ai lu autoargs.h et utilcls.h mais j'ai surtout juste fait un recherche sur OleFunction dans l'aide de C++Builder 6 qui m'a indiqué où chercher

Pour GetNameSpace et toutes les fonctions de Outlook, il y a la MSDN, c'est vaste, tordu et pénible !
Souvent expliqué via du VBA (déjà tout en wide) ou en C# (surement wide aussi par défaut)

En Delphi, on a pas besoin d'appeler OleFunction ou SetProperty, c'est implicite (il doit analyser le code pour voir des appels de fonction ou des affectations), du coup le code Early et Late est quasiment identique, c'est vrai qu'en C++Builder, c'est nettement plus pénible (et pas très lisible)

Je n'ai pas encore fait d'OLE en C++Builder, mes derniers essais remonte à Excel 2010 avec D7 (pour forcer le type XLS et non XLSX)
Par contre, avant, on avait QUE des AnsiString dans le pilotage OLE, je ne sais pas trop comment il passait de AnsiString à WideString, surement une bidouille dans le Variant
Là comme on mélange du Wide et Ansi, il doit s'y perdre !

**blondelle** · 27/04/2012, 17h03

Pour la conversion Unicode il faut tester " StringToOleStr " " WideString " .......
Pour convertir un variant il y a tout un lot de conversion possible par exemple tire de l'aide en ligne
" VarToStr " Convertit un objet variant en objet AnsiString.

**Traxsilver** · 27/04/2012, 21h01

Merci a vous pour toutes ces réponses.

J'avais deja eu des soucis avec les conversions des unicode, surtout qd je suis passé de BC5 ( version de mes etudes ) a celle de ma boite la XE2. Tout mes ancien code a base de "AnsiString" ne fonctionnais plus. Mais le plus grand souci est de connaitre le type de valeur que ce genre de fonction OLE attend. Et dans l'aide d'XE2 il n'y as plus rien sur les OLE. Ou sinon je ne suis pas arrivé a le trouver.

Il me reste maintenant juste 3 souci a résoudre:
1 trouver comment ajouter des gens en copie
appartir de ca :

Code :

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

vobjNewMail.OlePropertySet("To", dest);

2 ajouter plusieur ligne a Body

Code :

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

vobjNewMail.OlePropertySet("Body",WideString(contenue->Lines[0][i])

car cette ligne de code efface le corp de message a chaque appel.
A la base j'utilise un TMemo pour stoker le corps de mon mail.
Dans une boucle je voulais ajouter ligne par ligne le contenue du TMemo dans le body du mail.
3 et envoyé.

Code :

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

vobjNewMail.OleFunction("Send");

Ca me renvoie que la fonction n'existe pas.

**blondelle** · 27/04/2012, 22h10

Pour ajouter le contenu du TMemo peut etre comme ceci

Code :

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

1
2
 
vobjNewMail.OlePropertySet("Body",WideString(Memo1->Lines->Text);

Pour plusieurs destinataires en plus de " To " il y a " Cc " ou " BCc ", je n'ai pas trouve le separateur entre les diverses adresses
Pour " Send " je cherche aussi pourquoi cela ne marche pas
Pense aussi a la conversion pour l'unicode

Ouvrir simplement Outlook. [OLE]

C++Builder

Discussions similaires

Partager

Partager