如何用宏获得当前OUTLOOK的用户或邮箱地址?

欧阳峰峰

RT

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