ActiveDelphi

[gtramonte]

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?

[johnny-walker]

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

[gtramonte]

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?

[jheckson]

[johnny-walker]

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