E-MAIL

Olá! GOstaria de saber como faço para enviar e-mail via progress???? Utilizando o outlook...

Obrigado

Consegui resolver meu problema me baseando no programa dzpd006.w da datasul\
abrc's

Procure no fórum!

sim baltazar eu procurei e não encontrei nada, por isso abri este tópico, mas o problema já está resolvido

Oi Will !!!!
Faça a procura utilizando a palavra:

Outlook

Vale a pena !!!!

Abraços

glera consegui por conta resolver vlw pelas dicaas segue o código

procedure p-abre-outlook: /* Microsoft Outlook */

CREATE "Outlook.Application" h_objoutlook.

h_objoutlookmsg = h_objoutlook:CreateItem(0).

END.

PROCEDURE p-adiciona-email:
DEF INPUT PARAM endereco AS CHAR.

h_objoutlookrecip = h_objoutlookmsg:Recipients:Add(endereco).
h_objoutlookrecip:Type = 3.

END.

procedure p-envia :
DEF INPUT PARAM assunto AS CHAR.
DEF INPUT PARAM mensagem AS CHAR.

h_objoutlookmsg:Subject = assunto.
h_objoutlookmsg:Body = mensagem.
h_objoutlookrecip:Resolve.
h_objoutlookmsg:Send.
/* h_objoutlook:Quit(). */

/* RELEASE OBJECT h_objoutlook.*/
RELEASE OBJECT h_objoutlookmsg.
RELEASE OBJECT h_objoutlookrecip.
end.

é só chamar as rotinas na ordem que estão