Problemas com recebimento de emails

Question

Sou iniciante em Delphi, e estou trabalhando num projeto que envia torpedos sms atrav�s do email, mas est� ocorrendo problemas ao receber algumas mensagens. O conte�do da mensagem est� correta no serv...

Massuda · Answer

Voc� poderia postar aqui como voc� est� baixando os emails? Se voc� estiver usando Indy, talvez eu possa ajudar....

Cintia_palmstudio · Answer

Estou utilizando o Indy!!!!IdPOP3 [color=green]//Recebe dados de configura��o para conectar-se ao POP3[/color]          idPOP3.Host:=Pop3Host;     idPOP3.Port:=Pop3Port;     idPOP3.Username:=Pop3Username;     idPOP3.Password:=Pop3Password;         ShowStatus(�Conectando�);     try      idPOP3.Connect;          except      on E : Exception do         begin          Result:=false;          LogError(E.helpcontext,E.Message,#13 + �Conectando�);          Abort;         end;     end;//Efetua a baixa de mensagemMsgNum := idPOP3.CheckMessages;for i:=1 to MsgNum do  begin      idMessagePop3.Clear;      idPOP3.Retrieve(i,idMessagePop3);    //Armazena o conte�do num TStringList        NovoSms.Text := idMessagePop3.Body.text;   end;PS.: Isso naum est� acontecendo com todas as mensagens!!!Valeu...

Massuda · Answer

Com rela��o ao c�digo que voc� postou, n�o vi nada estranho com rela��o ao recebimento das mensagens, mas...

MsgNum := idPOP3.CheckMessages; for i:=1 to MsgNum do begin idMessagePop3.Clear; idPOP3.Retrieve(i,idMessagePop3); //Armazena o conte�do num TStringList [color=red:098df617cb]NovoSms.Text[/color:098df617cb] := idMessagePop3.Body.text; end;

...imagino que NovoSms seja o TStringList.

Talvez seja esse seu problema... Do jeito que est� o c�digo, voc� est� perdendo o conte�do de todas as mensagens (posto em NovoSms) com exce��o da �ltima; atribuir via NovoSms.Text substitui o conte�do do NovoSms. Seria melhor fazer...

NovoSms.AddStrings(idMessagePop3.Body);

...que inclui o texto em NovoSms.

F�rum Problemas com recebimento de emails #290006