ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

enviando email com indy

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gtramonte
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 117

MensagemEnviada: Seg Dez 02, 2019 8:27 pm    Assunto: enviando email com indy Responder com Citação

Ola Caros Colegas! Estou tentando enviar email usando a ferramenta Indy do Delphi 7, a linha de comando é a seguinda:

var
i: integer;
begin
try
cancelar:= false;
Screen.Cursor:= crHourGlass;
btnEnviar.Enabled:= false;
pg1.MaxValue := StrToInt(EdtNum.Text);
pg1.Progress := 0;
IdSMTP1.Host := EdtSMTP.Text;
IdSMTP1.Username:= EdtUsuario.Text;
IdSMTP1.Password := EdtSenha.Text;

if CheckBox1.Checked then
IdSMTP1.AuthenticationType:= atLogin
else IdSMTP1.AuthenticationType:= atNone;

IdMessage1.MessageParts.Clear;
if ListBoxAnexos.Items.Count > 0 then
begin
for i:= 0 to ListBoxAnexos.Items.Count - 1 do
TIdAttachment.Create(IdMessage1.MessageParts, ListBoxAnexos.Items[i]);
end;

IdMessage1.From.Address:= EdtOrigem.Text;
IdMessage1.Subject:= EdtAssunto.Text;
IdMessage1.Body.Text := mmoMsg.Lines.Text;

IdMessage1.Recipients.EMailAddresses := EdtPara.Text;
IdMessage1.BccList.EMailAddresses := EdtBCC.Text;
IdMessage1.CCList.EMailAddresses := EdtCC.Text;

if not IdSMTP1.Connected then
IdSMTP1.Connect();
for i:= 1 to pg1.MaxValue do
begin
IdSMTP1.Send(IdMessage1);
if cancelar and (Application.MessageBox('Deseja cancelar o processo?',
'Confirmação',mb_iconQuestion + mb_YesNo + mb_DefButton2) = mrYes) then
break;
cancelar:= false;
pg1.AddProgress(1);
Application.ProcessMessages;
end;
finally
IdSMTP1.Disconnect;
Screen.Cursor:= crDefault;
btnEnviar.Enabled:= true;
end;


estou usando servidor smto:

smtp.mail.yahoo.com

usuario e senha estou preenchendo o meu email , porém da um erro de socker 10060. alguém sabe me dizer como resolver?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10531
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Sex Dez 06, 2019 9:08 am    Assunto: Responder com Citação

Dê uma olhada neste artigo, muito interessante:


http://balaiotecnologico.blogspot.com/2011/04/enviando-emails-com-delphi.html
http://balaiotecnologico.blogspot.com/2011/05/enviando-emails-com-delphi-parte-ii.html
http://balaiotecnologico.blogspot.com/2011/05/enviando-emails-com-delphi-parte-iii.html

Assim você entenderá como funciona o envio de email por indy.


Se você utiliza indy antiga, terá de atualizar para uma versão mais atual.
Se você utiliza delphi 7, a versão que vem nele é muito antiga e tem muitos problemas.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
gtramonte
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 27 de Setembro de 2010
Mensagens: 117

MensagemEnviada: Sex Dez 06, 2019 7:43 pm    Assunto: Responder com Citação

Johnny! Realmente eu uso o Delphi 7 e creio que preciso mudar a ersão do Indy. Qual seria essa versão mais nova e onde baixo?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jheckson
Novato
Novato


Registrado: Domingo, 30 de Outubro de 2016
Mensagens: 27

MensagemEnviada: Ter Dez 10, 2019 4:24 pm    Assunto: Responder com Citação

gtramonte escreveu:
Johnny! Realmente eu uso o Delphi 7 e creio que preciso mudar a ersão do Indy. Qual seria essa versão mais nova e onde baixo?

Da uma olhada no componente ACBrMail
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10531
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Seg Dez 16, 2019 7:21 am    Assunto: Responder com Citação

Para instalar você deve primeiro desinstalar a indy, caso contrário você terá vários problemas com versões antigas.



http://ww2.indyproject.org/Sockets/Download/svn.EN.aspx




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB