我已经搜索并发现了使用VBA和创建新的Outlook联系人的多个建议,但似乎没有一个有效。
我正在尝试使用Excel电子表格创建新的联系人。我可以用同样的数据创建新的电子邮件,我只是不能得到正确的代码来创建一个新的联系表单。
我在其他公告栏上找到的所有建议似乎都是针对旧版本的Outlook的,显然它们在发布后已经更改了。
这就是我遇到问题的地方:
Public Sub CreateNewContact()
Dim contactItem As Outlook.contactItem
Set contactItem = Application.CreateItem(olContactItem)
contactItem.FullName = "Greg Thatcher"
contactItem.Email1Address = "gregt@xobni.com"
contactItem.BusinessTelephoneNumber = "415 555 1212"
contactItem.HomeTelephoneNumber = "415 555 1234"
contactItem.MobileTelephoneNumber = "415 555 1236"
contactitem.display
End Sub
'''
任何帮助都将不胜感激,
我对你的代码也有一些问题(运行时错误438)。我用这个代码解决了问题(我添加了Dim myOutlook As Outlook.Application
和Set contactItem = myOutlook.CreateItem(olContactItem)
):
Public Sub CreateNewContact()
Dim myOutlook As Outlook.Application
Dim contactItem As contactItem
Set myOutlook = CreateObject("Outlook.Application")
Set contactItem = myOutlook.CreateItem(olContactItem)
contactItem.FullName = "Greg Thatcher"
contactItem.Email1Address = "gregt@xobni.com"
contactItem.BusinessTelephoneNumber = "415 555 1212"
contactItem.HomeTelephoneNumber = "415 555 1234"
contactItem.MobileTelephoneNumber = "415 555 1236"
contactItem.display
End Sub