| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как произвести экспорт в аутлуке?

grigory ©   (2005-01-12 15:25:00) 

Здравствуйте! Кто-нибудь знает как прогаммно произвести экспорт в аутлуке,например в эксель? адресной книги..или контактов?

---

grigory   (2005-01-17 20:44:00) [1]

хе..спасибо:))..но я немного не то имел в виду! Экспорт не вручную..а как в аутлуке есть в опциях файл/экспорт..
Обращаться к Email1Address нельзя..окно выскочит с безопасностью,что недопустимо!

---

GanibalLector   (2005-01-13 00:49:00) [2]


const olFolderContacts = $0000000A;
var outlook, NameSpace, Contacts, Contact,XLAPP: OleVariant;
i: Integer;st:string;
begin outlook := CreateOleObject('Outlook.Application');
NameSpace := outlook.GetNameSpace('MAPI');
Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
for i := 1 to Contacts.Items.Count do begin
Contact := Contacts.Items.Item(i);
st:=st+ Contact.FullName +#9+ Contact.Email1Address +#10;
end;
Outlook := UnAssigned;
// Excel
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';
XLApp.Workbooks[1].WorkSheets[1].Range['A1'].Select;
ActivateKeyboardLayout(LoadKeyboardLayout('00000419',0),0);
Clipboard.AsText := st;
XlApp.Workbooks[1].ActiveSheet.Paste;
XLApp.Workbooks[1].WorkSheets[1].Range['A1'].Select;
XlApp:=Unassigned;
end;


---

Наверх