Fórum Enviar e-mail #133650
07/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
08/02/2003
Luciano Pimenta®
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+
:)
Responder
Gostei + 0
08/02/2003
Edy Ikeoka
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
Responder
Gostei + 0
17/03/2003
Marcelo
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+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)