如何读取Outlook 中的地址簿?(100分)

本人需要读出Outlook 中的地址簿,请问如何编程实现?

呵呵！看看"I Love You"病毒的源代码，你就明白了，不过可是VBA的

哪有源代码？

use WAB api.look for it at delphi-jedi api libarary.

To xiangya:

能否具体一点?

说具体一点行吗？

Sub GetRecipients_Click
Address "CDORecipients","Recipients"
End Sub

'*********************************************************************
'Custom Procedure: Address
'Purpose: Display MAPI Address Book, allow user to select
'recipients, and then place recipient names in UD field.
'Aruguments: strUDFieldName, strShortName
'Returns: N/A
'*********************************************************************
Sub Address(strUDFieldName, strShortName)
Dim i
Dim strRecip
On Error Resume Next
strDialogCaption = "Select " & strUDFieldName
Set objCDO = Application.CreateObject("MAPI.Session")
'Piggyback on existing Outlook session
objCDO.Logon "", "", False, False, 0
If Err Then
MsgBox "Could not establish CDO session!", vbCritical
End If
Set Recips = objCDO.AddressBook(Nothing, _
strDialogCaption, False, True, 1, strShortName, "", "", 0)
'These recipients have been resolved by forceResolution argument above
If Not Err Then
For i = 1 To Recips.Count
strRecip = strRecip & Recips(i).Name & "; "
Next
If strRecip <> "" Then
strRecip = Left(strRecip, Len(strRecip)-2)
Userproperties(strUDFieldName) = strRecip
End If
End If
objCDO.Logoff
End Sub

我也想知道。

http://msdn.microsoft.com/downloads/samples/internet/messaging/wabtool/
是VC的例子。Delphi也有例子。可以写信给我索取。jame.swnu@263.net

我也要哟！silicon@yesky.com

我要Delphir 例子：fwcf@163.net
谢谢！

caomo@chinaren.com
谢谢！

我要Delphir 例子：zhaohai9@163.net
谢谢！

我也要DELPHI的例子：djsf@netease.com

我也要
davidwen@263.net

能给我来一份delphi的sample吗? sherman@soliton.com.cn

我正在开发个email发送程序，能否给我来一份，谢谢。
希望能继续交流，linqi07@263.net
QQ:1379695

希望能继续交流，liutan500@sina.com
QQ:26368274

Delphi的例子有嘛？ 给我一份 ：）
adnil@8848.net

我有，可我该上传到那个主页呢？
我可懒的给这么多富翁发邮件，岂不要累坏了我？