如何在vba outlook中获取邮件发件人[关闭]

Question

vba中是否有任何函数可以返回电子邮件的发件人？

Answer 1

当你在这里得到一些代码时，我会留意这个。但现在...

Sub GetSendor()

Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
Dim nm As Namespace

Set nm = oApp.GetNamespace("MAPI")
Set oMail = nm.GetDefaultFolder(olFolderInbox).Folders.Item(1).Items.GetLast

oMail.SenderEmailAddress

End Sub