Сохранение отправителя домена в качестве переменной в Outlook, 2013

Question

В настоящее время я пытаюсь создать подпрограмму, которая будет читать только домен выбранной электронной почты в поле «От», и установить отправителя в качестве переменной:

Так что, если я получаю электронное письмо от someone@example.com, я могу выбрать электронное письмо, запустить макрос и установить example.com (не весь адрес электронной почты) в качестве переменной, которую я могу использовать позже.

Я ценю любую помощь!

Answer 1

Добро пожаловать на борт. Не знаете, почему они вас нивелировали. Но вот как делать то, что вы просили.

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