パソコン関連の書籍等を読んで試したりしながらアウトプットしまくります。

アウトプットしながら学ぶ

EXCELマクロVBA

Excel VBAでSendUsingAccountがエラーになる、アカウントが切り替わらない問題の対処法

投稿日:

Excel VBAでメール送信をするプログラムを作成するとき、SendUsingAccountに送信元のメールアドレスを設定することで、アカウントの切り替えをすることができます。
検索すると以下のコードで動作するということで、実際にある程度動作します。
ただ、共有メールボックスを使っていたりすると、このコードでは、アカウントが切り替わらず、メインのアカウントでメールが作成されてしまうことがあります。

SentOnBehalfOfName プロパティを使ってみたところ、エラーが発生したので
共有メールボックスのアクセス権の問題かと思い、一旦諦めかけましたが、
「SendUsingAccount VBA not working」というキーワードで検索していたところ、
以下のように書き換えれば動作することがわかりました。

.SendUsingAccount = objOutlook.Session.Accounts.Item("[メールアドレス]")

Set .SendUsingAccount = objOutlook.Session.Accounts.Item("[メールアドレス]")







-EXCELマクロVBA

Copyright© アウトプットしながら学ぶ , 2023 AllRights Reserved Powered by AFFINGER4.