Creer son enveloppe expediteur destinataire OleWord

Version imprimable

Voici comment creer ses enveloppes avec le nom et adresse de l'expediteur et le nom et adresse du destinataire
le code

Code:

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
// enveloppes
String addr = "Don Funk \r\n123 Skye St. \r\nOur Town \r\nWA  98040"; // destinataire
String AutoText = "";
String retaddr = "Karin Gallagher \r\n123 Main \r\nOther Town \r\nWA  98004"; // expediteur
vWDocuments.OleFunction("Add").OlePropertyGet("Envelope").OleFunction("Insert", false, addr.c_str(), AutoText.c_str(), false, retaddr.c_str());
vMSWord.OlePropertyGet("ActiveWindow").OlePropertyGet("View").OlePropertySet("Type", 3);
}

11/12/2008, 22h38
Crayon
Salut, merci pour le code. N'étant pas familier avec le pilotage OLE de Word. J'ai tenté de faire fonctionner le code. Il a fallu que j'ajoute le code suivant:
Code:

1 2 3 4 5 Variant vWDocuments, vMSWord; vMSWord = Variant::CreateObject("Word.Application"); vMSWord.OlePropertySet("Visible", true); vWDocuments = vMSWord.OlePropertyGet("Documents");
Est-ce la bonne chose faire? Car il y a deux pages, la première est l'enveloppe et la seconde une page normale.

Salut Crayon
voici le code complet du teste

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>  // <---- ne pas oublier
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSWord, vWDocuments, vWDocument, vFileName;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
vMSWord.OlePropertySet("Visible", true);
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Add");
if (Form1->Visible) // mettre l'appli toujours au premier plan
  {
Form1->Visible = true;
Form1->BringToFront();
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    vWDocuments.OleFunction("Close", NULL, NULL);
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
// enveloppes
String addr = "Don Funk \r\n123 Skye St. \r\nOur Town \r\nWA  98040"; // destinataire
String AutoText = "";
String retaddr = "Karin Gallagher \r\n123 Main \r\nOther Town \r\nWA  98004"; // expediteur
vWDocuments.OleFunction("Add").OlePropertyGet("Envelope").OleFunction("Insert", false, addr.c_str(), AutoText.c_str(), false, retaddr.c_str());
vMSWord.OlePropertyGet("ActiveWindow").OlePropertyGet("View").OlePropertySet("Type", 3);
}
//---------------------------------------------------------------------------

Je n'ai pas encore eu le temps de chercher mais il doit etre possible d'utiliser une base de donnees pour effectuer un mailling avec l'adresse du destinataire

12/12/2008, 05h12
Crayon

Merci blondelle pour l'exemple complet :D

Je viens de me rendre compte que je ne t'ai pas envoye le bon code d'ouverture de Word, le voici
Code:

1 2 3 4 5 6 7 8 9 10 11 12 // Le code suivant permet donc de lancer Word si il n'est pas déjà actif ou de se connecter à l'instance existante éventuelle try { // Word est actif vMSWord = Variant::GetActiveObject("Word.Application"); } catch(...) { // non on l'ouvre vMSWord = Variant::CreateObject("Word.Application"); }
En mode pas a pas il y a une exception si l'instance de Word n'existe pas et on la cree en passant par le try catch(...), en mode execution on ne le voie pas
C'est pour eviter les messages d'erreur et l'ouverture des boites de dialogue que j'utilise cette facon de proceder