outlook联系人操作问题

[无聊客]

我想操作联系人信息，比如调用新建联系人对话框，保存和读取联系人信息，哪位大虾能告诉我，windows平台上这组API在哪里可以找到？谢谢！

[无聊客]

自己顶一下

[mr_401]

outlook中有联系人对象 outlook.contactitem

[arong1234]

这必须庸Outlook对象模型，完全安装office 2003，则其vba联机帮助会有很多帮助

[gracexu]

这组 API 就在 outlook 这个程序本身里面。

[zzq_gates]

PROCESS_INFORMATION pi;
memset(&pi, 0, sizeof(pi));

if (CreateProcess(TEXT("\\Windows\\poutlook.exe"), TEXT("contacts -new"), NULL, NULL, FALSE, 0, NULL, NULL, NULL, &pi))
{
...
}

不知道你需要不需要填 预订的电话号码,如果需要,就要用poom 的 IContact 接口

[zzq_gates]

如果还有问题,联系[e-mail]

[zzq_gates]

IItem 接口 有 add ,edit 等吧

[bluewelkin]

我也正在研究这个，等待高手出现！

[bgyyyyy]

用下面的代码可以打开一个新建联系人对话框：

Sub test()

Dim x As Outlook.ContactItem
Dim y As Outlook.Application

Set x = y.CreateItem(olContactItem)

With x
.Display
.Email1Address = "[e-mail]"
End With

End Sub

[bgyyyyy]

用下面的代码可以读取所有联系人的EMAIL地址：

Sub Test2()

Dim x As Outlook.ContactItem
Dim y As New Outlook.Application

For Each x In y.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
MsgBox x.Email1Address
Next

End Sub