Question

好的，在某些人从Lotus Notes迁移到Office 365的时候，我遇到了一定的要求......

较旧的工作流应用程序向用户发送邮件。这已经好多年了。但现在我们有了一种新型用户。这些用户只是将Notes用于几个旧的遗留应用程序，例如相关的应用程序。

我们得到的错误是：

File does not exist

生成它的代码非常简单：

Dim session As New NotesSession
Dim db As NotesDatabase
Dim rtitem As NotesRichtextItem
Dim doc2 As NotesDocument

Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
doc2.Form = "Memo"
doc2.Subject = "Test mail " & now
Set rtitem = New NotesRichTextItem (doc2, "Body" )      
Call rtitem.AppendText("A simple test....")
Call rtitem.addnewline(2)
Call rtitem.AppendText("Link to complaint ")
Call doc2.Replaceitemvalue("sendto", "john@dalsgaard-data.dk")
doc2.Send( False )

运行最后一行时失败....

所以，问题实际上是：我如何围绕这个问题进行编码？

我知道用户没有邮件文件 - 我真的不想为新用户创建一个邮件文件。

提前致谢！

/约翰

Answer 1

当用户触发代码时没有在个人文档/位置指定邮件文件时，将显示错误。一种选择是更改代码以将新邮件直接保存到服务器mail.box（假设服务器配置为路由邮件）或仅使用java直接通过SMTP发送电子邮件。

Answer 2

好的，我做了一些试验和错误测试....

到目前为止的结论是它适用于这种情况：

在LOCAL位置文档（在计算机上的names.nsf中）中指定：

邮件服务器 - 用户可以访问的服务器
Mail＆＃34; On Server＆＃34;
现有的邮件文件 - 它可以是服务器上的任何现有文件，也不一定是邮件数据库。

实际上，一个非决定性的测试表明邮件数据库甚至不存在（但是具有测试设置的用户必须离开 - 所以我今晚无法确认...）

修改

进一步测试表明，如果用户不漫游，这可能不是问题。我需要进一步验证，这实际上是我使其工作的原因（有一件事，一旦添加就无法再删除邮件文件名）......但我想我会在这里添加它。

从Notes发送邮件 - 当它不用于邮件时

2 个答案: