各位大哥求助：用VB怎样可以通过OUTLOOK 获得收件箱的发件人地址。[求助]

ywh555

各位大哥求助：用VB怎样可以通过OUTLOOK 获得收件箱的发件人地址。

loadhigh

回复或转发.

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