OUTLOOK中如何用代码获取到发件人地址

haha_xion

想在OUTLOOK中加个宏，大概作用是：获取收件箱中到所有的邮件发件人地址？
不知道有哪位朋友写过相关代码，请给予提示，非常感谢！

haha_xion

人气不旺啊！

aaaaabbbbb

一个一个显示发件人地址,呵呵.

Sub GetSenderAddress()
Dim myOlApp As New Outlook.Application
Dim mynamespace As Outlook.NameSpace
Dim myfolder As Outlook.Folder

Set mynamespace = myOlApp.GetNamespace("MAPI")
Set myfolder = mynamespace.GetDefaultFolder(olFolderInbox)
For Each mail In myfolder.Items

     MsgBox (mail.SenderEmailAddress)

Next

Set myfolder = Nothing
Set mynamespace = Nothing


End Sub

[ 本帖最后由 aaaaabbbbb 于 2009-5-9 19:56 编辑 ]

lgcmeli

批量获取地址到地址簿呢？

lgcmeli

Sub GetSender()
'按照邮件接收日期由最近到最早的顺序显示发件人邮箱:
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("Sheet1").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
  End If
  
Next i

End Sub

liang.yanli

lgcmeli 发表于 2009-10-27 13:11
Sub GetSender()
'按照邮件接收日期由最近到最早的顺序显示发件人邮箱:
Dim myOlApp As Outlook.Applica ...

你的QQ多少

H若君E

lgcmeli 发表于 2009-10-27 13:11
Sub GetSender()
'按照邮件接收日期由最近到最早的顺序显示发件人邮箱:
Dim myOlApp As Outlook.Applica ...

请教下，如果收件箱有分文件夹，比如文件夹名字为“2014”，

想获取收件箱中2014的文件夹中 邮件收件人地址和收件时间到当前EXCEL工作表中（不需要新建工作表），应该怎么修改呢？

闻启学

H若君E 发表于 2014-4-18 16:55
请教下，如果收件箱有分文件夹，比如文件夹名字为“2014”，

想获取收件箱中2014的文件夹中 邮件收件人 ...

可以啊  联系我  你有我的的QQ 号

闻启学

yanfeiliuhen 发表于 2014-5-28 23:08
lgcmeli 你好，请问下 我放到outlook vbe里运行时，提示这行Workbooks("Book1.xls").Worksheets("Sheet1"). ...

这个是已经打开这个文件的

可以改一下 set mywb = workbooks.open（“Book1.xls”）

mywb.worksheets("sheet1").sheet

yanfeiliuhen

lgcmeli 你好，请问下 我放到outlook vbe里运行时，提示这行Workbooks("Book1.xls").Worksheets("Sheet1").Select 下标越界，，，调试时把箭头指向workbooks(...，，，，，，这是为什么啊  是不是Book1.xls文件要放到指定的地方（如放在E目录下）