|
|
Az Outlook határidőnaplójának kezelése programból
Office 15. rész
|
|
Példaprogram letöltése
37223 bájt
|
Az Outlook programozásáról szóló cikkekben eddig csak a levelezéssel kapcsolatos dolgokkal foglalkoztunk, pedig az Outlook nem csupán egy egyszerű levelezőprogram, hanem többek között tartalmaz egy nagyon jól használható határidőnaplót is. Ebben a cikkben azt nézzük meg, hogy ebbe a határidőnaplóba hogyan vehetünk fel új, illetve hogyan törölhetünk felesleges bejegyzéseket.
A feladat amit a példában megvalósítunk az lesz, hogy egy ListView komponensben megjelenítjük a naptárbejegyzéseket. Ha a listából kiválasztunk egy bejegyzést, akkor annak részletes leírása (ha van ilyen) megjelenik egy TRichEdit komponensben. A naptárba vehetünk fel új bejegyzést, és törölhetjük is a kiválasztott elemet.
A naptárbejegyzések lekérdezéséhez létrehoztunk egy GetAppointments nevű eljárást. Megszokhattuk már, hogy ha egy Outlook mappában lévő elemekre van szükségünk, akkor mindenképpen szükségünk lesz egy NameSpace objektumra. A NameSpace objektum GetDefaultFolder függvényével lekérdezzük a Naptár mappa objektumát amit az FFolder változóban tárolunk.
FNamespace:=FOutlook.GetNamespace('MAPI');
FFolder:=FNamespace.GetDefaultFolder(olFolderCalendar);
for i:=1 to FFolder.Items.Count do begin
FAptItem:=FFolder.Items(i);
li:=ListView1.Items.Add; li.Caption:=FAptItem.Subject;
li.SubItems.Add(FAptItem.Start); li.SubItems.Add(FAptItem.End);
end;
end;
Először ellenőrizzük, hogy van-e kiválasztott elem:
if Assigned(ListView1.Selected) then begin
FNamespace:=FOutlook.GetNamespace('MAPI');
FFolder:=FNamespace.GetDefaultFolder(olFolderCalendar);
FAptItem:=FFolder.Items(ListView1.Selected.Index+1);
RichEdit1.Text:=FAptItem.Body;
A CreateItem függvénnyel készítünk egy új AppointMent objektumot, amit az FAptItem változóban tárolunk. A függvény paraméterének olAppointmentItem-nek kell lennie!
FAptItem:=FOutlook.CreateItem(olAppointmentItem);
FAptItem.Subject:=Edit1.text;
FAptItem.Body:='Felvétel időpontja: '+TimeToStr(Time);
FAptItem.Save;
FNamespace:=FOutlook.GetNamespace('MAPI');
FFolder:=FNamespace.GetDefaultFolder(olFolderCalendar);
FAptItem:=FFolder.Items(ListView1.Selected.Index+1);
FAptItem.Delete;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 430. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|