トップ VBAに関する質問 VBAでOutlookのメール作成でリンク付きのコメントを自動で挿入したい。

編集履歴

質問編集履歴

修正

2022/11/05 11:22

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -3,21 +3,7 @@
 キーワードが一致した場合、そのコメントをメールに貼り付けるような送信メールを作成したいのですが構文の書き方が分かりません。コメントは3通りあります。コメントの一部はリンクをクリックするようにしたいですがうまくいきません。
-Excelシート名：メール
-|表示|番号|Tag2|Tag3|Tag4|Tag5|Tag1|To:|CC：|
-|未|１|S|AAA|AAA|V1.0|田中|AA@aaa.co.jp|
-|未|2|M|BBB|BBB|V1.1|佐藤|BB@bbb.co.jp|
-|未|3|L|CCC|CCC|V1.0|山田|AA@aaa.co.jp|
-テンプレートシート
-シート名：通知送付
-### 該当のソースコード
-```
-VBA
-```
 Sub メール通知()

VBA Excel

修正

2022/11/05 11:21

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,28 +1,6 @@
 前提・実現したいこと
-①マクロを使ってアウトルックのメールの一斉送信を行いたいです。
-②エクセルC列の情報を元に本文の内容を一部変更したいです。
-③②はリンクをクリックしたところに飛ぶようなハイパーリンクにしたいです。
-### 発生している問題・エラーメッセージ
-C列が"S"なら
-＊＊＊＊＊＊＊＊
-詳細は <a href="https://www.google.co.jp/">こちら１</a>。
-問い合わせ先は<a href="mailto:info@sample.com">こちら１</a>
-＊＊＊＊＊＊＊＊
-C列が"M"なら
-＊＊＊＊＊＊＊＊
-詳細は <a href="https://www.google.co.jp/">こちら２</a>。
-問い合わせ先は<a href="mailto:info@sample.com">こちら２</a>
-＊＊＊＊＊＊＊＊
-C列が"L"なら
-＊＊＊＊＊＊＊＊
-詳細は <a href="https://www.google.co.jp/">こちら３</a>。
-問い合わせ先は<a href="mailto:info@sample.com">こちら３</a>
-＊＊＊＊＊＊＊＊
 キーワードが一致した場合、そのコメントをメールに貼り付けるような送信メールを作成したいのですが構文の書き方が分かりません。コメントは3通りあります。コメントの一部はリンクをクリックするようにしたいですがうまくいきません。
 Excelシート名：メール
@@ -30,10 +8,7 @@
 |未|１|S|AAA|AAA|V1.0|田中|AA@aaa.co.jp|
 |未|2|M|BBB|BBB|V1.1|佐藤|BB@bbb.co.jp|
 |未|3|L|CCC|CCC|V1.0|山田|AA@aaa.co.jp|
-![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-30/992f333b-7d1c-4bee-9276-5f21bb51998d.png)
-![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-30/b25e89ff-d32f-419e-984c-d78d6b11400b.png)
 テンプレートシート
 シート名：通知送付

VBA Excel

修正

2022/10/31 11:16

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -2,7 +2,7 @@
 ①マクロを使ってアウトルックのメールの一斉送信を行いたいです。
 ②エクセルC列の情報を元に本文の内容を一部変更したいです。
-③②はハイパーリンクで表示したいです。
+③②はリンクをクリックしたところに飛ぶようなハイパーリンクにしたいです。
 ### 発生している問題・エラーメッセージ
@@ -23,7 +23,7 @@
 詳細は <a href="https://www.google.co.jp/">こちら３</a>。
 問い合わせ先は<a href="mailto:info@sample.com">こちら３</a>
 ＊＊＊＊＊＊＊＊
-キーワードが一致した場合、そのコメントをメールに貼り付けるような送信メールを作成したいのですが構文の書き方が分かりません。コメントは3通りあります。
+キーワードが一致した場合、そのコメントをメールに貼り付けるような送信メールを作成したいのですが構文の書き方が分かりません。コメントは3通りあります。コメントの一部はリンクをクリックするようにしたいですがうまくいきません。
 Excelシート名：メール
 |表示|番号|Tag2|Tag3|Tag4|Tag5|Tag1|To:|CC：|
@@ -103,7 +103,7 @@
             strBody = Replace(strBody, "<Tag5>", strTag5)
             With objMail
-                .BodyFormat = 3 ' 「3」の場リッチテキスト型となります。「1」はテキスト型、「2」は HTML型となります。
+                .BodyFormat = ２ ' 「3」の場リッチテキスト型となります。「1」はテキスト型、「2」は HTML型となります。
                 .To = Worksheets(1).Range("H" & intNum).Value
                 .CC = Worksheets(1).Range("I" & intNum).Value

VBA Excel

修正

2022/10/31 11:12

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -2,6 +2,7 @@
 ①マクロを使ってアウトルックのメールの一斉送信を行いたいです。
 ②エクセルC列の情報を元に本文の内容を一部変更したいです。
+③②はハイパーリンクで表示したいです。
 ### 発生している問題・エラーメッセージ

VBA Excel

修正

2022/10/31 11:09

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -126,12 +126,12 @@
               LastRow = Range("A1048576").End(xlUp).Row
               For i = 3 To LastRow
               If Cells(i, 3) = "S" Then
-              Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
+              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) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
+              Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
               Else
-               Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
+               Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
               End If
               Next
@@ -173,11 +173,11 @@
               LastRow = Range("A1048576").End(xlUp).Row
               For i = 3 To LastRow
               If Cells(i, 3) = "S" Then
-              Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら１</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら１</a>"
+              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) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら２</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら２</a>"
+              Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら２</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら２</a>"
               Else
-               Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら３</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら３</a>"
+               Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら３</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら３</a>"
               End If
               Next

VBA Excel

構文修正

2022/10/30 10:09

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -173,11 +173,11 @@
               LastRow = Range("A1048576").End(xlUp).Row
               For i = 3 To LastRow
               If Cells(i, 3) = "S" Then
-              Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
+              Cells(i, 10) = "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) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
+              Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら２</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら２</a>"
               Else
-               Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
+               Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら３</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら３</a>"
               End If
               Next

VBA Excel

コード修正

2022/10/30 10:07

投稿

koko2

スコア21

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -174,8 +174,7 @@
               For i = 3 To LastRow
               If Cells(i, 3) = "S" Then
               Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
-              ElseIf Cells(i, 3) = "M" Then
+               ElseIf Cells(i, 3) = "M" Then
               Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"
               Else
                Cells(i, 10) = "Cells(i, 10) = "詳細は <a href="https://www.google.co.jp/">こちら</a>。問い合わせ先は<a href="mailto:info@sample.com">こちら</a>"

VBA Excel