IT分销/经销target办公自动化

[求助]如何使用LotusScript打开Notes的发信界面

新手求助,如何使用LotusScript打开Notes的发信界面?

看到很多资料都是直接把信发送出去了,类似下面这样的实现方法:

Sub SendMail(target As String, attachment As String)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim ritme As NotesRichTextItem
    Set db = session.CurrentDatabase
    Set doc = New NotesDocument(db)
    doc.Form = "Memo"
    doc.SendTo = target
    doc.Subject = "Here's the document you wanted"
    Call doc.Send(False)
End Sub

但是现在有这样的一个要求,就是把收信人、标题、正文,都填好,但并不马上发送,而是保留新建邮件的界面,不知道如何实现。请高手指教啊,感激不尽。
参与6

5同行回答

usbusbusbusb软件工程师   
回复 5# lotuspond88     原来如此啊,编辑模式,哈哈。十分感谢高手相助,接分:handshake显示全部
回复 5# lotuspond88


    原来如此啊,编辑模式,哈哈。
十分感谢高手相助,接分:handshake收起
IT分销/经销 · 2012-06-26
浏览705
dzz_001dzz_001项目经理北京软件公司
看一下表单,webquerysave里,肯定有代码。显示全部
看一下表单,webquerysave里,肯定有代码。收起
互联网服务 · 2012-06-26
浏览724
usbusbusbusb软件工程师   
不用 Call doc.Send(False) 改成 call doc.save(true,ture)不就可以了吗?msn1983908 发表于 2012-6-26 15:42     谢谢答复,试过了,没有实现,邮件还是直接被放到发件箱了显示全部
不用 Call doc.Send(False) 改成 call doc.save(true,ture)不就可以了吗?
msn1983908 发表于 2012-6-26 15:42



    谢谢答复,试过了,没有实现,邮件还是直接被放到发件箱了收起
IT分销/经销 · 2012-06-26
浏览730
msn1983908msn1983908软件开发工程师外企
不用 Call doc.Send(False) 改成 call doc.save(true,ture)不就可以了吗?显示全部
不用 Call doc.Send(False) 改成 call doc.save(true,ture)不就可以了吗?收起
互联网服务 · 2012-06-26
浏览698
lotuspond88lotuspond88系统工程师深圳富士康
你要的处于编辑状态吧Call doc.Send(False)改为dim ws as new notesuiworkspacecall ws.editdocument(true,doc)end sub试一下显示全部
你要的处于编辑状态吧
Call doc.Send(False)改为
dim ws as new notesuiworkspace
call ws.editdocument(true,doc)
end sub试一下收起
IT分销/经销 · 2012-06-26
浏览734

提问者

相关问题

相关资料

问题状态

  • 发布时间:2012-06-26
  • 关注会员:1 人
  • 问题浏览:3544
  • 最近回答:2012-06-26
  • X社区推广