質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.20%

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

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 2,905

fulogabc

score 11

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 = "test@gmail.com"      'to宛先をセット
    mailItemObj.CC = "test@gmail.com"   'cc宛先をセット
    mailItemObj.BCC = "test@gmail.com"    'bcc宛先をセット
    mailItemObj.subject = "件名" '件名をセット


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


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


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


End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

+1

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/11/14 10:00

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

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

    キャンセル

  • 2019/11/14 12:45

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

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

    キャンセル

  • 2019/11/15 00:51

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

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

    キャンセル

check解決した方法

0

'送信者名
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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.20%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる