Domino服务器向Internet邮箱发送邮件设置
原创
©著作权归作者所有:来自51CTO博客作者笨笨牛的原创作品,谢绝转载,否则将追究法律责任
1、设置服务器路由:如图,添加配置:![Domino服务器向Internet邮箱发送邮件设置_休闲](https://s2.51cto.com/attachment/201003/201003311270033091060.jpg?x-oss-process=image/resize,m_fixed,w_1184)
2、在“基本”中添加“群组或服务器名称”:
3、在“路由器/SMTP ”中按如下图设置:![Domino服务器向Internet邮箱发送邮件设置_休闲_03](https://s2.51cto.com/attachment/201003/201003311270033132149.jpg?x-oss-process=image/resize,m_fixed,w_1184)
按如上设置完成后在代理中添加发送邮件代码,如:
先添加一个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
上面只是测试的简单代码,我们可以在测试成功后,再优化各种设置,如系统配置的数据字典、流程配置或个人配置中添加发送邮件的控制。
如果发送不成功,报如下错误,解决办法:
错误类型一:
服务器报错为:![Domino服务器向Internet邮箱发送邮件设置_休闲_04](https://s2.51cto.com/attachment/201003/201003311270033150235.jpg?x-oss-process=image/resize,m_fixed,w_1184)
检查服务器系统中的hosts文件,如果该服务器开通了域名访问,将IP地址和对应的域名写入hosts文件中,如下图所示:
错误类型二:
服务器报错为:![Domino服务器向Internet邮箱发送邮件设置_Domino发送邮件_06](https://s2.51cto.com/attachment/201003/201003311270033212023.jpg?x-oss-process=image/resize,m_fixed,w_1184)
同样检查服务器系统的hosts文件,如果服务器并未开通域名访问,将服务器的IP及对应domino服务器名写入hosts文件中,如下图所示:![Domino服务器向Internet邮箱发送邮件设置_职场_07](https://s2.51cto.com/attachment/201003/201003311270033232640.jpg?x-oss-process=image/resize,m_fixed,w_1184)