时间戳

首页 > 解决方案 > 在 Outlook 2016 中创建联系人

vba - 在 Outlook 2016 中创建联系人

问题描述

我已经搜索并找到了多个使用 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

'''

任何帮助将不胜感激，

标签： vbaoutlook

解决方案

我的代码也有一些问题（运行时错误 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

推荐阅读