代码之家 › 专栏 › 技术社区 › Hap

在Outlook 2016中创建联系人

outlook vba

Hap · 技术社区 · 3 年前

我搜索了多个关于使用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

'''

任何帮助都将不胜感激,

0 回复 | 直到 3 年前

pizzettix 3 年前

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

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前