1、设置服务器路由：如图，添加配置：
 
 
2、在“基本”中添加“群组或服务器名称”：
 
3、在“路由器/SMTP ”中按如下图设置：
 
按如上设置完成后在代理中添加发送邮件代码，如：
先添加一个sendmail的函数：
Call sendmail(doc,db,“niuniu59310396@163.com”,F.GetCurUser(),"这是测试邮件的内容!")
 
sendmail函数：
Sub sendmail(doc As NotesDocument,db As NotesDatabase, sendToUser As String, sendUser As String,tempstr As String)
    
   Dim rtitem As NotesRichTextItem
   Set maildoc = New NotesDocument(db)
   Set userdoc = New NotesDocument(sysdb)
    
    
  maildoc.Form = "Memo"
  maildoc.principal= sendUser
  maildoc.SendTo = sendToUser
  maildoc.Subject =     "通知提醒：【"+ Cstr(doc.Created)+doc.Subject(0)+ "】"
    
   Set rtitem = New NotesRichTextItem(maildoc, "Body")
   Call rtitem.AppendText(tempstr)
   Call maildoc.Send( False)
End Sub
 
上面只是测试的简单代码，我们可以在测试成功后，再优化各种设置，如系统配置的数据字典、流程配置或个人配置中添加发送邮件的控制。
 
如果发送不成功，报如下错误，解决办法：
错误类型一：
服务器报错为：
 
检查服务器系统中的hosts文件，如果该服务器开通了域名访问，将IP地址和对应的域名写入hosts文件中，如下图所示：
 
错误类型二：
服务器报错为：
 
同样检查服务器系统的hosts文件，如果服务器并未开通域名访问，将服务器的IP及对应domino服务器名写入hosts文件中，如下图所示：