EXCEL VBAからLotus Notesの電子メールを送信する方法、プログラムを http://q.hatena.ne.jp/1191967258 を参考にさせていただき、その通り出来ました(素晴らしい!)が、VBAにてファイルを添付させたいので、その方法を教えて頂けませんか? 宜しくお願い致します。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2014/09/26 09:44:39
  • 終了:2014/09/26 11:41:28

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4443ベストアンサー獲得回数18252014/09/26 11:15:07

こんなのが見つかりました。
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
id:GoodWalker

試してみました。期待通り、ファイルを添付できました。有難うございます。

2014/09/26 11:42:13

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません