ocxSmtpMailXElement.NewMessage(lrecInterfaceSetup."SMTP From Email Address",precInterfaceApp."Error Email Subject"); ocxSmtpMailXElement.SetWorkMode(); ocxSmtpMailXElement.SetHost(lrecInterfaceSetup."SMTP Host"); ocxSmtpMailXElement.SetUserID(lrecInterfaceSetup."SMTP UserName"); ocxSmtpMailXElement.SetToAdress('info@schuer.be'); ocxSmtpMailXElement.AddCCRecipients('geert@schuer.be;jef@schuer.be'); ocxSmtpMailXElement.AddLine(ptxtBody); IF precInterfaceApp."Add Errorfile As Attachment" THEN BEGIN IF FILE.EXISTS(ptxtFileName) THEN ocxSmtpMailXElement.AddAttachment(ptxtFileName); END; IF ocxSmtpMailXElement.Send THEN BEGIN IF NOT ocxSmtpMailXElement.WasSuccessful THEN BEGIN MESSAGE(ocxSmtpMailXElement.LastError); END; END ELSE BEGIN MESSAGE(STRSUBSTNO(errText006,lrecInterfaceSetup."SMTP Host")); END;
Answers
Tnx!