Fórum Enviar email Delphi7 #396112

ola barrys, tenho um e-mail sender que eu fiz em delphi 7, e funciona bem, alguns servidores reconhecem o componente indy como span. se você ainda nao resolveu seu problema posso te enviar o meu ssitema com osfontes para vc ver mas é bem simples.


//os compnentes são apenas dois no formulário
//idsmtp
//idmesasage

idsmtp1.port:=25;
idsmtp1.host:=mail_seuprovedor.com;//seu servidor de e-mail
idsmtp1.username:=seu_usuário da conta de e-mail;
idsmtp1.password:=sua_senha_do_email;
idsmtp1.authenticationtype:=atlogin;
idsmtp1.connect(0);

//o seu endereço de e-mail
idmessage1.from.address :=email_originário_da_mensagem;
//aqui vai o endereço de e-mail para o qual você quer mandar o e-mail, se mais emails colocar separado por virgula
idmessage1.recipients.emailaddresses :=seu_mail_aqui;
//o assunto da mensagem
idmessage1.subject :=feliz aniversario;
//conteudo da mensagem
idmessage1.body.add(seu assunto de mensagem);


try
idsmtp1.send(idmessage1);
finally
idsmtp1.disconnect;
end;
application.messagebox(email enviado com sucesso!, confirmação,
mb_iconinformation +   mb_ok);
end;

IdSMTP1.AuthenticationType:=atLogin;

IdSMTP1.AuthType := atDefault