作成者	カテゴリ	返答の対象		公開
まーくん 03/15/2007 09:41 PM		添付ファイルの付く（See attached file: ＸＸＸＸ）のコメントを消したい

はやてさん
紹介いただいた内容では、ＭＩＭＥ方式でソウシンする必要があるようです。
小生が記述したＶＢＡは、以下のとおりで
リッチテキストでソウシンするようになっています
これを、ＭＩＭＥ方式で送信するには、どの様に記述すればよいのでしょう。
よろしくお願いいたします。
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃
' 文書にリッチテキストアイテムを作成する
Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY")

With wkNRtItem
' 添付ファイル名をセットする
AttFName = "D:\TEST\Book1.xls"
' ファイルを添付する
Set wkNAtt = .EmbedObject(EMBED_ATTACHMENT ,"" ,AttFName)
End With

' メールを送信する
wkNDoc.Send False

＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃