Yo lo uso de esta manera.. quizas hay otros parmetros y mejores implementaciones pero por el momento me funciona
Código: Seleccionar todo
IF Hb_FileExists( Application:cDirectory + "SwithMail\template_og.html" )
xTemplate:= HB_MemoRead( Application:cDirectory + "SwithMail\template_og.html" )
xTemplate:= StrTran( xTemplate, "#FOLIO_FACTURA#", ::cFolioFactura )
xTemplate:= StrTran( xTemplate, "#NOMBRE_CLIENTE#", ::cNOM_Cliente )
xTemplate:= StrTran( xTemplate, "#FECHA_HORA_FACTURA#", ::dFAC_FechaHora )
xTemplate:= StrTran( xTemplate, "#NOMBRE_RESTAURANT#", AppData:cNameCompany )
xTemplate:= StrTran( xTemplate, "#TELEFONOS#", ::cTEL_Empresa )
xTemplate:= StrTran( xTemplate, "#EMAIL_EMISOR#", ::oSMTP_UserName:Value )
xTemplate:= StrTran( xTemplate, "#LOGO_OREGANO#", cImgOG )
xTemplate:= StrTran( xTemplate, "#LOGO_EMPRESA#", cImgCo )
HB_MemoWrit( Application:cDirectory + "SwithMail\template_tmp.html", xTemplate )
ENDIF
cPlantilla:= HB_MemoRead( Application:cDirectory + "SwithMail\template_tmp.html" )
// cXMLFile:= Application:cDirectory + 'SwithMail\SwithMailSettings.xml'
hXML:= mxmlNewXML( "1.0" )
hPtr:= mxmlNewElement( hXML, "SwithMailSettings" )
hServer:= mxmlNewElement(hPtr, "ServerSettings")
hNode:= mxmlNewElement(hServer, "FromName" )
mxmlNewText( hNode, 0, AppData:cNameCompany )
hNode:= mxmlNewElement(hServer, "FromAddress" )
mxmlNewText( hNode, 0,AllTrim(::oED_Remitente:Value) )
hNode:= mxmlNewElement(hServer, "Username" )
mxmlNewText( hNode, 0, AllTrim(::oED_Remitente:Value) )
hNode:= mxmlNewElement(hServer, "Password" )
mxmlNewText( hNode, 0, AllTrim(::oSMTP_Password:Value) )
hNode:= mxmlNewElement(hServer, "ObscurePassword" )
mxmlNewText( hNode, 0, "False" )
hNode:= mxmlNewElement(hServer, "MailServer" )
mxmlNewText( hNode, 0, AllTrim(::oSMTP_Server:Value) )
hNode:= mxmlNewElement(hServer, "MailServerPort" )
mxmlNewText( hNode, 0, AllTrim(Str(::oSMTP_Port:Value)) )
hNode:= mxmlNewElement(hServer, "SSL" )
mxmlNewText( hNode, 0, IF( ::oRM_SSL:nIndex==1, "True", "False") )
hNode:= mxmlNewElement(hServer, "RequestReceipt" )
mxmlNewText( hNode, 0, "False" )
hNode:= mxmlNewElement(hServer, "MessageID" )
mxmlNewText( hNode, 0, "False" )
hEmail:= mxmlNewElement(hPtr, "EmailAddresses")
hNode:= mxmlNewElement(hEmail, "To" )
mxmlNewText( hNode, 0, cToEmail )
hNode:= mxmlNewElement(hEmail, "CC" )
mxmlNewText( hNode, 0, cCCToEmail )
hAttach:= mxmlNewElement(hPtr, "Attachments")
hNode:= mxmlNewElement(hAttach, "AttachmentPath" )
mxmlNewText( hNode, 0, cFileXML )
hNode:= mxmlNewElement(hAttach, "AttachmentPath" )
mxmlNewText( hNode, 0, cFilePDF )
hConten:= mxmlNewElement(hPtr, "EmailContent")
hNode:= mxmlNewElement(hConten, "HTML" )
mxmlNewText( hNode, 0, "True" )
hNode:= mxmlNewElement(hConten, "DontReplaceNewLine" )
mxmlNewText( hNode, 0, "False" )
hNode:= mxmlNewElement(hConten, "Subject" )
mxmlNewText( hNode, 0, ::oED_Asunto:Value)
hNode:= mxmlNewElement(hConten, "Body" )
mxmlNewText( hNode, 0, cPlantilla)
hNode:= mxmlNewElement(hConten, "Priority" )
mxmlNewText( hNode, 0, "high")
hLogg:= mxmlNewElement(hPtr, "Logging")
hNode:= mxmlNewElement(hLogg, "Log" )
mxmlNewText( hNode, 0, "True")
mxmlSaveFile( hPtr, 'SwithMail\SwithMailSend.xml', MXML_NO_CALLBACK )
cCommand:= Application:cDirectory + 'SwithMail\SwithMail.exe /s /x "'
cCommand+= Application:cDirectory + 'SwithMail\SwithMailSend.xml"'
cError:= OpenCommandMsDos(cCommand)