assinatura no Outlook

[Amparo]

ola amigos,

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!

Código: Selecionar todos

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

[JoséQuintas]

E porque não:

Código: Selecionar todos

oMail:Body := TEXTOS + ASSINATURA

[Amparo]

OLA AMIGOS

bom dia

Jose Quintas, acredito que só funcione se a ASSINATURA em : oMail:Body := TEXTOS + ASSINATURA

for texto também, se for um arquivo PNG por exemplo não vai dar certo. vamos testar.

[Amparo]

OLA MIGOS

bom dia

foi como disse não da certo, o email saiu com a imagem do lado esquerdo quando o correto deveria ser a do lado direito.