enviar email
02/06/2005
0
Oi pessoal, por favor alguem tem algum exemplo, dica ou sugestão de como enviar email pelo delphi .net, fiz layout para fale conosco, só falta enviar :D
Agradeço desde já
César
Agradeço desde já
César
Cesarpir
Curtir tópico
+ 0
Responder
Posts
02/06/2005
N1
Veja se isto serve:
1-acrescente em uses a cláusula:System.Web.Mail
2-A partir de http://delphi.about.com adaptei o código abaixo:
(no evento onclick de um button)
var
msg : System.Web.Mail.MailMessage;
begin
msg := MailMessage.Create;
try
begin
with msg do
begin
From := ´fulano@empresa.com.br´;
&To := ´ciclano@ciclano.com.br´;
Subject := ´título qualquer´;
Body := ´corpo da mensagem´;
BodyFormat := System.Web.Mail.MailFormat.Text;
end;
SmtpMail.SmtpServer := ´smtp do seu provedor´;
SmtpMail.Send(msg) ;
end
except on e : Exception do
response.Write(´ocorreu um erro no envio do e-mail´);
end;
end;
para mais detalhes veja no help do Delphi, procure por MailMessage
1-acrescente em uses a cláusula:System.Web.Mail
2-A partir de http://delphi.about.com adaptei o código abaixo:
(no evento onclick de um button)
var
msg : System.Web.Mail.MailMessage;
begin
msg := MailMessage.Create;
try
begin
with msg do
begin
From := ´fulano@empresa.com.br´;
&To := ´ciclano@ciclano.com.br´;
Subject := ´título qualquer´;
Body := ´corpo da mensagem´;
BodyFormat := System.Web.Mail.MailFormat.Text;
end;
SmtpMail.SmtpServer := ´smtp do seu provedor´;
SmtpMail.Send(msg) ;
end
except on e : Exception do
response.Write(´ocorreu um erro no envio do e-mail´);
end;
end;
para mais detalhes veja no help do Delphi, procure por MailMessage
Responder
09/06/2005
Cesarpir
Obrigado vou testar somente agora :oops: , estava fora, desculpe pela demora em te agradecer !
César
César
Responder
Clique aqui para fazer login e interagir na Comunidade :)