VBA .SendUsingAccount работает не на всех ПК

#excel #vba #outlook

Вопрос:

У меня есть инструмент, который отправляет электронные письма с использованием vba и .Функциональность SendUsingAccount. У нас есть команда людей, которые используют общую учетную запись электронной почты, и инструмент работает для большинства из нас, но есть по крайней мере один человек, который получает сообщение об ошибке в строке «.SendUsingAccount». Когда я удаляю эту строку, инструмент работает корректно, с одним отличием: он отправляет электронное письмо с личной электронной почты через Outlook, конечно, а не с учетной записи электронной почты команды.

Есть ли какая-либо причина, может быть, что-то с частными параметрами Excel, которые приводят к сбою инструмента для одного пользователя, но все еще работают для других?

1. У тех, у кого все работает должным образом, есть больше учетных записей в Outlook? Определяет ли код SendUsingAccount перед его использованием? Я имею в виду, что необходимо выполнить итерацию внутри Session.Accounts (для каждого oAccount ) и, создав oMail элемент и в соответствии с некоторыми критериями, наконец Set oMail.SendUsingAccount = oAccount . И только после этого используйте oMail.Send .

Ответ №1:

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

Добавьте учетную запись электронной почты в Outlook.

1. Это интересно! Значит, пользователь не должен использовать одну учетную запись с несколькими почтовыми ящиками, а добавлять учетную запись для каждого почтового ящика?

2. Если .SendUsingAccount это необходимо, это начало. Если повезет, это тоже будет конец.