да хоть вот так (оптимизируй сам):
| Код |
var
i, j, len : integer;
all_t, XMailer : string;
begin
len:=length('X-Mailer:');
i:=pos('X-Mailer:',all_t);
if i=0 then
exit;
j:=PosEx(#13#10,all_t,i);
XMailer:=copy(all_t,i+len+1,j-i-len);
end
|
в all_t - текст сообщения с RFC полями
| Цитата |
как говорится для дальнейшего разбора полетов, потому как письма отправленные разными прогами имеют разное разположение атача.
|
а если почтовую программу перепишут (и заголовки будут идти в другом порядке) или вообще письмо придет без X-Mailer? тебе самому нужно разбирать RFC поля и выделять их значения. |