Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Получить адрес отправителя

Автор: RedArrow 8.10.2004, 15:41

Уважаемые Гуру! Подскажите, пожалуйста, как мне в Outlook'е вытянуть адрес отправителя из пришедшего сообщения. Свойство MailItem.SentOnBehalfOfName выдает мне только имя, если адрес в формате 'Имя[Адрес]'.

Автор: Pakshin A. S. 8.10.2004, 16:32

Разделать эту строку?
Запросто

Код


function ExtractAddress(Str:string):string;
var
 s:string;
begin
 s:=str;
 Delete(s, Length(s), 1);
 Delete(s,1 , Pos('[', s) {или параметры функции наоборот});
 Result:=s
end;

Автор: RedArrow 8.10.2004, 17:15

Pakshin A. S.
В том-то и дело, что не эту строку разделать надо, потому, что показывается только Имя, Адрес не показывается.