E
Elvis
Есть куча информация, про то как выдрать адресс отправителя из сообщения Оутлук, но не нашёл как выдрать адрес адрессата. Я не использую напрямую МайлАйтем, а делаю через ОлеВариант
Ниже надо выдирать адресс адрессата, стандартное MyItem.To_ ругается что типа обьект не имеет метода To_
Помогите найти выход из данной ситуации.
Заранее благодарен.
Код:
outlook, NameSpace: OLEVariant;
MyFolder: OLEVariant;
MyItem: Variant;
outlook := CreateOleObject('outlook.application');
NameSpace := outlook.GetNameSpace('MAPI');
MyItem := outlook.CreateItem(olMailItem);
MyFolder := Namespace.GetDefaultFolder(olFolderInbox);
for i := 1 to MyFolder.Items.Count do
begin
MyItem := MyFolder.Items[i];
s:= MyItem.Subject;
s1:= MyItem.SenderName;
attCounter := MyItem.Attachments.Count;
Помогите найти выход из данной ситуации.
Заранее благодарен.