VB6 发送电子邮件源码

源码"/>

VB6 发送电子邮件源码

Private Sub SendInf()
Dim strserver As String
Dim ColonPos As Integer
Dim lngPort As Long
Dim NameSpace As StringOn Error GoTo erragain1:getaddress = "32*******9@qq"    '收件邮箱strserver = "smtp.163"         '发件邮箱smtp服务器txtfrom = "13*******58@163"    '发件邮箱user = "13********8@163"       '发件邮箱登录名称txtpwa = "ro**********1"           '发件邮箱登录密码subject = "张三丰 的登录验证码：1Li0P" toname = "张三丰"txtMessage = "尊敬的" + "张三丰" + "阁下，您" + Format(Now, "YYYY年MM月DD日 HH时MM分SS秒") + "的登录验证码为：1Li0P ，祝您工作愉快！"If Option1.Value = True ThenWinsock1.CloseWinsock1.LocalPort = 0strserver = strserverColonPos = InStr(strserver, ":")If ColonPos = 0 ThenWinsock1.Connect strserver, 25ElselngPort = CLng(Right$(strserver, Len(strserver) - ColonPos))strserver = Left$(strserver, ColonPos - 1)Winsock1.Connect strserver, lngPortEnd Ifm_State = MAIL_CONNECT    'Frame2.Visible = TrueLabel5.Caption = "试图连接邮件服务器" + strserver + "，请稍等..."Else                                                                      '使用CDO.Message来发送邮件NameSpace = "/"Set email = CreateObject("CDO.Message")email.From = txtfrom          '发件邮箱email.To = getaddress         '收件邮箱email.subject = subject       '邮件主题email.Textbody = txtMessage   '邮件内容With email.Configuration.Fields.Item(NameSpace & "sendusing") = 2.Item(NameSpace & "smtpserver") = strserver   'smtp服务器，QQ的是：smtp.qq.Item(NameSpace & "smtpserverport") = 25      '端口，不要改！好象除smtp.qq外，其它服务器都是用 25 端口.Item(NameSpace & "smtpauthenticate") = 1.Item(NameSpace & "sendusername") = user      '邮箱用户名（QQ的对应QQ号）.Item(NameSpace & "sendpassword") = txtpwa    '邮箱密码（QQ的对应邮箱密码）.UpdateEnd WithFrame2.Visible = TrueLabel5.Caption = "试图连接邮件服务器" + strserver + "，请稍等..."email.SendIf Error <> "" ThenSendErrNo = SendErrNo + 1If SendErrNo < 6 ThenGoTo again1:ElseLabel5.Caption = "发验证码到 ********" + Right(getaddress, Len(getaddress) - InStr(getaddress, "@") + 3) & " 失败！请稍候再获取验证码。"EmailPoi = EmailNumber + 1End IfElseLabel5.Caption = "验证码已发送到邮箱 ********" + Right(getaddress, Len(getaddress) - InStr(getaddress, "@") + 3)SendErrNo = 0Command3.Enabled = FalseTimer6.Enabled = TrueEmailPoi = EmailPoi + 1GoTo again1:End IfEnd IfExit Suberr:If Option1.Value = True ThenFrame2.Visible = FalseMsgBox "系统监测到异常的错误编号：" & err.Number & " ，错误描述：" & err.Description & "，有可能是winsock控件为能注册，请退出系统，以管理员身份运行系统目录下‘注册控件.bat’！", vbCritical + vbOKOnly, "错误提示"ElseSendErrNo = SendErrNo + 1If SendErrNo < 6 ThenGoTo again1:ElseLabel5.Caption = "发验证码到 ********" + Right(getaddress, Len(getaddress) - InStr(getaddress, "@") + 3) & " 失败！请稍候再获取验证码。"EmailPoi = EmailNumber + 1End IfEnd If
End Sub

读卡器介绍：.htm?spm=a1z10.1-c.w4004-17663462243.14.2b826baaerIa66&id=22173284717.htm?spm=a1z10.1-c.w4004-17663462243.14.2b826baaerIa66&id=22173284717