Problemas com recebimento de emails
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 servidor de email porém ao baixá-la pela aplicação o seu conteúdo está vazio!!!!
O conteúdo naum está codificado e estou tentando recuperá-lo pelo body, mas ainda assim está vazio!!!!!
Alguém saberia me dizer o q pode estar ocorrendo?
Valeu[/b]
O conteúdo naum está codificado e estou tentando recuperá-lo pelo body, mas ainda assim está vazio!!!!!
Alguém saberia me dizer o q pode estar ocorrendo?
Valeu[/b]
Cintia_palmstudio
Curtidas 0
Respostas
Massuda
29/07/2005
Você poderia postar aqui como você está baixando os emails? Se você estiver usando Indy, talvez eu possa ajudar.
GOSTEI 0
Cintia_palmstudio
29/07/2005
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 mensagem
MsgNum := 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
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 mensagem
MsgNum := 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
GOSTEI 0
Massuda
29/07/2005
Com relação ao código que você postou, não vi nada estranho com relação ao recebimento das mensagens, mas...
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......que inclui o texto em NovoSms.
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);
GOSTEI 0