outlook如何批量添加联系人？？郁闷！

xeszero

outlook下载了上千封邮件，想集体给一个回复，但是outlook好像没有这个功能，因为缺少联系人。怎样同时把这些人都加为联系人呢？用鼠标右键只能一个个添加！！！

york888

可以，但必须选分组！

lihrlinl

 楼上的高人  请问怎么分组？  是指把邮件分组  还是先建立一个联系人分组

lihrlinl

坐等回复中

aaaaabbbbb

可参考以下文章。

http://support.microsoft.com/?kbid=195429

aaaaabbbbb

用VBA的话可以参考以下文档：

http://www.outlookcode.com/d/code/autoaddrecip.htm

yangh71

需要写一段VBA代码来解决这个问题!

以下代码能够浏览inbox中的所有邮件的发出地址!
Sub nN()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.MAPIFolder
    Dim myDestFolder As Outlook.MAPIFolder
    Dim mymail As MailItem
    Dim C As MailItem
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
   
    For Each C In myInbox.Items
        'MsgBox C
        MsgBox C.SenderEmailAddress
    Next
End Sub

aaaaabbbbb

７楼的代码不是楼主所需要的。只能弹出收件箱中每封邮件发送人的EMAIL地址的对话框。