如何获取OUTLOOK当前所选中邮件的发送人邮件地址

Adams780719

各位老师好，我搜集了下面的一段OUTLOOK代码，想把这段代码改成获取当前所选中邮件的发送人邮件地址。请问改如何改？谢谢

Dim myNamespace As Outlook.NameSpace
Set myNamespace = Application.GetNamespace("MAPI")
Dim myFolder As Outlook.MAPIFolder
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Dim Myitem As mailItem
Set Myitem = myFolder.items(1)
MsgBox Myitem.SenderName

dsd999

Sub GetSelectedItems()
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim myItem As Outlook.mailItem
    Dim x As Integer
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
   
    For x = 1 To myOlSel.count
        If (myOlSel.Item(x).Class = 43) Then
        Set myItem = myOlSel.Item(x)
        MsgBox myItem.SenderEmailAddress
        End If
    Next x
   
End Sub