Текущий архив: 2005.10.23;
Скачать: CL | DM;
Вниз
Как произвести экспорт в аутлуке? Найти похожие ветки
← →
grigory © (2005-01-12 15:25) [0]Здравствуйте! Кто-нибудь знает как прогаммно произвести экспорт в аутлуке,например в эксель? адресной книги..или контактов?
← →
GanibalLector © (2005-01-13 00:49) [1]
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;
← →
grigory © (2005-01-17 20:44) [2]хе..спасибо:))..но я немного не то имел в виду! Экспорт не вручную..а как в аутлуке есть в опциях файл/экспорт..
Обращаться к Email1Address нельзя..окно выскочит с безопасностью,что недопустимо!
Страницы: 1 вся ветка
Текущий архив: 2005.10.23;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.041 c
