|
|
Outlook programozása Delphi-ből
Office 12. rész
|
|
Példaprogram letöltése
40180 bájt
|
Az Office cikksorozatban eddig a Word és az Excel alkalmazások programozásával foglalkoztunk. Most rátérünk a Microsoft Outlook programozásának ismertetésére, amiből megtudhatjuk majd, hogy hogyan kérdezhetjük le és hogyan küldhetünk e-mail-eket, hogyan érhetjük el és módosíthatjuk a címlistát, valamint hogyan kezelhetjük a határidőnaplót.
Azt nem árt tisztázni már az elején, hogy ehhez is szükségünk lesz egy Type Library-ra. Aki figyelmesen végigolvasta az Office programozásáról szóló cikksorozatot annak a Type Libary generálása már nem okozhat gondot. Ha ez megtörtént, akkor neki is kezdhetünk az Outlook programozásának.
Mivel a kapcsolat létesítése itt is ugyanúgy történik, mint a Word és az Excel esetében, ezért kezdhetjük mindjárt egy "komolyabb" program készítésével. A feladat az lesz, hogy lekérdezzük a "Beérkezett üzenetek" mappában lévő leveleink listáját, és a kiválasztott üzenet szövegét megjelenítjük egy TRichEdit komponensben.
A csatlakozás az Outlook-hoz a már feltehetőleg jól ismert módon történik:
var
Foutlook: OleVariant;
…
procedure TForm1.Connect;
begin
FOutlook:=CreateOleObject('Outlook.Application');
end;
Meghívjuk a Connect metódust, ami elvégzi a csatlakozást (lásd fent).
Szükségünk lesz egy NameSpace objektumra, amit a GetNameSpace függvénnyel kérdezhetünk le. Ennek a függvénynek egy sztring paramétere van, ami minden esetben "MAPI" kell, hogy legyen!
FNamespace:=FOutlook.GetNameSpace('MAPI');
FFolder:=FNamespace.GetDefaultFolder(olFolderInbox);
for i:=1 to FFolder.Items.Count do begin
FMailItem:=FFolder.Items(i);
li:=ListView1.Items.Add;
li.Caption:=FMailItem.SenderName;
li.SubItems.Add(FMailItem.Subject);
li.SubItems.Add(FMailItem.ReceivedTime);
end;
end;
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var
FNamespace, FFolder, FMailItem: OleVariant;
begin
if Assigned(ListView1.Selected) then begin
FNamespace:=FOutlook.GetNamespace('MAPI');
FFolder:=FNamespace.GetDefaultFolder(olFolderInbox);
Ha nincs kiválasztott eleme a ListView-nek, akkor töröljük a RichEdit tartalmát.
FMailItem:=FFolder.Items(ListView1.Selected.Index+1);
RichEdit1.Text:=FMailItem.Body;
end else RichEdit1.Clear;
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 389. 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!
|