Enviar e-mail
Olá elite da programação Delphi, venho mais uma vez pedir vossas ajudas.
Como eu faço para enviar um e-mail através dos meus programas? Tentei usar o objeto de smtp da paleta internet, mas naum entendi muita coisa sobre como usá-lo.
Grato antecipadamente
Poeta Noturno
Como eu faço para enviar um e-mail através dos meus programas? Tentei usar o objeto de smtp da paleta internet, mas naum entendi muita coisa sobre como usá-lo.
Grato antecipadamente
Poeta Noturno
Anonymous
Curtidas 0
Respostas
Luciano Pimenta®
07/02/2003
Eu utilizo o próprio OutLook, ou o correio eletrônico padrão através da linha:
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
onde mail é uma variável que contem o email: mailto:lucianopimenta@msn.com
T+
:)
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
onde mail é uma variável que contem o email: mailto:lucianopimenta@msn.com
T+
:)
GOSTEI 0
Edy Ikeoka
07/02/2003
Caro Poeta.
O que exatamente vc na entendeu.
Eu desenvolvi uma aplicacao de envio de mails. Acredito que resolva seu problema.
Qualquer coisa entre em contato.
Abracos.
Edy Ikeoka.
edyikeoka@yahoo.com
O que exatamente vc na entendeu.
Eu desenvolvi uma aplicacao de envio de mails. Acredito que resolva seu problema.
Qualquer coisa entre em contato.
Abracos.
Edy Ikeoka.
edyikeoka@yahoo.com
GOSTEI 0
Marcelo
07/02/2003
No evento onclik e digite o seginte codigo:
...
[b:759d45d4d1]begin [/b:759d45d4d1]
ShellExecute(0,´Open´,´Mailto:nomedoemail@empresa.com.br´,nil,nil,1);
[b:759d45d4d1]end[/b:759d45d4d1];
Valeu?
at+
...
[b:759d45d4d1]begin [/b:759d45d4d1]
ShellExecute(0,´Open´,´Mailto:nomedoemail@empresa.com.br´,nil,nil,1);
[b:759d45d4d1]end[/b:759d45d4d1];
Valeu?
at+
GOSTEI 0