Voici comment creer ses enveloppes avec le nom et adresse de l'expediteur et le nom et adresse du destinataire
le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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);
}