begin
email := CkEmail_Create();
// Load an email from a .eml
success := CkEmail_LoadEml(email,'embeddedEmail.eml');
if (success <> True) then
begin
Memo1.Lines.Add(CkEmail__lastErrorText(email));
Exit;
end;
// Display how many attached emails are embedded within
// this one:
numAttached := CkEmail_getNumAttachedMessages(email);
Memo1.Lines.Add('numAttached = ' + IntToStr(numAttached));
// Get the 1st attached message.
email2 := CkEmail_GetAttachedMessage(email,0);
if (not (email2 = nil )) then
begin
// Display the subject, From, and a header field...
Memo1.Lines.Add(CkEmail__subject(email2));
Memo1.Lines.Add(CkEmail__from(email2));
Memo1.Lines.Add(CkEmail__getHeaderField(email2,'X-SOMETHING'));
end;
CkEmail_Dispose(email);
end;
<a href="https://support.google.com/blogger/bin/answer.py?answer=42448" target="_blank">
No comments:
Post a Comment