添付ファイルを送信するＶＢＡを作成いたしました。 ファイルは送信されましたが 、以下のメッセージが表示されます。 （See attached file: ファイル名） この表示をなくし、添付ファイルのみ送信したいのですが どの様にするのでしょうか？ ＶＢＡは以下の通りです、受信はＯＵＴＬＯＯＫで行いました。 ＶＢＡはＥｘｃｅｌで作成しました。 Ｎｏｔｅｓは顧客が使用されていて、詳しい仕様は分かりません。 Const EMBED_ATTACHMENT As Integer = 1454 Dim wkNSes As Object ' lotus.NOTESSESSION Dim wkNDB As Object ' lotus.NOTESDATABASE Dim wkNDoc As Object ' lotus.NOTESDOCUMENT Dim wkNRtItem As Object ' lotus.NOTESRICHTEXTITEM Dim wkNAtt As Object ' lotus.NOTESEMBEDDEDOBJECT Dim AttFName As String ' 添付ファイル名(フルパス) ' Notesのセッションを起動する Set wkNSes = CreateObject("Notes.NotesSession") ' NotesDatabaseオブジェクトを作成し、そのデータベースを開く Set wkNDB = wkNSes.GETDATABASE("", "") ' NotesDBをユーザーのメールDBに割り当てた後に開く wkNDB.OpenMail ' NotesDBに文書を作成し、新規文書をオブジェクト変数にセットする Set wkNDoc = wkNDB.CREATEDOCUMENT() ' 件名をセットする wkNDoc.Subject = "試験送信３" ' 宛先をセットする wkNDoc.SendTo = Array("メールアドレス") 'wkNDoc.CopyTo = Array("xxx@xxx") 'wkNDoc.blindCopyTo = Array("xxx@xxx") ' 文書にリッチテキストアイテムを作成する Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY") ' 本文をセットする With wkNRtItem '添付ファイル名をセットする AttFName = ActiveWorkbook.FullName ' ファイルを添付する Set wkNAtt = .EmbedObject(EMBED_ATTACHMENT, "", AttFName) End With ' メールを送信する wkNDoc.Send False ' オブジェクト変数を解放する Set wkNAtt = Nothing Set wkNRtItem = Nothing Set wkNDoc = Nothing Set wkNDB = Nothing Set wkNSes = Nothing End Sub