OutlookのVBAで差出人を変更する際代理送信の文言を消したい

Question

#質問内容
Outlookに搭載されているVBAでメインで使用しているアドレス以外でメールの自動返信をしたいのですが、
その際どうしても「（メインのアドレス）が代理で送信」という文言が返信メールに入ってしまいます。
この文言を消す方法について、どなたか情報をご存知でしたらご教示いただけませんでしょうか。

#該当のソースコード
With objMail
.SentOnBehalfOfName = "<差出元アドレス>"
.To = "メール宛先"
.Subject = "メール件名"
.Body = "メール本文"
.BodyFormat = olFormatPlain 'メールの形式
.Send ' メール送信
End With

#備考
・MicrosoftOfficeのバージョンは2019になります。
・変更したい差出元アドレスは、Outlookに追加しているアドレスになります。
・手動で差出人を変更すると表記されませんでした。
・メールサーバーは「お名前.com」

Comments

[YT0014]

送信元メールサーバはどちらでしょうか？
Gmailなどでは、差出元メールアドレスと、メールサーバのドメインが異なる場合、メールサーバで、代理送信の文言を追記するようです。

[vendilion31]

ご質問ありがとうございます。メールサーバーは「お名前.com」というものを使用しています。
サーバーの仕様かどうかも調べてみる必要がありそうですね。
ただ、備考に記載を忘れていましたが手動で差出人を変更した際は表記がありませんでした。

[YT0014]

送信元メールアドレスが影響しますので、手動で変更した際のメールアドレスのドメインと、自動返信の場合のメールアドレスのドメインをご確認ください。

[vendilion31]

確認したところドメインは両方とも同じのようです。
お忙しい中お手を煩わせてしまいましたが先ほど自己解決しました。
ご協力いただきありがとうございました。

Answer 1

以下のようにアカウント自体を切り替える構文を追加したところ解決しました。

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim ObjAccount As Object

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
Set ObjAccount = objOutlook.Session.Accounts.Item("メールアカウント") '差出元アカウント設定

～～省力～～

.SendUsingAccount = ObjAccount '差出元アカウント切り替え