.:::Não consigo faze essa desgraça ME SOCORRAM:::.
13/02/2003
0
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
..............Dede ja aquele abraço.................Henry
Henry
Curtir tópico
+ 0
Responder
Posts
13/02/2003
Ajmsistemas
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... :)
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... :)
Responder
Clique aqui para fazer login e interagir na Comunidade :)
