Antonio:
Se a máquina que for rodar a aplicação tiver um cliente de e-mail instalado,
como por exemplo o Outlook Express, você pode tentar como fazemos aqui na
empresa. Ao invés do winsock usamos a classe cQOEmail do próprio centura (veja
cgmail.apl que acompanha instalação do CTD).
Ai para enviar um e-mail ficaria mais ou menos assim:
Local variables
cQOEmail: O_EMAIL
Boolean: B_RET
Actions
Call O_EMAIL.EmailConnect( '','','', EMAIL_SYS_MSMAIL)
Set B_RET = O_EMAIL.EmailSendMessage( FALSE,
STR_SUB_PM, STR_MEN_PM, STR_TO_PM,
STR_CC_PM, STR_BCC_PM, STR_ATAC_PM, 0, 0 )
Call O_EMAIL.EmailDisconnect( )
Return B_RET
Abs,
Julio Cesar Dalla Rosa
Analista de Sistemas
AlmapBBDO Comunicações Ltda.
55 11 2161-5600
[EMAIL PROTECTED]
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Antônio Cesar
Cardoso da Rocha
Enviada em: segunda-feira, 3 de abril de 2006 16:17
Para: [email protected]
Assunto: [sqlwin] Email
Olá pessoal,
Preciso enviar emails através de uma aplicação centura e estou utilizando um
exemplo disponibilizado na lista (sending_mails.zip) que trabalha através do
winsock, mas quando rodo esta aplicação a função que conecta sempre retorna -1.
Alguém já passou por isso e tem alguma dica ?
Desde já agradeço.
Antonio.
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no
Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as
aspas) ==============================================
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
