如何用VBA程序得到发件人的邮件地址啊? 不是发件人名称，而是邮件地址！

[连帆]

如何用VBA程序得到发件人的邮件地址啊? 不是发件人名称，而是邮件地址！

[lzw8077]

指在哪里应用啊？

[连帆]

在outlook里面

[king15340]

好像看不到吧，至少我不知道
你要想看可以根据以下的步骤
点击名称前面的图标，下面就有Send mail(Email地址)可以看到发件人地址

[logoes]

 Dim myOlApp As New Outlook.Application
    Dim mpfInbox As Outlook.Folder
    Dim obj As Outlook.MailItem
    Dim i As Integer
    
    Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    
    For i = 1 To 10
        If mpfInbox.Items(i).Class = olMail Then
            Set obj = mpfInbox.Items.Item(i)
            MsgBox obj.SenderEmailAddress
         End If
    Next

[android2008]

不懂，up

[qap22]

帮顶