Ouvrir simplement Outlook.

Version imprimable

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:

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.

Salut Traxsilver
Le programme fonctionne

Code:

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");
}
//---------------------------------------------------------------------------

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:

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:

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.

26/04/2012, 10h10
blondelle
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:

1 2 vMSOutlook = Variant::GetActiveObject("Outlook.Application");
26/04/2012, 13h17
Traxsilver

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:

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.
26/04/2012, 13h34
blondelle
dans la ligne
Code:

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

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:

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 ...?

26/04/2012, 13h51
blondelle

La je vois pas, outlook est bien installe et tu peux l'utiliser normalement
26/04/2012, 13h56
Traxsilver

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.
26/04/2012, 14h07
blondelle

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.
26/04/2012, 14h17
Traxsilver

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

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:

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.

27/04/2012, 11h29
blondelle

Si je ne me trompe pas TOutlookApplication est un composant a placer sur la Form qui se trouve dans le repertoire Office2K pour BCB6
27/04/2012, 14h27
Traxsilver

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.
27/04/2012, 14h43
ShaiLeTroll

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:

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

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

ou

Code:

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

Citation:

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 !
27/04/2012, 15h09
Traxsilver

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:

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 ??
27/04/2012, 15h41
ShaiLeTroll

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 :mouarf:
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 !
27/04/2012, 17h03
blondelle

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.
27/04/2012, 21h01
Traxsilver

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:

vobjNewMail.OlePropertySet("To", dest);

2 ajouter plusieur ligne a Body

Code:

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:

vobjNewMail.OleFunction("Send");

Ca me renvoie que la fonction n'existe pas.
27/04/2012, 22h10
blondelle
Pour ajouter le contenu du TMemo peut etre comme ceci
Code:

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
27/04/2012, 22h56
blondelle

Normalement le separateur entre les adresses est le " ; "
28/04/2012, 11h37
Traxsilver
Merci Blondelle pour tout les champs. Je me demande ou tu as trouvé tout ca. Sur la FAQ VBA j'ai pu lire qu'une correspondance était fournis par Micro$oft dans le data d'Office.

Dans mon cas C:\Program Files (x86)\Microsoft Office\Office12\1036\VBALIST.XLS
Mais dedans CC n'y est pas !!!

Le séparateur ";" ne déplais pas a outlook.

La fonction Send fonctionne si je fait une conversion explicite en WideString.

Il me reste une seule exception a contourner :
Code:

1 2 vobjNewMail.OleFunction("Display"); vobjNewMail.OleFunction(WideString("Display"));
Ces lignes me renvoyent :
"Fonction incorrect."
Que je fasse la conversion en WideSring ou pas. Display ne semble pas etre une fonction qu'il connaisse. Pourtant la fenetre du nouveau mail n'apparait a l'ecran qu'apres le passage de cette fonction.
Pensant qu'il s'aggisse d'une fonction qui ai pu changé de nom j'ai essayé ca :

Code:

vobjNewMail.OleFunction(WideString("tumesoule"));

L’exception se transforme en :
"Nom inconnu".

Donc Display doit etre une fonction connue mais il n'en veut pas. Ou il manque un argument peut etre.
28/04/2012, 12h14
blondelle

Pour Cc (copie carbone) il peut y avoir aussi Cci (copie carbone invisible)
explications trouvees sur le Net

Citation:

À
Destinataires du message dont vous souhaitez spécifier les noms dans la ligne À du message électronique. Si cet argument est vide, Access vous demande de spécifier les noms des destinataires.
Séparez les noms des destinataires spécifiés dans cet argument (et dans les arguments Cc et Cci) par un point-virgule (;) ou le séparateur de listes défini dans la boîte de dialogue Personnaliser les options régionales sous l'onglet Nombres dans le Panneau de configuration de Microsoft Windows. Si l'application de messagerie ne peut pas identifier les noms des destinataires, le message n'est pas envoyé et une erreur se produit.
Cc
Destinataires du message dont les noms doivent figurer dans la ligne Cc (« copie carbone ») du message. Si vous laissez cet argument vide, la ligne Cc du message est vide.
Cci
Destinataires du message dont les noms doivent figurer dans la ligne Cci (« copie carbone cachée ») du message. Si vous laissez cet argument vide, la ligne Cci du message est vide.
Objet
Objet du message. Ce texte apparaît dans la ligne Objet du message électronique. Si vous ne spécifiez rien dans cet argument, la ligne Objet du message sera vide.
Texte du message
Texte à inclure dans le message en plus de l'objet de base de données. Ce texte apparaît après l'objet dans le corps principal du message électronique. Si vous laissez cet argument vide, aucun texte supplémentaire n'est inclus dans le message. Si vous laissez les arguments Type d'objet et Nom d'objet vides, vous pouvez utiliser cet argument pour envoyer un message sans objet de base de données.

pour " Display " essaye " StringToOleStr(Display) "
28/04/2012, 12h17
blondelle

Comme exemples pour programmer une fonction il y a l'aide en ligne VBA pour Outlook la FAQ Outlook et Delphi
28/04/2012, 12h26
Traxsilver
Oui se sont des ces faq que j'essaye de m'aider. Mais je comprend pas trop le delphy.

Sinon en fait send fonctionne que partiellement.

Si j'envoie seulement send j'ai une exeption : "Opération abandonnée."

Mais si je fait le display suivis du send, le display renvoie une exeption mais le mail part correctement.

Pour les test :
Code:

1 2 3 vobjNewMail.OleFunction(StringToOleStr(Display)) ; // ne se compile pas vobjNewMail.OleFunction(StringToOleStr("Display"));// renvoie une erreur de compilation pour ambiguité
[BCC32 Erreur] UtilisezOutlook.cpp(46): E2015 Ambiguïté entre '_fastcall System::StringToOleStr(const System::AnsiStringT<0>) at c:\program files (x86)\embarcadero\rad studio\9.0\include\windows\rtl\System.hpp:1339' et '_fastcall System::StringToOleStr(const System::UnicodeString) at c:\program files (x86)\embarcadero\rad studio\9.0\include\windows\rtl\System.hpp:1340'
Contexte d'analyseur complet
UtilisezOutlook.cpp(39): analyse : bool UseOutlook::Envoyez(System::WideString,System::WideString,System::WideString,Vcl::Stdctrls::TMemo *)
28/04/2012, 12h29
blondelle

Si apres Display tu met un point " . " est que tu a un affichage te proposant des options

Code:

vobjNewMail.OleFunction(L"Display.");

renvoie une exception. "Inconnu"

Et au pays des Unicode voici quelque conversion curieuse :
Code:

1 2 3 4 5 6 7 vobjNewMail = vMSOutlook.OleFunction(L"CreateItem", 0); //valide vobjNewMail = vMSOutlook.OleFunction(WideString("CreateItem"), 0); //valide vobjNewMail.OleFunction(L"Send"); //valide vobjNewMail.OleFunction(WideString("Send")); //valide vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace",WideString("MAPI"));//valide vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace",L"MAPI"); //INVALIDE !!!!
Certaine fonction accepte tres bien le L"xxx" et d'autre ne supporte que l'opérateur de cast explicite .... j'y comprend plus rien.

28/04/2012, 12h49
blondelle

Apparament il vaut mieux choisir WideString ce qui uniformisera le code, tu ne m'a pas dit si apres Display tu pose un point si une boite de diagologue s'ouvre

Citation:

vobjNewMail.OleFunction("Display.

si oui il faut choisir dans la liste proposee
28/04/2012, 13h03
Traxsilver

En fait j'avais pas compris la question. Tu voulais dire si builder me propose une suite qd je tappe un . dans l'éditeur.

La réponse ne serait pas pertinente moi mémé je n'ai jamais compris. Y'a des jours ou il me propose tout ce qui se présente a moi dans une class comme membre ou fonction de la classe. Mais en ce moment il me propose plus rien. Peut importe le code il me propose plus les choix qui s'offre a moi comme avant.
28/04/2012, 13h11
blondelle

Les joies de l'informatique :mrgreen:
Je regarde si je trouve quelque chose

J'ai pu essayé sur des version 2003 de office, et display ne renvoie aucune erreur. Tout se passe bien :)

Et defois que ca serve voici les source au final d'un class toute simple qui envoie des mail automatiquement en utilisant outlook :

le .H :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#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 le cpp :

Code:

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
//---------------------------------------------------------------------------
 
#pragma hdrstop
 
#include "UtilisezOutlook.h"
 
#pragma package(smart_init)
UseOutlook::UseOutlook()
{
vMSOutlook= vEspaceDeNom= vDossierReception= olFolderInbox=vobjNewMail= chemin = Unassigned ;
 
}
//---------------------------------------------------------------------------
UseOutlook::~UseOutlook()
{
	//destructeur qui ferme outlook
	vEspaceDeNom.OleFunction("Logoff");
	vMSOutlook.OleFunction("Quit");
}
//---------------------------------------------------------------------------
UseOutlook::OuvrirOutlook()
{
	//ouvre outlook
	try
	{
		//cherche si outlook est deja ouvert
		vMSOutlook = Variant::GetActiveObject("Outlook.Application");
	}
	catch(...)
	{
		//sinon on l'ouvre
		vMSOutlook = Variant::CreateObject("Outlook.Application");
	}
	vEspaceDeNom = vMSOutlook.OleFunction("GetNameSpace",WideString("MAPI"));
}
//---------------------------------------------------------------------------
bool UseOutlook::Envoyez(WideString dest, WideString copie, WideString sujet, TMemo *contenue)
{
	//la pour envoyer le message
	vobjNewMail = vMSOutlook.OleFunction(L"CreateItem", 0);
	vobjNewMail.OlePropertySet("Body",WideString(contenue->Lines->Text));
	vobjNewMail.OlePropertySet("Subject", sujet);
	vobjNewMail.OlePropertySet("To", dest);
	vobjNewMail.OlePropertySet("Cc", copie);
	vobjNewMail.OleFunction(WideString("Display"));
	try
	{
		//essaye d'envoyer
		vobjNewMail.OleFunction(L"Send");
		Sleep(1000);//le temps que la validation outlook apparaisse.
		return true ;
	}
	catch(...)
	{
		// si exeption on considére que le mail n'est pas parti
		throw ;
		return false ;
	}
	//le mail est parti
 
}

30/04/2012, 10h18
blondelle

Verifie dans l'aide en ligne visual basic de la version qui refuse " Display " soit cela n'existe plus soit cela a ete remplace
04/05/2012, 15h02
blondelle

Apres avoir regarde le lien suivant

Citation:

http://code.msdn.microsoft.com/Outlo...e-SMS-86f7b716

La fonction Display a peut etre un parametre suplementaire

Citation:

vobjNewMail.OleFunction(WideString("Display"), false);

A essayer
12/05/2012, 14h51
Traxsilver

Apres avoir essaye un peut n'importe quoi avec display, tout fonctionne sous office 2003 et rien a faire sous office 2007 ou 2010. C'est pas grave j'utiliserais un vieux poste sous office 2003. Merci pour tout tes messages Blondelle.