[[20220117202730]] 『outlookの差出人の切り替え(VBA)』(勉強中) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『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のアカウントは2つあるのですが、
イミディエイトでアカウントitemの数を確認しても、1つとなっていました。
(勉強中) 2022/01/21(金) 22:24


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.