メモ outlookで送信元を切り替える。

>私の勤めている会社からメールを送信するとき、自分個人のア
>ドレスからではなく、社員共有のメールボックスから送信する場合は、
>エクセルVBAは、どう書けばいいでしょうか？

こんにちは。
送信アカウントの切り替えですが、
Outlook2007なら SendUsingAccount ってアカウントがあるみたいです。

残念ながら2003や2002だと無いみたいです。
(outlook2003のヘルプで探したのですが、出てきませんでした。私の見落としで使えるならいいのですが。。。)

で、通常は紹介したらOutlook2007で確認・テストなんですが、
ゴメンなさい、2007は近所に住んでいる弟に貸したPCに入っているので、今テストすることができません。
※自分のWindows7 にインストールしようと思っているのですが、やって無くて。

あまりお力になれずスミマセン。
少しでも解決のヒントになればいいなぁ・・・と思いつつ、失礼します。

もしかして、簡単な方法があるのかなぁ？みつけたSendUsingAccountを使わなくても・・・

読者より回答を教えてもらいました。
.SendUsingAccount = Session.Accounts("アカウント名")
でOKみたいです。

Outlook VBAで送信元を変更する。.SendUsingAccount
http://d.hatena.ne.jp/ken3memo/20110424/1303608810

↑を見てください。

ではまった。※はまってます、現在進行形。

下記の質問をいただいたので、試してます。

VBAでOutlookのメールを立ち上げることに成功しました。
差出人をデフォルトではなく、
別のアカウントで使いたいのですが、
単純にsendusingaccountを入れるだけではダメなんですね。
どうすればうまくいくんでしょうか。

複数メールアドレスを登録して、
テスト中ですが、私もうまくいっていなかったり・・・

'今回のテスト送信元を変更する？
mITEM.SendUsingAccount = oApp.Session.Accounts.Item("xxxx@ken3.org")

または、

Dim oAccount As Outlook.Account
Set oAccount = oApp.Session.Accounts.Item("xxxxx@ken3.org")

mITEM.SendUsingAccount = oAccount

どちらでもうまくいきました。

あれ、急にうまくいった・・・なぜだろう。。
まぁ、頭からテストしてみます。

VBSだけ、うまくいかない・・・
何か、ケアレスミスがありそうな。。

OutlookのVBA立ち上げて、途中で止めて、
? Session.Accounts.Count
3
でアカウント件数を確認したり、

? Session.Accounts.Item(1)
xxxx@ken3.org
で中身を確認、

Set oAccount = Session.Accounts.Item("xxxx@ken3.org")
mITEM.SendUsingAccount = oAccount

? oAccount.DisplayName
? oAccount.UserName
メールテスト
qa2017 KEN

など、イロイロテストしてみてください。

2022/03/25 追記
f:id:ken3memo:20220325074746j:plain

三流君 ken3のmemo置き場