根据Outlook收件箱的邮件提取发件人邮箱地址到excel后再导入到Outlook联系人
2014-12-26 14:58
537 查看
根据Outlook收件箱的邮件提取发件人邮箱地址到excel后再导入到Outlook联系人步骤如下:
1,新建工作簿book1,第一张表取名“邮件地址提取”,并保存
2,ALT+f11,进入vba,插入模块1,复制粘贴如下代码:
Sub GetSender()
'按照邮件接收日期由最近到最早的顺序提取发件人邮箱地址到Excel
Dim myOlApp As Outlook.Application
Dim mpfInbox As Outlook.MAPIFolder
Dim obj As Outlook.MailItem
Dim myexApp As Excel.Application
Dim i As Integer
Set myOlApp = CreateObject("Outlook.Application")
Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Workbooks("Book1.xls").Worksheets("邮件地址提取").Select
For i = mpfInbox.Items.Count To 1 Step -1
If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.Item(i)
Cells(i, 1) = obj.SenderEmailAddress
Cells(i, 2) = obj.SenderName
End If
Next i
End Sub
3,由于提取到的邮箱地址也许有重复的(同一个发件人发多封邮件给你),所以要利用03excel高级筛选或07excel删除重复值的功能,剔除重复值
4,复制剔除重复值后的邮箱地址和发件人姓名等到另一张excel表格,并对该数据区域命名为mymail(任意名字均可),保存
5,打开outlook,进入联系人,利用导入和导出的功能-从另一程序和文件导入-excel2003-2007,建立好映射关系后导入即可
1,新建工作簿book1,第一张表取名“邮件地址提取”,并保存
2,ALT+f11,进入vba,插入模块1,复制粘贴如下代码:
Sub GetSender()
'按照邮件接收日期由最近到最早的顺序提取发件人邮箱地址到Excel
Dim myOlApp As Outlook.Application
Dim mpfInbox As Outlook.MAPIFolder
Dim obj As Outlook.MailItem
Dim myexApp As Excel.Application
Dim i As Integer
Set myOlApp = CreateObject("Outlook.Application")
Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Workbooks("Book1.xls").Worksheets("邮件地址提取").Select
For i = mpfInbox.Items.Count To 1 Step -1
If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.Item(i)
Cells(i, 1) = obj.SenderEmailAddress
Cells(i, 2) = obj.SenderName
End If
Next i
End Sub
3,由于提取到的邮箱地址也许有重复的(同一个发件人发多封邮件给你),所以要利用03excel高级筛选或07excel删除重复值的功能,剔除重复值
4,复制剔除重复值后的邮箱地址和发件人姓名等到另一张excel表格,并对该数据区域命名为mymail(任意名字均可),保存
5,打开outlook,进入联系人,利用导入和导出的功能-从另一程序和文件导入-excel2003-2007,建立好映射关系后导入即可
相关文章推荐
- Outlook数据文件的转移,联系人地址的配置,邮件规则的导入导出
- awk之提取outlook联系人邮箱地址(用到for循环、gensub等)
- 在EXCEL中列出OUTLOOK收件箱里所有的邮件
- OE邮箱导入OUTLOOK联系人不可用
- 借助Excel实现Outlook联系人批量导入 推荐
- 在EXCEL中列出OUTLOOK收件箱里所有的邮件
- android 保存手机邮件中的邮箱地址到联系人,邮箱地址丢失的问题
- 正则表达式提取链接地址-邮箱邮件
- 把outlook的收件箱,已发箱,联系人全部导入到foxmail
- 根据邮箱DNS读取SMTP服务器地址,匿名发送邮件
- 【科普】OFFICE 365 outlook 如何导入其他邮箱的联系人
- 封装PHP mail函数发送HTML邮件并使用中文发件人且自定义发件人邮箱地址
- foxmail邮箱 邮件地址信息 以及邮件内容信息的导入导出
- outlook 2007 联系人导入到foxmail地址薄
- TreeView实现类似Outlook在收件箱后面显示新邮件数
- 如何清除outlook发送邮件后记录的地址
- 留个记念,第一次写这么长的存储过程。关于台湾地址excel中数据从一张表中导入另一张不同结构的表!
- 用正则表达式提取网页中的邮箱地址
- 从thunderbird把邮件导入到outlook
- Excel中导入和提取Flash