hallo,
ich habe mich jetzt ein wenig mit der indy 9.0 kompo idpop3 beschäftigt. mit dem folgenden quelltext lese ich die emails von meinem server aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.Button1Click(Sender: TObject);
Var Count,a,intIndex,i:Integer;
mail : tidmessage;
body,subject,pc,action:string;
begin
pop.Disconnect;
pop.Host := 'mail.hibbert.de';
pop.Username := '*******';
pop.Password := '***********';
pop.Connect;
mail := tidmessage.Create(self);
Count := pop.CheckMessages;
For a := 1 to count do
begin
pop.Retrieve(a,mail);
subject:=mail.Subject;
ListBox1.Items.Add(subject);
if Pred(mail.MessageParts.Count) = -1 then
body := mail.Body.GetText else for intIndex := 0 to Pred(mail.MessageParts.Count) do
if mail.MessageParts.Items[intIndex] is TIdText then
body:=TIdText(mail.MessageParts.Items[intIndex]).body.GetText;
memo1.Text:=body;
end;
mail.Clear;
end; |
also ich habe keine probleme damit html mails oder mail im plaintext zu empfangen. allerdings wenn ich mir nun eine email von meinem blackberry gerät an die email schicke und den bodytext auslesen möchte, erhalte ich nur das hier:
| email hat folgendes geschrieben: |
| aGliYmVydHxib290DQo= |
nun möchte ich diesen text gerne wieder in einen leserlichen text verwandeln. wenn ich die email über mein webinterface vom server abrufe kann ich den text ganz normal lesen, außer ich antworte auf die email, dann erhalte ich wieder diese "verschlüsselte" nachricht.
hat jemand vllt eine idee wie ich den text wieder leserlich bekomme?
welche information vllt noch ganz nützlich sein könnte:
| email hat folgendes geschrieben: |
Content-Type: text/plain;
charset="utf-8"
Content-Transfer-Encoding: base64 |
das heist bestimmt das der text im utf-8 format ist, aber irgendwie nicht so ganz bei mir interpretiert werden kann.
also ich bin für jede hilfe dankbar =)
mfg hibbert
hibbert
BASE64