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

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

新規登録して質問してみよう
ただいま回答率
86.12%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

解決済

VBAでOutlookのメール作成でリンク付きのコメントを自動で挿入したい。

koko2
koko2

総合スコア21

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

2回答

0グッド

0クリップ

333閲覧

投稿2022/10/30 10:01

編集2022/11/05 11:22

前提・実現したいこと

キーワードが一致した場合、そのコメントをメールに貼り付けるような送信メールを作成したいのですが構文の書き方が分かりません。コメントは3通りあります。コメントの一部はリンクをクリックするようにしたいですがうまくいきません。

Sub メール通知()

Dim objOutlookApp As Object Dim objMail As Object Dim Rng As Range Dim intintNum As Integer Dim strBody As String Dim strTag1 As String Dim strTag2 As String Dim strTag3 As String Dim strTag4 As String Dim strTag5 As String Dim strBr As String Dim strSubject As String Dim strSTname_Template As String strBr = vbLf '改行コード '「メール」シートのA列最終行まで処理を繰り返します。 For intNum = 3 To Worksheets(2).Cells(1048576, 1).End(xlUp).Row + 1 '「メール」シートのA列載せるに値があればメール作成・送信処理を継続します。 If Worksheets(1).Cells(intNum, 1) <> "" Then 'メールテンプレートを設定します。 strSTname_Template = Worksheets(1).Range("B1").Value 'メールテンプレートの指定が無い場合は警告表示および処理を中断します。 If strSTname_Template = "" Then MsgBox "B" & intNum & "にテンプレートシートを指定してください。" Exit Sub End If 'Outlook.Applicationを呼び出し、セットします。 Set objOutlookApp = CreateObject("Outlook.Application") Set objMail = objOutlookApp.CreateItem(olMailItem) 'メール宛先・本文シート記載の値を変数に入れます。 strTag1 = Worksheets(1).Range("G" & intNum).Text strTag2 = Worksheets(1).Range("C" & intNum).Text strTag3 = Worksheets(1).Range("D" & intNum).Text strTag4 = Worksheets(1).Range("E" & intNum).Text strTag5 = Worksheets(1).Range("F" & intNum).Text 'テンプレートのメール本文の箇所を読み込み、変数に入れます。 For Each Rng In Worksheets(strSTname_Template).Range(Worksheets(strSTname_Template).Range("A5").Value) strBody = strBody & Rng.Value & vbLf Next Rng 'メール本文中のタグを指定データへ置換します。 strBody = Replace(strBody, "<Tag1>", strTag1) strBody = Replace(strBody, "<Tag2>", strTag2) strBody = Replace(strBody, "<Tag3>", strTag3) strBody = Replace(strBody, "<Tag4>", strTag4) strBody = Replace(strBody, "<Tag5>", strTag5) With objMail .BodyFormat = 2 ' 「3」の場リッチテキスト型となります。「1」はテキスト型、「2」は HTML型となります。 .To = Worksheets(1).Range("H" & intNum).Value .CC = Worksheets(1).Range("I" & intNum).Value '本文をBodyプロパティにセットします。 .Body = Worksheets(1).Range("C" & intNum).Value & strBr & Worksheets(1).Range("D" & intNum).Value & strBr & strBr & strBody 'テンプレートからタイトルを読み込みます。 strSubject = Worksheets(strSTname_Template).Range("A2").Value 'タグ部分を置換します。 strSubject = Replace(strSubject, "<Tag1>", strTag1) strSubject = Replace(strSubject, "<Tag2>", strTag2) strSubject = Replace(strSubject, "<Tag3>", strTag3) strSubject = Replace(strSubject, "<Tag4>", strTag4) strSubject = Replace(strSubject, "<Tag5>", strTag5) Dim i As Long Dim LastRow As Long LastRow = Range("A1048576").End(xlUp).Row For i = 3 To LastRow If Cells(i, 3) = "S" Then Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>" ElseIf Cells(i, 3) = "M" Then Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>" Else Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>" End If Next .Subject = strSubject Select Case Worksheets(1).Cells(intNum, 1) Case "未" 'メールを表示します。 .Display Case Else MsgBox "値が異なります。「未」か「済」を入力してください。" End Select End With 'メール本文をクリアします。 strBody = "" End If Next intNum MsgBox "メール作成が完了しました。" Set objOutlookApp = Nothing Set objMail = Nothing

End Sub

試したこと

下記を作成しましたが、エラーとなってしまいます。
Dim i As Long
Dim LastRow As Long
LastRow = Range("A1048576").End(xlUp).Row
For i = 3 To LastRow
If Cells(i, 3) = "S" Then
Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら1</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら1</a>"
ElseIf Cells(i, 3) = "M" Then
Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら2</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら2</a>"
Else
Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら3</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら3</a>"
End If
Next

以下のような質問にはグッドを送りましょう

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

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

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

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

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

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

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

適切な質問に修正を依頼しましょう。

回答2

1

ベストアンサー

まず、HTML のタグを本文に使いたいなら、Body ではなく HTMLBody を使います。
また、"" の中で " を使いたければ、"" と記載する必要があります。
例えば、以下のような形になります。

VBA

1objMail.HTMLBody = "詳細は <a href=""https://www.google.co.jp/"">こちら1</a>。問い合わせ先は<a href=""mailto:info@sample.com"">こちら1</a>"

投稿2022/11/02 02:33

millefeuille

総合スコア219

yshima1129👍を押しています

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

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

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

このような回答には修正を依頼しましょう。

回答へのコメント

koko2

2022/11/02 15:41 編集

コメントありがとうございました。リンクで表示することができました。ただ、<Tag1>から<Tag5>が表示されなくなりました。難しいです。 Dim i As Long Dim LastRow As Long LastRow = Range("A1048576").End(xlUp).Row For i = 3 To LastRow If Cells(i, 3) = "S" Then objMail.HTMLBody = "詳細は <a href=""https://www.google.co.jp/"">こちら1</a>" ElseIf Cells(i, 3) = "M" Then objMail.HTMLBody = "詳細は <a href=""https://www.google.co.jp/"">こちら2</a>" Else objMail.HTMLBody = "詳細は <a href=""https://www.google.co.jp/"">こちら3</a>" End If Next
millefeuille

2022/11/04 02:20

strBody に設定した本文を "詳細は..." の前に追記したければ、以下の様にすればよいと思います。 objMail.Body = strBody objMail.HTMLBody = objMail.HTMLBody & "詳細は <a href=""https://www.google.co.jp/"">こちら1</a>"
koko2

2022/11/05 11:20

ありがとうございます。無事に処理ができました。 自分で色々とコードを書き換えていたのですがなかなか解決できずにいたので、とても助かりました。

1

文面を書き換えるだけなら、VBAの追記を元に戻し、「TAG4」や「TAG5」を活用したほうがいいのではないでしょうか。
VBAの編集はやめて、Excel側で必要な情報を揃えたほうが良いかもしれません。
Excel内でやるのであれば、vlookupなどで必要なデータを整理できると思います。

投稿2022/10/30 13:21

yshima1129

総合スコア179

okakemetal👍を押しています

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

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

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

このような回答には修正を依頼しましょう。

回答へのコメント

koko2

2022/10/31 10:20

回答ありがとうございました。 試しに<Tag>を追加してみたのですが、詳細は <a href="https://www.google.co.jp/">こちら1</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら1</a>このまま記載されてしまいます。ハイパーリンクにはならないのでしょうか?説明が不足していてすみませんがご教示ください。
yshima1129

2022/10/31 13:05

.「BodyFormat = 2」の「2」が全角だからでしょうか・・・? パット見ですが、半角の「2」にしてみてはどうでしょうか?
koko2

2022/11/01 15:20

コメントありがとうございました。BodyFormat = 2に入れ直してみましたが変わりませんでした。自分のソースコードが良くないみたいです。見直してみます。

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

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。