Erro ao Enviar Anexo (Delphi 2010 + SMTP)

Delphi

29/07/2013

Ae galera to como o seguinte problema, depois de bater muita cabeça pra conseguir enviar emails(pelo gmail) direto da aplicação, não consigo enviar com anexos, fica dando o seguinte erro : "Socket Error # 10060 Connection time out". Pelo que eu pude entender , eu acho que ele não consegue carregar o anexo e enviar , vou colocar o código responsável pelo envio de emails , vlww
procedure TF_Email.btnEnviarClick(Sender: TObject);
var i : integer;
begin
     btnEnviar.Enabled := false;
     Screen.Cursor := crHourGlass;


     //anexar arquivos
   if lbAnexos.Items.Count >0 then
     begin
       for I := 0 to lbAnexos.Items.Count -1 do
         TIdAttachmentFile.Create(Mesage.MessageParts, lbAnexos.Items[i]);

     end;
     //email do remetente
     Mesage.From.Name := dbRemetente.Text;

     //email do destinatário
     Mesage.Recipients.EMailAddresses := dbDestinatario.Text;

     //assunto
     Mesage.Subject := dbAssunto.Text;

     //conteúdo do email
     Mesage.Body.Text := memoMSG.Lines.Text;
     try
     SMTP.Authenticate;
     if not smtp.Connected then  SMTP.Connect() ;

     except
      showmessage('Nao Conectou');
     end;

   try
       SMTP.Send(mesage);
       showmessage('Mandou Mensagem');
       Screen.Cursor := crDefault;
     btnEnviar.Enabled := true;
     except
     SMTP.Disconnect;
     end;

end
Rodrigo Alexandrino

Rodrigo Alexandrino

Curtidas 0

Respostas

Rodrigo Alexandrino

Rodrigo Alexandrino

29/07/2013

Alguem ?
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

29/07/2013

Opa rodrigo, estava com o mesmo problema, parece que no começo deste ano o GMAIL mudou alguma configuração, não sei afirmar. Mas eu tinha um programa que mandava e-mail, uns pdfs para uns clientes, mas do nada ele parou de enviar.

Quando eu fui estudar mais a fundo, era o antivírus que estava bloqueando, dai eu decidi fechar tudo, skype, gtalk, filezilla, e o antivirus, e consegui enviar com a mesma rotina. Tenta fazer isso e vamos ver se resolve, blz?

abs
GOSTEI 0
POSTAR