[CLOSED] Can't get email header (subject) from icloud using synapse

Forum > Networking and Web Programming

(1/1)

pcurtis:
I use this to connect to iclouds imap server,

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.CheckMail(aUsername : String; aPassword : String; aServer : String);var imap : TIMAPSend; MimeMess : TMimeMess;begin Application.ProcessMessages; imap := TIMAPSend.create; MimeMess := TMimeMess.Create; MimeMess.Header.CharsetCode := UTF_8; imap.FullSSL := true; imap.Username:=aUsername; imap.Password:=aPassword; imap.TargetHost:=aServer; imap.TargetPort := '993'; imap.Timeout := 2000; if imap.login then begin imap.SelectFolder('INBOX'); imap.FetchMess(20, MimeMess.Lines); //yes the message exists and has a subject MimeMess.DecodeMessage; ShowMessage(MimeMess.Header.Subject); ..........
The login is OK, but fetching a mail always returns empty headers.

Any ideas?

pcurtis:
Don't know what I've done but it works now

Ok, fetchmessage only gets the body on icloud, on other servers it gets headers + body

Navigation

[0] Message Index