VBSを使用してNotesメールのフォントサイズを変更
お世話になります。
現在WinActor Ver6.3.0を使用しております。
以前、myoshi様が 投稿2019年4月11日 に投稿していただいている下記のVBSを使用してNotesメールの送信を行っております。
使っておりまして、これに新たにフォントサイズの変更を入れたいと考え、個人的に調べてみたのですが、
どうしてもわからず投稿しております。
フォントサイズの変更対象は ”本文を記述(2行目)” の部分だけなのですが、
ここだけをピンポイントでフォントサイズ変更できないものでしょうか?
よろしくお願いいたします。
==============================
Option Explicit
Const EMBED_ATTACHMENT = 1454
Dim wkNSes
Dim wkNDB
Dim wkNDoc
Dim wkNRtItem
Dim wkNAtt
Dim AttFName
Set wkNSes = CreateObject("Notes.NotesSession")
Set wkNDB = wkNSes.GETDATABASE("", "")
Call wkNDB.OpenMail
Set wkNDoc = wkNDB.CREATEDOCUMENT()
wkNDoc.Subject = !件名!
wkNDoc.SendTo = Split(!宛先!, ",")
wkNDoc.CopyTo = Split(!CC!, ",")
Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY")
With wkNRtItem
.APPENDTEXT "本文を記述(1行目)"
.ADDNEWLINE 1
.APPENDTEXT "本文を記述(2行目)"
.ADDNEWLINE 1
AttFName = !添付ファイルのフルパス名!
Set wkNAtt = .EmbedObject(EMBED_ATTACHMENT, "", AttFName)
.ADDTAB 1
.ADDNEWLINE 1
End With
wkNDoc.Send False
wkNDoc.Save False,False
Set wkNAtt = Nothing
Set wkNRtItem = Nothing
Set wkNDoc = Nothing
Set wkNDB = Nothing
Set wkNSes = Nothing