可以通过调用KDMobileOpen.dll组件发送邮件，使用已经封装好的标准组件，用起来放心，提高二开效率。
截图中删掉了应该输入的关键信息
填充完上述内容之后，点击按钮，如果你输入的信息是准确的，效果如下；
调用方法：
Private Sub Command1_Click()
If TestMyEmail Then
MsgBox "测试成功!"
Else
MsgBox "测试失败,请检查邮箱配置是否正确!"
End If
End Sub
Public Function TestMyEmail() As Boolean
Dim dctEmail As KFO.Dictionary
Dim strSendEmailResult As String
Dim obj As Object
On Error GoTo Error_Handle
Set dctEmail = New KFO.Dictionary
'这一块是接收方信息：接收的邮箱地址、标题、内容、附件、不写日志
dctEmail("Addrecipients") = Trim(txtReceive.Text)
dctEmail("Subject") = "测试1"
dctEmail("Body") = txtSendMsg.Text
dctEmail("Addattachment") = ""
dctEmail("bLog") = 0 '不写日志
'这一块是服务内容TestMailInfo=1表示本次调用与业务预警服务无关
'txtAccountName:发送邮件的地址
'txtMailSrv：发送邮件的服务器地址（市面上大部分邮件服务商都提供smtp服务的qq,163）
'cmbEncryptMode=0;默认方式,需要发送邮件的用户名密码
'txtRZName用户名
'txtRZPassword密码
dctEmail("TestMailInfo") = 1
dctEmail("txtAccountName") = Trim(txtSendAddress.Text)
dctEmail("txtMailSrv") = Trim(txtServer.Text)
dctEmail("cmbEncryptMode") = 0 'cmbEncryptMode.ListIndex
dctEmail("txtRZName") = Trim(txtSendUser.Text)
dctEmail("txtRZPassword") = txtSendPwd.Text
'IsSave表示发送邮件成功后，是否把发送邮件的信息存到当前账套里
'PropsString:当前账套的连接串信息；
'IsSave不为0时必须填写正确的PropsString
dctEmail("IsSave") = 0
'dctEmail("PropsString") = "" 'MMTS.PropsString
Set obj = CreateObject("KDMobileOpen.KDSendMail")
strSendEmailResult = obj.KdSendMail(dctEmail)
Set obj = Nothing
Set dctEmail = Nothing
If strSendEmailResult <> "" Then
Exit Function
End If
TestMyEmail = True
Exit Function
Error_Handle:
Set obj = Nothing
Set dctEmail = Nothing
MsgBox Err.Description
End Function
二开人员可以到k3企业邮箱配置这里检验自己的信息输入的是否正确。
完
