VBAでOutlookのメール作成で送信者名と署名を自動で挿入したい

Question

VBAでエクセル内容からメールを作成するようなコードを書いていますが、送信者名の挿入と、署名の挿入ができずにいます、、、

送信者（From）が不特定のため、事前に形式を挿入するのではなく、メール作成時に自動で「送信者名」と「送信者の署名」を取得し、本文に記述したいです。

https://docs.microsoft.com/ja-JP/office/vba/api/Outlook.MailItem.SenderName

ここを見る限り、送信者は「取得のみ」で設定はできないような雰囲気が感じられますが、なにか別の方法で設定、することはできるでしょうか？

①本文冒頭に「お疲れ様です。○○です。」と送信者名を入れたい。
②本文末に署名を自動で入れたい。

下のようなコードを書いています。

Sub Outlookメール作成()

'---コード1｜outlookを起動する
    Dim outlookObj As Outlook.Application    'Outlookで使用するオブジェクト生成
    Dim mailItemObj As Outlook.MailItem      'Outlookで使用するオブジェクト生成



    
'---コード2｜メールを作成して、差出人、本文、署名を入れ込む---
    Set outlookObj = CreateObject("Outlook.Application")
    Set mailItemObj = outlookObj.CreateItem(olMailItem)
    mailItemObj.BodyFormat = 3      'リッチテキストに変更
    mailItemObj.To = "[e-mail]"      'to宛先をセット
    mailItemObj.CC = "[e-mail]"   'cc宛先をセット
    mailItemObj.BCC = "[e-mail]"    'bcc宛先をセット
    mailItemObj.subject = "件名" '件名をセット
    

'本文をセット
    mailItemObj.body = "お疲れ様です。○○です。本文の内容はエクセルから取得。エクセルは保護されており、加工は不可。送信者は不特定多数になる。最後に署名をセットしたい"

 
 '---コード3｜メールを送信する---
    'mailItemObj.Save   '下書き保存
    mailItemObj.Display  'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない)


'---コード4｜outlookを閉じる(オブジェクトの解放)---
    Set outlookObj = Nothing
    Set mailItemObj = Nothing
   

End Sub

Answer 1

bodyに代入するときに、差出人名や署名を連結して代入すればいいだけでは？

Comments

[fulogabc]

すみません、初心者で具体的なコードがうまく動作しません、、、

コードを教えていただくことはできますか？

[otn]

mailItemObj.body = "ここに本文に入れたい文字列を全部書く"

[fulogabc]

送信者が不特定多数のため、署名も様々、名前も様々、のため自動取得したいのですが、この形だと固定の形式にならないでしょうか？

[otn]

連結して代入と書いた通りです。

文字列を表す式 & 文字列を表す式

で、文字列を連結できます。

[fulogabc]

Sendernameが読み取り専用のため、設定できないと思いますが、違うでしょうか？

[otn]

bodyに設定するんでしょ？
Sendernameに設定したい意味が分かりません。

[fulogabc]

送信者（From)が限定できず、その時によって変わる場合、Bodyに事前に送信者名や署名を挿入することができないと思いますが、、、

Bodyに入れる＝固定される
と思っています

そのため、その時の送信者名と署名を、メール作成時に自動で取得し、bodyに入れたいのです。
そして送信者名を取得するためにSendernameが必要だと思っていましたが、これが読み取り専用でできないように思えます。

うまく伝わらずすみません。

[otn]

mailItemObj.body = "お疲れ様です。" & mailItemObj.Sendername & ”です。本文の内容は～～～"

なんか、プログラミングの基本が出来ていないように思います。

[fulogabc]

初心者でして、勉強不足で申し訳ございません。

また、上記コードを設定しましたが、名前の出力ができませんでした。
下記リンクから動作のGIFが見れます。
https://drive.google.com/open?id=1N2YqiQxcCDell0pjFd2vLZ5yYqtZ50fZ

[otn]

ああ、mailItemObj って、新規作成したメールでしたか。
Outlook.MailItem.SenderName とお書きだったので、参照したいメールかと勘違いしていました。
送信者名はどこからとってくるのですか？Excelデータからですか？
あるいは、今VBAを動かしているOutlookのアカウントですか？

後者なら、https://docs.microsoft.com/ja-JP/office/vba/api/outlook.account を参考にして取得してください。

Answer 2

'送信者名
Dim strsousin As String

'送信者名をOutlookオブジェクトで取得
Dim olkApp As Object
Set olkApp = CreateObject("Outlook.Application")
Dim olAccounts
Set olAccounts = olkApp.Session.Accounts
    
strsousin = olAccounts(1).CurrentUser

'メッセージボックスで表示
MsgBox olAccounts(1).CurrentUser