作成者	カテゴリ		公開
あかいキノコ 07/31/2015 07:35 PM	-- 分類を選んでください --

こんばんは、あかいキノコと申します。

現在、ExcelとNotesの連携を行っており、
Excelからﾒｰﾙを送りたいのですが、その際、ﾒｰﾙﾌｫﾝﾄを指定したいと思っております。
ですが、ﾌｫﾝﾄを取得するところでｴﾗｰ「型が一致しません。」となります。
richstyle.NotesFont = mailritem.GetNotesFont("Meiryo UI", True)
どこが問題なのでしょうか？
ﾒｰﾙは送れますし、ﾌｫﾝﾄｶﾗｰなどは変更できました。
未熟者ですので、是非教えていただきたく、ﾒｯｾｰｼﾞを載せさせていただきました。
宜しくお願い致します。

Dim ws As Object
Dim s As Object
Dim db As Object
Dim view As Object
Dim doc As Object
Dim maildb As Object
Dim maildoc As Object
Dim mailritem As Object
Dim richstyle As Object
Dim Title As String
Dim NextNo As Double
Dim SendID As Variant


Title = "【検印依頼：検査基準書】 " + doc.GetItemValue("Zuban")(0)
NextNo = doc.GetItemValue("ProcessingNo")(0)
SendID = doc.GetItemValue("ID_Root" & NextNo)(0)

Set maildb = s.GetDatabase("", "")
Call maildb.OpenMail
Set maildoc = db.Createdocument()
maildoc.PostedDate = Now

Call maildoc.ReplaceItemValue("From", "Memo")
Call maildoc.ReplaceItemValue("Subject", Title)
Call maildoc.ReplaceItemValue("SendTo", SendID)

'ﾒｰﾙﾌｫﾝﾄｽﾀｲﾙ設定*************************************
Set richstyle = s.CreateRichTextStyle
Set mailritem = maildoc.CreateRichTextItem(maildoc, "Body")
richstyle.NotesFont = mailritem.GetNotesFont("Meiryo UI", True)　←エラー


'ﾒｰﾙのBody設定***************************************
Call mailritem.AppendStyle(richstyle
Call mailritem.AppendText("いつもお世話になっております。")
Call mailritem.AddNewLine(1)
Call mailritem.AppendText("検査基準書の検印をお願い致します。")
'ｺﾒﾝﾄ追加==>
Call mailritem.AddNewLine(2)
Call mailritem.AppendText(doc.GetItemValue("Comment")(0))'<====

Call mailritem.AddNewline(1)
richstyle.Bold=True
Call mailritem.AppendStyle(richstyle)
Call mailritem.AppendText("図番: "+doc.GetItemValue("Zuban")(0))
Call mailritem.AddNewline(1)
Call mailritem.AppendText("品名: "+doc.GetItemValue("Hinmei")(0))
Call mailritem.AddNewline(1)
Call mailritem.AppendText("Revision: "+doc.GetItemValue("Rev")(0))
Call mailritem.AddNewline(2)
richStyle.NotesColor = COLOR_RED
Call mailritem.AppendStyle(richstyle)
Call mailritem.AppendText("Link→")
Call mailritem.AppendDocLink(doc,"Click!")
Call mailritem.AddNewline(2)
richstyle.Bold=False
richStyle.NotesColor = COLOR_BLUE
Call mailritem.AppendStyle(richStyle)
Call mailritem.AppendText("※リンク先にあるExcelファイルを開いて検印してください。")
Call mailritem.AddNewline(1)
Call maildoc.Save(True,False)


'ﾒｰﾙ送信********************************************
Call maildoc.Send(False)

'ﾒｰﾙ送信後、ﾒｯｾｰｼﾞを表示******************************
Msgbox"You sent an email."