有關OUTLOOK的通訊群組清單，如何轉換成delphi程式碼？ |
|
答題得分者是：hagar
|
|
tangkh
一般會員   發表：26 回覆：28 積分：10 註冊：2002-09-11 發送簡訊給我 |
procedure TDbReadFrom.MyClick(Sender: TObject);
var
MailItem,vContactItem: OLEVariant;
ContactsFolder: MAPIFolder;
i : integer;
begin
OutlookApplication1.Connect;
vContactItem := OutlookApplication1.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts).Items.Add(olContactItem);
ContactsFolder := OutlookApplication1.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts); for i := 1 to ContactsFolder.Items.Count do
begin
//If TypeName(myFolder.Items.Item(x)) = "DistListItem" Then(這一行請問先進能指導要如何轉換成delphi code，感謝！感謝！)
Memo2.Lines.Add((ContactsFolder.Items.Item(i) as ContactItem).FullName) else
Memo2.Lines.Add((ContactsFolder.Items.Item(i) as DistListItem).Subject);
end;
end;
{以下為參考microsoft的說明
For x = 1 To myFolder.Items.Count
If TypeName(myFolder.Items.Item(x)) = "DistListItem" Then
Set myDistList = myFolder.Items.Item(x)
For y = 1 To myDistList.MemberCount
If myDistList.GetMember(y).Name = myNameSpace.CurrentUser.Name Then
MsgBox "Your are a member of " & myDistList.DLName
End If
Next y
End If
Next x
}
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
uses Outlook8, Outlook2000; var
Disp: IDispatch;
CI: ContactItem;
MailItem, vContactItem: OLEVariant;
ContactsFolder: MAPIFolder;
i : integer;
begin
OutlookApplication1.Connect;
vContactItem := OutlookApplication1.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts).Items.Add(olContactItem);
ContactsFolder := OutlookApplication1.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts); for i := 1 to ContactsFolder.Items.Count do
begin
if Supports(Disp, ContactItem, CI) then
Memo1.Lines.Add((ContactsFolder.Items.Item(i) as ContactItem).FullName)
else
Memo1.Lines.Add((ContactsFolder.Items.Item(i) as DistListItem).Subject);
end;
end;
參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=c307c48140035c03&rnum=5 ---
歡迎光臨 KTop 研究院 |
|
tangkh
一般會員 發表：26 回覆：28 積分：10 註冊：2002-09-11 發送簡訊給我 |
發表時間：2003-09-30 16:58:50
IP:202.39.xxx.xxx 未訂閱
系統時間：2024-05-05 2:33:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |