質問編集履歴
2
説明文に補足を追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,7 @@
|
|
|
1
1
|
エクセルVBAとOutlookを使って下図のようにエクセルのセル内の本文を参照してテンプレ文を表示するマクロを作成しています。
|
|
2
|
-
セル内にbrの改行タグは適用されるも、フォントサイズ、フォント体が上手く反映されません。
|
|
2
|
+
セル内にbrの改行タグは適用されるも、フォントサイズ、フォント体が上手く反映されません。メール作成マクロを実行した際、本来は游ゴシック・11ptで出力されてほしいのですが、デフォルトのMPゴシック体・10ptに出力されてしまいます。
|
|
3
|
-
下記、ソースコードです。ご教示お願いいたします。
|
|
4
3
|
|
|
5
|
-
|
|
4
|
+
ご教示お願いいたします。
|
|
6
5
|
|
|
7
6
|
```エクセルVBA
|
|
8
7
|
コード
|
1
コード文の別のレイアウトで追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,16 +2,17 @@
|
|
|
2
2
|
セル内にbrの改行タグは適用されるも、フォントサイズ、フォント体が上手く反映されません。
|
|
3
3
|
下記、ソースコードです。ご教示お願いいたします。
|
|
4
4
|
|
|
5
|
+
|
|
6
|
+
|
|
7
|
+
```エクセルVBA
|
|
8
|
+
コード
|
|
9
|
+
|
|
5
10
|
Dim wb As Workbook
|
|
6
11
|
Dim ws As Worksheet
|
|
7
|
-
|
|
8
12
|
Set wb = ActiveWorkbook
|
|
9
13
|
Set ws = wb.Worksheets("テンプレ文")
|
|
10
|
-
|
|
11
|
-
|
|
12
14
|
Dim objOutlook As Outlook.Application
|
|
13
15
|
Dim objMail As Outlook.MailItem
|
|
14
|
-
|
|
15
16
|
Set objOutlook = New Outlook.Application
|
|
16
17
|
Set objMail = objOutlook.CreateItem(olMailItem)
|
|
17
18
|
|
|
@@ -39,4 +40,5 @@
|
|
|
39
40
|
お疲れさまです。<br><br>
|
|
40
41
|
お手数ですがよろしくお願い致します。<br><br>
|
|
41
42
|
</span>
|
|
43
|
+
```
|
|
42
44
|
|