Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
gtramonte Aprendiz

Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
Enviada: Seg Dez 02, 2019 8:27 pm Assunto: enviando email com indy |
|
|
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 |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
|
Voltar ao Topo |
|
 |
gtramonte Aprendiz

Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
Enviada: Sex Dez 06, 2019 7:43 pm Assunto: |
|
|
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 |
|
 |
jheckson Novato

Registrado: Domingo, 30 de Outubro de 2016 Mensagens: 27
|
Enviada: Ter Dez 10, 2019 4:24 pm Assunto: |
|
|
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 |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
|
Voltar ao Topo |
|
 |
|