I suggest a better solution would be as follows, which more closes adheres
to conventions. These values have been empirically >discovered testing
with Apple Mail, MS Outlook, and Mozilla Thunderbird. They are also
described in various suggested >standards. Notice that "Normal Priority"
is typically marked by the absence of any priority marker.
procedure TCustomSmtpClient.Data;
...
if FHdrPriority < smtpPriorityNormal then begin
FHdrLines.Add('Importance: high');
FHdrLines.Add('X-Priority: 1');
end
{
else if FHdrPriority = smtpPriorityNormal then begin
FHdrLines.Add('Importance: normal');
FHdrLines.Add('X-Priority: 3');
end
}
else begin
FHdrLines.Add('Importance: low');
FHdrLines.Add('X-Priority: 5');
end;
...
Look good.
--
francois.pie...@overbyte.be
http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
