Outlook2010 VBA添加联系人

深碍√TFBOYSˉ_ 2022-08-14 03:56 244阅读 0赞

最近突然想学习VBA，是因为发邮件时没有存联系人，只显示的是Email地址，有时没办法区分是谁，所以想把公司的所有人的Email和名称都添加进来。但是，公司人那么多，不可能一个一个的输入吧，那是肯定了，作为一个IT男，怎么可能在意见重复的事情上花费时间。懒，才会推动科技的发展，人类的进步。

于是，自己就像起来用VBA来实现。以前自己学习过VB6.0，但是后来不用了，学习了别的。总的来说，VB是我的编程入门语言，对我学习其他编程语言起到了很关键的作用，只是当初感觉他的可视化编程，所见即所得，和我最初那种快速学会编程的渴望，总觉得DOS窗口的那种没有这种是在，像C一样，总是在黑框框下显示，这样，促使我学习VB。后来想想，当时是多么的幼稚，只是自己太急于求成，C的强大，无人撼动。

废话不多说，VBA就Visual Basic for Applications (VBA) ，VB在应用程序中的应用。在Outlook中如何编辑和运行VBA，接下来说说具体的步骤：

1.点击左上角的文件菜单

![文件菜单][Center]

2.点击“选项”

![选项][Center 1]

3.选择自定义功能区，常用命令，主选项卡，在“开发工具”前面打钩

![开发工具][Center 2]

4.选择信任中心，信任中心设置，宏设置，为所有宏提供通知

![4][]

![5][]

5.在工具栏上面就会出现“开发工具”选项卡

![卡][Center 3]

6.点击“宏”，创建一个名字为test的，打开VBA编辑器

![vba][]

接下来，直接上代码：

Sub test()
        
        Dim contactsF As Folder
        Dim obj As ContactItem
        
        Set contactsF = Session.GetDefaultFolder(olFolderContacts)
        Set obj = contactsF.Items.Add("IPM.Contact.Project")
        With obj
            .FullName = "张三" '这个不起作用了
            .Email1Address = "970250685@qq.com"
            .FirstName = "语文"
            .LastName = "Tom"
            .CompanyName = "XX股份有限公司"
            .UserProperties("Project") = "cc"
            .Department = "产品"
            .Profession = "软开"
            .JobTitle = "IT"
            .AddPicture ("C:\\Users\\Administrator\\Pictures\\022022508758829.jpg")
            .Attachments.Add ("C:\\Users\\Administrator\\Pictures\\022022508758829.jpg")
            .Save
        End With
        
    
    End Sub

运行这个代码，之后回到outlook界面，在联系人中就会看到刚才添加的信息。

还有一种添加方式，和上面创建联系人的放置不一样，代码如下：

Sub test()
        
        Dim c As Outlook.ContactItem
        Set c = Application.CreateItem(olContactItem)
        c.FullName = "Nike"
        c.Email1Address = "nike@163.com"
        c.Save
        
    
    End Sub

这样，也会创建联系人，至于联系人的属性值设置，可参考上面的代码，或者是在“对象浏览器”中查看其属性值。

至于批量添加，就是循环的创建联系人对象，并赋值，然后添加到联系人中。

不管是从文本文件中还是数据库中，还是Excel中，其实很简单。至于其他的，目前还不会，需要继续研究。

请不吝赐教。

[Center]: /images/20220810/82a739b7b3b644b29f78b7d302e94b7f.png
[Center 1]: /images/20220810/89c42873d03443289459d57754bed801.png
[Center 2]: /images/20220810/ba1266a3ff34493e82c494efc33c0f35.png
[4]: /images/20220810/11adbbf9475a4d4eae7172741f58c3b8.png
[5]: /images/20220810/5a62edd5677845718fe6299c7e495386.png
[Center 3]: /images/20220810/4bfbbc5dcb884d898ded37846cf9bb45.png
[vba]: /images/20220810/239e504cd56d438b8d998c6b449dd947.png