PC Toledo

Enviado: **29 Jul 2016 15:25**

ola amigos

atualmente em meu sistema utilizo uma função para enviar emails para o Outlook conforme abaixo, gostaria de saber se existe alguma forma de fazer o mesmo para o Thunderbird ou outro gerenciador de email, alguém sabe e pode disponibilizar material para estudo.

abraços Amparo

Código: Selecionar todos

...
oOutLook := CreateObject("Outlook.Application")
oMail := oOutLook:CreateItem(0)
oRecip:= oMail:Recipients
oRecip:Add( DESTINATARIO )

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()

ola amigos

será que nem em harbour é possível fazer isso? temos que ficar com o Outlook mesmo??

ola amigos

montei o post porque vira e mexe da o erro na execução do sistema cfe abaixo:

ERRO BASE/1132 ERRO DE LIMITE: acesso de array

a linha que da o erro é esta:

oRecip:= oMail:Recipients

esse erro só acontece se o outlook estiver fechado ou não esta instalado na maquia, PERGUNTO, existe alguma forma de checar e o outlook esta sendo executado?

abraços