WEBSERVICE发邮件的问题

[deallylau]

大家好，因为其他系统要调用NOTES系统来发邮件，我们做了一个WEBSERVICE，但是现在问题来了，
别人把附件的长路径名（相对于客户端电脑），

这样的话，WEBSERVICE就没办法发附件了，请问该怎么解决。

即使放到远程路径也一样。（用数据流读取等都是0）


或者有什么问题，我现在头很大了，都还没解决。

[numberlock]

把问题描述清楚，最好用例子说明。

[deallylau]

WEBSERVICE

Public Function TestMail() As String
Dim s As New NotesSession
Dim db As NotesDatabase
Dim mailDoc As NotesDocument
Dim rtItem As NotesRichTextItem
Dim bodyline1 As String
Set s = New NotesSession
Set db = s.CurrentDatabase
Set mailDoc = Db.CreateDocument
mailDoc.Form = "Memo"
mailDoc.Subject = "This is test mail"
mailDoc.SendTo = "[e-mail]"
mailDoc.Principal = "[e-mail]"

Set rtItem = mailDoc.CreateRichTextItem("Body")
bodyline1="Dear user ," & Chr(10)
Call rtitem.AppendText(bodyline1 )
Call rtItem.AddNewLine(1)
Call rtitem.AppendText("This is body" )
Call rtItem.AddNewLine(1)
Call rtitem.AddNewLine( 3)
Call rtitem.AppendText( "Best Regards" )
Call rtitem.AddNewLine( 2)

'''*******************这里添加附件，我用了notesstream，但是读取字节为0，用了EmbedObject 等都不行，请明示，谢谢。



maildoc.Send False
TestMail=True
End Function

[bitwise]

我的解决办法如下,不足请大家指教：

你可以在非domino系统中，先用Base64的编码方式，转换成流的字符串形式作为接口的参数。然后再用Base64解

码转换为附件。