EXCEL VBAからLotus Notesの電子ﾒｰﾙを送信する方法､ﾌﾟﾛｸﾞﾗﾑを http://q.hatena.ne.jp/1191967258 を参考にさせていただき､その通り出来ました(素晴らしい！)が､VBAにてﾌｧｲﾙを添付させたいので､その方法を教えて頂けませんか？ 宜しくお願い致します｡▽1
●
a-kuma3 ﾍﾞｽﾄｱﾝｻｰ |
こんなのが見つかりました｡
http://homepage3.nifty.com/belie/vba/vba033.htm
' 文書にﾘｯﾁﾃｷｽﾄｱｲﾃﾑを作成する Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY") ' 本文をｾｯﾄする With wkNRtItem .APPENDTEXT "本文(1行目)" .ADDNEWLINE 1 .APPENDTEXT "本文(2行目)" .ADDNEWLINE 2 ' 添付ﾌｧｲﾙ名をｾｯﾄする AttFName = "D:\TEST\Book1.xls" ' ﾌｧｲﾙを添付する Set wkNAtt = .EmbedObject(EMBED_ATTACHMENT ,"" ,AttFName) .ADDTAB 1 .ADDNEWLINE 1 End With
