Boa tarde,
Alguém já tentou utilizar o me Save da classe tMailMessage ?
Quando utilizo ele salva o arquivo vazio sem dados.
MailMsgSave := tMailMessage():New()
MailMsgSave:Clear()
MailMsgSave:cFrom := cFrom
MailMsgSave:cTo := cEmails
MailMsgSave:cCC := cCopia
MailMsgSave:cBcc := ''
MailMsgSave:cSubject := cAssunto
MailMsgSave:cBody := cMensagem
MailMsgSave:MsgBodyType( "text/html" )
IF Len(aAttach) > 0
For nX := 1 To Len(aAttach)
if file( aAttach[nX] )
MailMsgSave:AttachFile( aAttach[nX] )
EndIF
Next nX
EndiF
MailMsgSave:Save( "\workflow\SaveEmails\" + FWUUIDV1(.T.) + ".eml")