如何用VBA程序得到发件人的邮件地址啊?

kapkapkap · 发表于 2004-12-22 16:32

难道VBA没有这个功能吗?请教高人!

aaaaabbbbb · 发表于 2007-2-3 18:51

Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
myFolder.Display
Set myItem = myFolder.Items(2)'显示收件箱中第二封邮件
myItem.Display'显示这封邮件
MsgBox myItem.SenderName'弹出这封邮件的发件人

gongzuoshi · 发表于 2008-11-12 20:29

我也想知道，但是版主aaaaabbbbb 给的不是想要的答案，是想要发件人的邮件地址，而不是发件人的名称

dsd999 · 发表于 2008-11-19 17:01

SenderEmailAddress
如果是外部邮箱发送的，没问题，可以得到邮箱地址
如果是内部邮箱，那就需要从Contact中找到发件人名称对应的邮箱地址

Long_III · 发表于 2008-11-20 09:03

Dim Myitem As MailItem
自己去属性里找找看
Debug.Print Myitem.SenderName, Myitem.SenderEmailAddress

不清楚什么是内部邮箱地址？我用163的企业邮箱测试的，没发现异常

netfei · 发表于 2013-12-17 20:22

如果是exchange的邮箱地址，楼上方法取不到。
取到的是一长串exchange连接地址。

请问如果是exchange该如何取？？？，我把里面的方法，属性都看遍了就是没找到。

dwchung · 发表于 2017-6-15 14:28

Dim myFolder As Outlook.MAPIFolder
For Each mymailitem In myFolder.Items '遍历inbox里的邮件

x = mi.SenderEmailAddress '发件人的邮箱地址
y = mi.SentOnBehalfOfName '发件人的名字
Next mymailitem

狂人风范 · 发表于 2017-7-19 17:24

如何在excel用VBA提取发件箱选中邮件的发件地址

cj9687451 · 发表于 2019-2-6 17:11

dsd999 发表于 2008-11-19 17:01
SenderEmailAddress
如果是外部邮箱发送的，没问题，可以得到邮箱地址
如果是内部邮箱，那就需要从Contac ...

版主，能否详细教一下？

ztccsj · 发表于 2019-12-7 22:37

dsd999 发表于 2008-11-19 17:01
SenderEmailAddress
如果是外部邮箱发送的，没问题，可以得到邮箱地址
如果是内部邮箱，那就需要从Contac ...

内部邮箱怎么获取地址？谢谢

		自动登录	找回密码
密码			免费注册