.:::N�o consigo faze essa desgra�a ME SOCORRAM:::.

Question

Pelo amor do Jo Soarez, n�o consigo fazer um programa que envie e-mail usando nmsmtp , ja recebi um codigo fonte de um brother gente boa, mas na hora de configurar eu me ferro, por favor, se alguem puder me ajudar eu agrade�o..........
..............Dede ja aquele abra�o.................Henry

Ajmsistemas · Answer

NMSMTP1.Host := DD.QEmailSmtp.Value; //SMTP.Servidor.com.br
NMSMTP1.Port := 25; //Porta n�o mude isso !
NMSMTP1.UserID := DD.QEmailLogin.Value; //Login de acesso...
NMSMTP1.Connect; //Mande conectar !!!
if NMSMTP1.Connected = False Then
begin // Verifica a conex�o
ShowMessage(�N�o foi possivel conectar ao Servido!�);
abort; //se n�o estiver conectado ele aborta
End
Else
begin
with NMSMTP1.PostMessage do
begin
FromAddress := DD.QEmailSeu_Email.Value; //aqui � o seu email
FromName := DD.QEmailSeu_Nome.Value; // Aqui seu nome
ToAddress.Clear; //limpa
ToAddress.Add(LabeledEdit1.Text); //Endere�os a enviar...
Subject := LabeledEdit2.Text; //Assunto do E-mail
Body.Clear; //Limpa
Body.Assign(Memo1.Lines); //Mensagem a ser Enviada
end;
if CheckBox1.Checked = True Then NMSMTP1.PostMessage.Attachments.Add(OpenDialog1.FileName); //Se tive algum anexo
NMSMTP1.SendMail; //manda o e-mail
NMSMTP1.Disconnect; //Desconecta...
ShowMessage(�E-mail enviado com Sucesso!�); //Aviso
BitBtn3.Click; //limpa os campos...
End;

Amigo qualquer d�vida entre em contato... falou... :)