有關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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |