Форум: "Потрепаться";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Вниз

M$ WAB   Найти похожие ветки 

← →
123000   (2002-12-21 16:48) [0]

Мастера!
Подскажите, ка получить все e-mail"ы из адресной книги Windows(Windows Address Book)???

---

← →
XMblPb   (2002-12-21 16:51) [1]

2123000
???

2ALL
Действительно, мастера, помогите. Мне тоже надо знать!

---

← →
Song   (2002-12-21 18:21) [2]

вам на www.xakep.ru

---

← →
123000   (2002-12-21 22:02) [3]

та процедура с Xakera не работает!
Помогите!

---

← →
Troll   (2002-12-21 22:11) [4]

ну тогда вам на Lamer.com

---

← →
XMblPb   (2002-12-21 22:46) [5]

Удалено модератором

---

← →
Cobalt   (2002-12-21 22:53) [6]

Поищи на MSDN(если уж тут такие все подозрительные). Кстати, интересно было-бы увидеть хотя бы ссылку на метод Хакера...

---

← →
Torry   (2002-12-22 14:10) [7]

http://www.torry.net/comanddcom.htm#5296

---

← →
Сатир   (2002-12-22 14:14) [8]

Спаммеры всех стран объединяйтесь!

...уже слышу возласы: "Мы - не спаммеры!"...
ладно-ладно, знаем мы вас...

---

← →
123000   (2002-12-23 19:45) [9]

> Cobalt

uses
ComObj, outlook_tlb,
Forms;
....
Procedure GETMAILS;
var
MyFolder, MSOutlook, MyNameSpace, MyItem: Variant; s: string;
num, i: Integer;
mails: array of string;

begin
MSOutlook := CreateOleObject("Outlook.Application");
MyNameSpace := MSOutlook.GetNameSpace("MAPI");
MyFolder := MyNamespace.GetDefaultFolder(olFolderContacts);
SetLength (mails,MyFilder.Items.Count);
for i := 1 to MyFolder.Items.Count do
begin
MyItem := MyFolder.Items[i];
mails[i]:= myitem.email1addres;
end;

end.

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c