作成者	カテゴリ		公開
akira 07/26/2007 11:52 AM	メーラー

VBからノーツオブジェクトを使用してメールを送る処理を作っています
エクセルファイルを添付していまして
自分自身へのメール送信は正常に動作するのですが
客先へメールを送信すると
エクセルが圧縮されさらに内容がxmlに変換されるのです

ソースはこんな感じです
Dim plNSes As Object ' lotus.NOTESSESSION
Dim plNDB As Object ' lotus.NOTESDATABASE
Dim plNDoc As Object ' lotus.NOTESDOCUMENT
Dim plNRtItem As Object ' lotus.NOTESRICHTEXTITEM
Dim plNAtt As Object ' lotus.NOTESEMBEDDEDOBJECT
Dim plAttFName As String '
Dim plIndex As Long
Dim plBodyString As String

Set plNSes = CreateObject("Notes.NotesSession")
Set plNDB = plNSes.GetDatabase(ServerName, DatabaseName)
plNDB.OPENMAIL
Set plNDoc = plNDB.CreateDocument()
plNDoc.Subject = "題名"
plNDoc.SendTo = Array(AddressTo)
Set plNRtItem = plNDoc.CreateRichTextItem("BODY")

With plNRtItem
plIndex = 1
.AppendText "本文"
.AddNewLine 1
Set plNAtt = .EmbedObject(EMBED_ATTACHMENT, "", AttachiFileName)
.AddTab 1
.AddNewLine 1
End With

plNDoc.Send False

何か参考になるものがあれば教えてください
お願いします