当前位置:软件学习 > 其它软件 >>

WEBSERVICE发邮件的问题

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

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

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


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



--------------------编程问答-------------------- 把问题描述清楚,最好用例子说明。 --------------------编程问答-------------------- 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 = "Davis-ChenFu.Liu@cn.abb.com"
mailDoc.Principal =  "Davis-ChenFu.Liu@cn.abb.com"

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 --------------------编程问答-------------------- 我的解决办法如下,不足请大家指教:

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

码转换为附件。
补充:企业软件 ,  Lotus
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,