运行邮件文档，服务器链接不能正常工作。

Question

问题：

1. 使用代理运行和发送邮件提供不同的链接
2. 邮件包含不包括数据库的链接
3. 我把它设置为雅虎邮件 打印“代理: LateIn原因的第一次提醒开始运行于”&DateValue(Now()&“)，+TimeValue(现在()) Dim作为新的NotesSession Dim db作为NotesDatabase Dim LateInVw，LateInVw作为NotesView Dim LateInDocs，NotesViewEntryCollection Dim LateEntry作为NotesViewEntry Dim LateDoc，NotesDocument Dim StaffVw作为NotesView，StaffDoc作为NotesDocument Dim #en19作为Dim sysdoc作为，作为Dim As #en24 25，如NotesDocument Set db=ss.Currentdatabase Set sysVw=db.getview(“(($System Settings)")如果sysdoc为空，则退出Sub Set LateInVw=db.getview(”(测试晚期时间记录)“) Set StaffVw=db.getview("($Active Staff By ID)") Set AttVw =db.Getview(”(由ID设置考勤设置)“)tdy=Datevalue(现在)获取今天Set LateInDocs=LateInVw.Allentries Set lateEntry=LateInDocs.getfirstentry的所有时间记录，而不是LateEntry是无设置的Set lateEntry=LateInDocs.getfirstentry如果Attdoc.LateAtt(0)=“是”，那么如果LateDoc.LateReason(0)=“ApprovedLateIn”(如果不是ApprovedLateIn(LateDoc，LateDoc.TAmend(0)，False)，那么'get staff mail Set Set ApprovedLateIn如果不是email$<>staffDoc.email(0)，那么‘发送电子邮件并链接到主菜单，如果是email$=staffDoc.email(0)，那么’email$=staffDoc.email(0) email$="chee111385@gmail.com“Set Maildoc=New NotesDocument(db) Set maildoc=db.Createdocument()Maildoc.Form=“第一次提醒通知”maildoc.Subject=智能卡考勤系统：“+Format$(LateDoc.TDate(0)，( "dd/mm/yyyy") Maildoc.StaffName=staffDoc.StaffName(0) maildoc.Sendto="chee111385@gmail.com“‘maildoc.NotifyDate=LateDoc.Tdate(0) maildoc.NotifyDate=LateDoc.Tdate maildoc.NotesServer=sysdoc.ServerPath(0) maildoc.NotesDBPath=sysdoc.DBPath(0) maildoc.send(True)如果结束如果‘检查unimas的jadual kedatangan结束’如果‘在考勤设置中签入迟到/关闭“设置LateEntry=LateInDocs.Getnextentry(LateEntry)循环结束

我将在这里附上我的图像文件和编码。

​

​

​

​

从这2张图片中你可以看到，实际上我想把

注://Mulu/智能卡Attedancce/sas-server.nsf/Scais Main?OpenFrameset

但是寄出邮件的结果是

注:/Scais Main?OpenFrameset

没有服务器和数据库。我不知道编码的哪一部分是错误的。

另一个附件将是我用作mail.form的表单。

​

​

​

Answer 1

首先:像您这样使用自定义表单发送外部邮件并不是最好的主意，因为目标系统可能无法相应地呈现所有内容。

也就是说，我首先创建一个包含所有数据的文档，然后将其呈现给maildoc。代码将如下所示：

Dim Templatedoc as NotesDocument
Dim body as NotesRichtextItem

Set Templatedoc=New NotesDocument(db)
Set Templatedoc=db.Createdocument()
Templatedoc.Form="First Reminder Notification"
Templatedoc.StaffName=staffDoc.StaffName(0)
'   maildoc.NotifyDate=LateDoc.Tdate(0)
Templatedoc.NotifyTime=Timevalue(LateDoc.TAmend(0))
Templatedoc.NotesServer=sysdoc.ServerPath(0)
Templatedoc.NotesDBPath=sysdoc.DBPath(0)

Set maildoc=New NotesDocument(db)
maildoc.Form = "Memo"
maildoc.Subject="Smartcard Attendance System: Late-In Notification for " +Format$(LateDoc.TDate(0),"dd/mm/yyyy")
maildoc.Sendto="chee111385@gmail.com"

Set body = New NotesRichtextItem( maildoc, "Body" )
Call Templatedoc.RenderToRTItem( body )

maildoc.send(True)

第二:设置两个字段(NotesServer和NotesDBPath)来计算链接。但是，实际中的链接是根据环境变量计算的，这些变量不是在服务器上设置的。

将链接-计算-公式更改为：

srv := NotesServer;
pth := NotesDBPath;

这应该是链接的诀窍。