Справочная учетная запись Outlook по электронной почте

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

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

источник

2016-09-22 Jeffrey

Вам просто нужно установить его непосредственно

Sub Which_Account_Number() 
    Dim OutApp As Outlook.Application 
    Dim DesiredAccount As Outlook.Account 
    Set OutApp = CreateObject("Outlook.Application") 
    Set DesiredAccount = OutApp.Session.Accounts.Item("[email protected]") 
    MsgBox DesiredAccount.DisplayName 
    Set DesiredAccount = Nothing 
    Set OutApp = Nothing 
End Sub

Возможно this и this могут быть полезными, а позже.

источник

2016-09-22 14:50:52 Sgdva

Я пробовал это, но я получаю: Ошибка времени выполнения '91': переменная объекта или с переменной блока не установлена – Jeffrey

Выяснил, что с ней не так, и получил этот бит, но я не вижу свойства, чтобы вернуть номер аккаунта? Мне нужен номер учетной записи для использования в .SendUsingAccount = OutApp.Session.accounts.Item (4) ', заменяя 4 в конце соответствующим номером учетной записи на машине, на котором он запущен на – Jeffrey

Итак, я понял, что мне не нужны какие-либо из этого и может просто изменить 4 на адрес электронной почты, который я хочу установить с – Jeffrey

Справочная учетная запись Outlook по электронной почте

ответ

Смежные вопросы