bom dia
Harbour MiniGUI Extended Edition 21.05 (Update 4)
No Outlook em:
OPÇÔES ---> FORMATO DE EMAIL ---> ASSINATURAS
podemos criar assinaturas padrões para enviar, responder e encaminhar um email, nos comandos abaixo é possÃvel incorporar uma assinatura no comando oMail:Body := TEXTOS
se não é possÃvel, haveria então a possibilidade de apenas criar o email e não envia-lo, deixando para o usuário terminar o preenchimento do email?
trocando o oMail:Send() que acredito que seja o comando final para envio e colocando outro somente de criação do email!
IF ESTA_ABERTO( "OUTLOOK.EXE" )
oOutLook := CreateObject("Outlook.Application")
oMail := oOutLook:CreateItem(0)
oRecip:= oMail:Recipients
FOR X = 1 TO LEN( VETOR_DESTINATARIO )
oRecip:Add( VETOR_DESTINATARIO[X] )
NEXT X
F := MLCOUNT( ANEXOS, 250 )
FOR X = 1 TO F
CSTR := ALLTRIM( MEMOLINE( ANEXOS, 250 , X ) )
IF !EMPTY( CSTR )
oAdjunto:=oMail:Attachments
oAdjunto:Add( CSTR )
ENDIF
END FOR
oMail:Subject := ASSUNTO
oMail:Body := TEXTOS
oMail:Send()
ENDIF
abraço