Назначение из электронной почты - PullRequest
Новая
       31

Назначение из электронной почты

1 голос
/ 12 июля 2020

Есть ли способ узнать, почему мой адрес электронной почты не существует в моем Outlook?

Я автоматизирую отправку электронной почты, но я не могу изменить свой адрес электронной почты на желаемый.

У меня установлено два почтовых ящика.

введите описание изображения здесь

Я запускаю приведенный ниже код, и моя учетная запись не существует, хотя я могу вручную переключиться на нее в отображении электронной почты. 

Sub DoesAccountExist()
    Dim OLook As Object
    Set OLook = CreateObject("Outlook.Application")
    If GetAccountOf("myemail@email.com", OLook) Is Nothing Then
        MsgBox "Account doesn't exist"
    End If
End Sub
...