[orion7]

Automatic faxing with C++ Builder from commandline: wfx «faxnummber» «recipient» «attachment_path»
You must start WinFax Controller before faxing!

//



void __fastcall Tfwfx::FormCreate(TObject *Sender)

{

 // You can add more parameters as you need

 if (ParamCount()>0) {

   faxnumber = ParamStr(1); faxrecipient = ParamStr(2); attachment = ParamStr(3);

 }

 if (faxnumber!="") { SendFax(); Sleep(1000); Application->Terminate(); }

}

//



void Tfwfx::SendFax(void)

{

 //

 coverpage = "C:/Program Files/Symantec/WinFax/Cover/Basic1.cvp";

 covertext = "CovertText";

 faxreccomp = "MyCompany";

 faxsubject = "FaxSubject";

 //if(faxnumber=="") faxnumber = "123456789"; // Default Fax number

 //if(faxrecipient=="") faxrecipient = "Recipient"; // Default Fax recipient

 //if(attachment=="") attachment = "C:/faxdoc.doc"; // Default Fax attachment if any



 receipient = AnsiString("recipient(")

   + """ + faxnumber + """ + ",,,," //  Fax number (delete one comma if you uncomment some commented line!

   //+ """ + FormatDateTime("hh:nn:ss", Time())  + """ + "," // Time (Optional)

   //+ """ + FormatDateTime("dd/mm/yy", Date()) + """ + ","  // Date (Optional)

   + """ + faxrecipient + """ + "," // Recipient Name (Optional)

   + """ + faxreccomp + """ + ","  // Company Name (Optional)

   + """ + faxsubject + """ + ",,,"  // Subject (Optional)

   //+ """ + "" + """ + "," // Key words (Optional)

   //+ """ + "" + """ + "," // Billing code (Optional)

   + """ + "Fax" + """ // Mode

   + ")";

 //

 //DdeClientConv1->ConnectMode = ddeManual; // Must be set in Object Inspector!

 //DdeClientConv1->DdeService = "FAXMNG32"; // Must be set in Object Inspector!

 //DdeClientConv1->DdeTopic = "CONTROL"; // Must be set in Object Inspector!

 DdeClientConv1->OpenLink();



 if(!DdeClientConv1->ExecuteMacro("GoIdle",false)) Application->MessageBoxA("GoIdle Failure","CONTROL",MB_OK);

 Sleep(1000);



 DdeClientConv1->DdeTopic = "TRANSMIT";

 DdeClientItem1->DdeItem = "SendFax";



 if(!DdeClientConv1->StartAdvise()) Application->MessageBox("Start advise failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Setting Recipient

 DdeClientItem1->Text = receipient;

 if(!DdeClientConv1->PokeData("SendFax", receipient.c_str())) Application->MessageBox("Poke recipient failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Setting Coverpage (Optional)

 cover = AnsiString("setcoverpage(")+ """ + coverpage + """ + ")";

 DdeClientItem1->Text = cover;

 if(!DdeClientConv1->PokeData("SendFax", cover.c_str())) Application->MessageBox("Setcover failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Filling Coverpage (Optional)

 fillcover = AnsiString("fillcoverpage(") + """ +covertext + """ + ")";

 DdeClientItem1->Text = fillcover;

 if(!DdeClientConv1->PokeData("SendFax", fillcover.c_str())) Application->MessageBox("FillCover failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Attaching document (Optional)

 attach = AnsiString("attach(") + """ + attachment + """ + ")";

 DdeClientItem1->Text = attach;

 if(!DdeClientConv1->PokeData("SendFax", attach.c_str())) Application->MessageBox("Attach failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Setting Sendscreen

 showsend = AnsiString("showsendscreen(") + ""0"" + ")";

 DdeClientItem1->Text = showsend;

 if(!DdeClientConv1->PokeData("SendFax", showsend.c_str())) Application->MessageBox("Show send failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Setting Resolution

 resolution = AnsiString("resolution(") + ""HIGH"" + ")";

 DdeClientItem1->Text = resolution;

 if(!DdeClientConv1->PokeData("SendFax", resolution.c_str())) Application->MessageBox("Resolution set failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Setting UI

 faxui = "SendfaxUI";

 DdeClientItem1->Text = faxui;

 if(!DdeClientConv1->PokeData("SendFax", faxui.c_str())) Application->MessageBox("Sendfaxui failure","TRANSMIT",MB_OK);

 Sleep(1000);



 // Sending Fax

 DdeClientConv1->DdeTopic = "CONTROL";

 if(!DdeClientConv1->ExecuteMacro("GoActive",true)) Application->MessageBox("GoActive failure","Control",MB_OK);

 Sleep(1000);

 DdeClientConv1->CloseLink();

}

//

[orion7]

@jadejadejade wrote:

Does Winfax support 2003 Server?
It almost completed the installation but only cannot add Winfax printer in its very final step of installation. It warned with Error code 1930 “winfax printer add failed….” which is similar to an error code 1797 with same “winfax printer add failed”.

You must to start Printer Spooler service before installation of WinFax!!!

[Author]

Posts