Enviar e-mail com autenticação
21/05/2007
0
Oi pessoal, alguém sabe como enviar e-mail com SMTP autenticado via asp.net?
Estou desenvolvendo a aplicação em ambiente Delphi 2006 com Delphi for .Net utilizando o Fwk .Net 1.1
Estou desenvolvendo a aplicação em ambiente Delphi 2006 com Delphi for .Net utilizando o Fwk .Net 1.1
Jhone
Curtir tópico
+ 0
Responder
Posts
15/06/2007
Borland
Fala Jhone...
vou anexar um código... ve se é o que precisa
espero q te ajudo...
boa sorte em seus projetos....
abraços!!!
vou anexar um código... ve se é o que precisa
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs); var Mail: System.Web.Mail.MailMessage; cdoBasic : &Object; username : String; pw : string; mailServer : string; // sErro : String; begin cdoBasic := (1 as &Object); username := ´xxx@yyyy.com.br´;//usuário pw := ´yyyyy´;//senha mailServer := ´smtp.yyyy.com.br´;//endereço smtp Mail := MailMessage.create; // try with Mail do begin From := tbxNome.Text + ´<´+ txtEmail.Text + ´>´; &To := ´xxx@xxx.com.br´;//e-mail padrão para onde será enviada a msg Subject := txtAssunto.Text; Body := txtMsg.Text; BodyFormat := System.Web.Mail.MailFormat.Text; end; mail.Fields.Add(´http://schemas.microsoft.com/cdo/configuration/smtpauthenticate´, cdoBasic); mail.Fields.Add(´http://schemas.microsoft.com/cdo/configuration/sendusername´, username); mail.Fields.Add(´http://schemas.microsoft.com/cdo/configuration/sendpassword´, pw); mail.Fields.Add(´http://schemas.microsoft.com/cdo/configuration/smtpserver´, mailServer); mail.Fields.Add(´http://schemas.microsoft.com/cdo/configuration/smtpserverport´, ´25´); SmtpMail.SmtpServer := ´smtp.xxx.com.br´;//endereço smtp SmtpMail.Send(Mail) ; // except // on e: Exception do // MsgResult.Text := ´Error!´; // end; end;
espero q te ajudo...
boa sorte em seus projetos....
abraços!!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)