Enviar email Delphi7

Delphi

21/02/2011

Boa noite!

Gostaria de saber se alguem envia emails utilizando Delphi7..  e de preferencia com componente Indy...   eu tenho vários exemplos aqui mas o máximo que consegui foi conectar o IdPOP31



Barrys

Barrys

Curtidas 0

Melhor post

Leonardo Xavier

Leonardo Xavier

22/02/2011

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;

GOSTEI 1

Mais Respostas

Barrys

Barrys

21/02/2011

Eu tava tentando usar a porta 465 para gmail e não tava dando certo...  nao sabia desta porta 25

agora vou testar enviar com anexos...

Obrigado LEONARDO XAVIER!
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

21/02/2011


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;




Ola! Uso Delphi 7 e versão do Indy aqui diz que é a 10.1.5
quando eu digito 
IdSMTP1.AuthenticationType:=atLogin;

só aparece 
IdSMTP1.AuthType := atDefault
ai não consigo enviar o e-mail pelo Gmail o que devo fazer?
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

21/02/2011

Já pode fechar o tópico porque: 
IdSMTP1.AuthType := atDefault


esta correto o que muda é a versão do indy
GOSTEI 0
Barrys

Barrys

21/02/2011

Utilizo o Avast como anti-virus e estou com problemas.
tenho que liberar a porta 587 ou 465 para poder enviar emails pelo Indy via Delphi 7

alguem sabe alguma rotina para liberar essas portas no anti virus automático?


GOSTEI 0
POSTAR