[[20220117202730]]　『outlookの差出人の切り替え(VBA)』（勉強中）　ページの最後に飛ぶ

『outlookの差出人の切り替え(VBA)』（勉強中）

マクロで自動メール作成をして、
更にメールの差出人を、共有メールアカウントのアドレスに切り替えたいのですが、
下記でやってみても、差出人が切り替わりません。
イミディエイトウィンドウで、? Session.Accounts.Item(1)で確認してみても、
自分のアドレスが表示されてしまい、共有メールアドレスになりません。
何か間違えていますでしょうか？？

Dim oApp As Object
Dim mITEM As Object

  Set oApp ＝ CreateObject("outlook application")
  Set mITEM ＝ oApp.CreatItem(0)

中略　(メール作成部分)

Dim oAccount As Outlook.Account

  Set oAccount = oApp.Session.Accounts.Item("xxxxx@××.××")
  mITEM.SendUsingAccount = oAccount

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

間違えは以下の通り
＞Set oApp ＝ CreateObject("outlook application")
Set oApp ＝ CreateObject("outlook.application")

＞Set mITEM ＝ oApp.CreatItem(0)
Set mITEM ＝ oApp.CreateItem(0)

上記の通り修正すると、こちらではアカウントの切り替えは出来ています。
Outlookの設定で、自分のアカウント以外の物はありますか。
又は、
イミディエイトウィンドウで
?Session.Accounts.Item(2)
と入れたらどうなりますか。

確認してみて下さい。

（ヘンリー） 2022/01/21(金) 18:34

ヘンリー様
随分前の投稿にも関わらず、確認して下さり、ありがとうございます！！
すみません、先日の投稿はスマホからだった為、スペルミスでした。
私のPCでは、スペルミスがないとしても動きませんでしたが、
下記とする事で無事に動きました。(申し訳ありません、自己解決した事記載しておくべきでした)

.SentOnBehalfOfName = "<差出元アドレス>"

ちなみに、最初に投稿したコードでは、
outlookのアカウントは２つあるのですが、
イミディエイトでアカウントitemの数を確認しても、１つとなっていました。
（勉強中） 2022/01/21(金) 22:24

コメント返信：

[ 一覧(最新更新順) ]

[[20220117202730]] 『outlookの差出人の切り替え(VBA)』（勉強中） ページの最後に飛ぶ

[[20220117202730]]　『outlookの差出人の切り替え(VBA)』（勉強中）　ページの最後に飛ぶ