Domino服务器向Internet邮箱发送邮件设置

1、设置服务器路由：如图，添加配置：

 

 

2、在“基本”中添加“群组或服务器名称”：

 

3、在“路由器/SMTP ”中按如下图设置：

 

按如上设置完成后在代理中添加发送邮件代码，如：

先添加一个sendmail的函数：

Call sendmail(doc,db,“[email protected]”,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文件中，如下图所示：

本文出自 “笨笨牛” 博客，谢绝转载！