Having problems with message search?
Hi Okada,
thanks for your help.
with your Source Code below.(Part.Parent : Part doesn't have Parent )
if (Part = Self) or ((Part.Parent=Self) and (Self.GetAttachInfo = _M_A)) then begin ---Something like this !
I changed your Code to
if (Part = Self) or (Self.GetAttachInfo = _M_A) then begin ---Something like this !
Then I have other Problems
1. if the Mail has THML Body and Attachment File, then you have the origin Mail packed in a HTML File als Attachment, and the Body is Plaintext.
2. if the Mail has HTML Body and Plaintext Attachment File, then you the Plaintext Attachment in Body, and the origin Mail in a HTML File als Attachment.
if I also change this Part below, then I don't have Body, if the origin Mail has HTML Body.
&nbs!
p; if (FTextPlainPart = nil) and (Info = _T_P) then
begin
if Part.Decode and (Part.Decoded.Size > 0) then
begin
if (Part = Self) or (LowerCase(Self.GetAttachInfo) = _M_A) then -- Zhentao added
begin
FTextPlainPart := Part;
GetMem(Buffer, Part.FDecoded.Size+1);
StrLCopy(Buffer, Part.FDecoded.Memory, Part.FDecoded.Size);
Buffer[Part.FDecoded.Size] := #0;
FTextPlain.SetText(Buffer);
&nb!
sp; FreeMem(Buffer);
nbsp; Result := True;
end;
end;
end;
regards
tmail2000@yahoogroups.com schrieb am 14.09.05 04:21:12:
"Zhentao Song" z.song@... schrieb am 07.09.05 15:24:14: 2. A Mail has Plaintext Body, and contains a THML File as Attachment. I have Problem with such Mail, if I put this Mail in TMailMessage2000, then the contents of the Attachment is put in the Property TextHTML, and show in the HTML Body, there is not Attachment in TMailMessage2000. Mail2000's current implementation treats the first text/html part found in the message as TextHTML. And this is your expectation: If Mess! age.ContentType = 'text/html' treat the first text/html part as TextHTML. If Message.ContentType = 'multipart/alternative' treat the first text/html part in the children of the message part. ##WARNING ### I have never tested this code .##### if (FTextHTMLPart = nil) and (Info = _T_H) then begin if Part.Decode and (Part.Decoded.Size 0) then begin if (Part = Self) or ((Part.Parent=Self) and (Self.GetAttachInfo = _M_A)) then begin ---Something like this ! FTextHTMLPart := Part; GetMem(Buffer, Part.FDecoded.Size+1); StrLCopy(Buffer, Part.FDecoded.Memory, Part.FDecoded.Size); Buffer[Part.FDecoded.Size] := #0; FTextHTML.SetText(Buffer); FreeMem(Buffer); end; Result := True; end; end; ------------------------ Yahoo! Groups Sponsor --------------------~--> Fair play? Video games influencing politics. Click and talk back! http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/! i7folB/TM --------------------------------------------------------- -----------~-> ============================================================= The group's home page is here: http://groups.yahoo.com/group/tmail2000/ To post a message: send email to: tmail2000@yahoogroups.com or go here: http://groups.yahoo.com/group/tmail2000/post To modify your subcription options (e.g. stop receiving discussions) go to: http://groups.yahoo.com/mygroups/tmail2000/join or http://groups.yahoo.com/convwiz To subscribe/unsubscribe, send blank email to: tmail2000-subscribe@yahoogroups.com tmail2000-unsubscribe@yahoogroups.com To talk only with the moderator, developer of TMail2000, write email to: mycelo@... Please expect 1-2 weeks for my response. PLEASE POST IN ENGLISH! Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/tmail2000/ <*> To unsubscribe from this group, send an email to: tma! il2000-unsubscribe@yahoogroups.com <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/ |
 |
| Erweitern Sie FreeMail zu einem noch leistungsstärkeren E-Mail-Postfach! Mehr Infos unter http://freemail.web.de/home/landingpad/?mc=021131 |
Send Email
