Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c