最近突然想学习VBA，是因为发邮件时没有存联系人，只显示的是Email地址，有时没办法区分是谁，所以想把公司的所有人的Email和名称都添加进来。但是，公司人那么多，不可能一个一个的输入吧，那是肯定了，作为一个IT男，怎么可能在意见重复的事情上花费时间。懒，才会推动科技的发展，人类的进步。
于是，自己就像起来用VBA来实现。以前自己学习过VB6.0，但是后来不用了，学习了别的。总的来说，VB是我的编程入门语言，对我学习其他编程语言起到了很关键的作用，只是当初感觉他的可视化编程，所见即所得，和我最初那种快速学会编程的渴望，总觉得DOS窗口的那种没有这种是在，像C一样，总是在黑框框下显示，这样，促使我学习VB。后来想想，当时是多么的幼稚，只是自己太急于求成，C的强大，无人撼动。
废话不多说，VBA就Visual Basic for Applications (VBA) ，VB在应用程序中的应用。在Outlook中如何编辑和运行VBA，接下来说说具体的步骤：
1.点击左上角的文件菜单
2.点击“选项”
3.选择自定义功能区，常用命令，主选项卡，在“开发工具”前面打钩
4.选择信任中心，信任中心设置，宏设置，为所有宏提供通知
5.在工具栏上面就会出现“开发工具”选项卡
6.点击“宏”，创建一个名字为test的，打开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中，其实很简单。至于其他的，目前还不会，需要继续研究。
请不吝赐教。
你在潮湿的风中感受到了平稳的呼吸，多好听啊，
