Vba 保存发件人'；s域作为Outlook 2013中的变量

目前，我正在尝试创建一个子集，该子集将读取选定电子邮件的“发件人”字段，并仅将发件人的域设置为变量：

所以如果我收到一封来自someone@example.com，我可以选择电子邮件，运行宏，它会将example.com（而不是整个电子邮件）设置为一个变量，我可以稍后使用

---

谢谢你的帮助

欢迎来到董事会。不知道他们为什么否决你。但这里是如何做到你要求的

Option Explicit

Public savedDomain As String

Public Sub Example()
    Dim mi As Outlook.MailItem
    Dim emailAddress As String
    If Not TypeName(Outlook.Application.ActiveWindow) = "Inspector" Then
        Exit Sub
    End If
    Set mi = Application.ActiveWindow.CurrentItem
    emailAddress = mi.SenderEmailAddress
    'Save it a variable like you asked.
    savedDomain = Mid(emailAddress, InStrRev(emailAddress, "@") + 1)
    'But... State loss can do weird things, so I'd save it to registry
    VBA.SaveSetting "MyExampleProgram", "SomeSectionName", "SavedDomain", savedDomain
    'You get it back like so:
    MsgBox VBA.GetSetting("MyExampleProgram", "SomeSectionName", "SavedDomain", vbNullString)
End Sub

---

下沉者可能不认为它很好地利用时间来评论一天的用户帖子，或者根本就在票价上。一些接受否决票的人并不把评论看作是一个学习的机会，所以否决票的人选择保持匿名。至于否决投票的原因，请看这些可能的原因。是的，我承认我对那些似乎不努力的人感到恼火，但VBA通常是某人的第一语言或第一次尝试编码。你会遇到很多超级用户，他们正试图展开他们的翅膀。所以我通常会在标签上给人们一些放松。我也不是一个粉碎全新用户的超级粉丝。只是我的意见。还有其他：）请删除

whois

标记作为您的问题，因为与此协议无关。