Outlook üzerindeki maillere ulaşmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Outlook üzerindeki maillere ulaşmak
S.a. Arkadaşlar Microsoft Outlook üzerindeki maillere nasıl ulaşabilirim tabi kısaca database de diyebiliriz. Bunu destekleyen componentler veya free bu olayı önceden yapılmış open source projeler varmıdır. Şimdiden yardımlarınız için teşekkür ederim.
- sadettinpolat
- Moderator
- Mesajlar: 2131
- Kayıt: 07 Ara 2003 02:51
- Konum: Ankara
- İletişim:
Entwickler forum da bir örnek buldum umarim yardimci olur
procedure TForm1.ToolButtonListClick(Sender: TObject);
var
DefNamespace : NameSpace;
Folder : MAPIFolder;
ItemColl : Items;
MI : MailItem;
begin
OutlookApplication1.Connect;
DefNameSpace := OutlookApplication1.GetNamespace('MAPI');
Folder := DefNameSpace.GetDefaultFolder(olFolderInbox);
// 4. eMail Gösterimi
MI := Folder.Items.Item(4) as MailItem;
ListBox1.Items.Add(Format('Subject: %s' , [MI.Subject]));
if Supports(Folder.Items.Item(4), MailItem, aObj) then
MI.UnRead := True;
MI.Save;
OutlookApplication1.Disconnect;
StatusBar1.SimpleText := 'Bitti.';
end;
http://www.entwickler-forum.de/webx?50@ ... @.1dd03fab
procedure TForm1.ToolButtonListClick(Sender: TObject);
var
DefNamespace : NameSpace;
Folder : MAPIFolder;
ItemColl : Items;
MI : MailItem;
begin
OutlookApplication1.Connect;
DefNameSpace := OutlookApplication1.GetNamespace('MAPI');
Folder := DefNameSpace.GetDefaultFolder(olFolderInbox);
// 4. eMail Gösterimi
MI := Folder.Items.Item(4) as MailItem;
ListBox1.Items.Add(Format('Subject: %s' , [MI.Subject]));
if Supports(Folder.Items.Item(4), MailItem, aObj) then
MI.UnRead := True;
MI.Save;
OutlookApplication1.Disconnect;
StatusBar1.SimpleText := 'Bitti.';
end;
http://www.entwickler-forum.de/webx?50@ ... @.1dd03fab