Fórum Email pelo Delphi 7 #225352

[color=red:85c23a2862][b:85c23a2862]Estou fazendo um programa para envio de email com o Delphi 7, porem nao estou conseguindo fazer, sera que alguem poderia me ajudar ???

Estou usando componentes Indy, vou enviar via SMTP, POP, com email no ig e linha discada .. isso precisa de alguma programacao diferenciada ??

Fiz o seguinte :

procedure TForm_GerarPedido.btnEnviarClick(Sender: TObject);
Var
xAnexo : Integer;
begin

IdMessage.Recipients.EMailAddresses := EdtPara.Text;
IdMessage.CCList.EMailAddresses := EdtCC.Text;
IdMessage.BccList.EMailAddresses := EdtCCo.Text;

//Trata a Prioridade da mensagem
Case CbxPrioridade.ItemIndex Of
0 : IdMessage.Priority := mpHigh;
1 : IdMessage.Priority := mpNormal;
2 : IdMessage.Priority := mpLow;
End;

IdMessage.Subject := EdtAssunto.Text;
IdMessage.Sender.Text := mmMensagem.Lines.Text;

If CbxConfirmaleitura.Checked Then
IdMessage.ReceiptRecipient.Text := IdMessage.From.Text; // Auto Resposta

For xAnexo := 0 to mmAnexos.Lines.Count-1 do
TIdAttachment.create(idmessage.MessageParts, TFileName(mmAnexos.Lines.Strings[xAnexo]));


IdSMTP.Connect;

Try
IdSMTP.Send(IdMessage);
Finally
IdSMTP.Disconnect;
End;
end;

E esta me dando o seguinte erro ...

Project menu.exe raised execption class EidSocketError with message ´socket error # 10060 connection timer out.´. Process stopped[/b:85c23a2862][/color:85c23a2862]

Obrigado.

Beto[/img]