Array
(
)

Enviar e-mail com autenticação

Jhone
   - 21 mai 2007

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

Borland
   - 15 jun 2007

Fala Jhone...

vou anexar um código... ve se é o que precisa
#Códigoprocedure 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!!!