1、JmailSend quot #39SMTP服务器，如 Set Jmail = Nothing MsgBox quotOKquot#39 Exit Sub #39 ToExitSelect Case JmailErrorCode Case 550 MsgBox quot该邮件地址不存在，请更改后再发quot；vbnet发送邮件身份验证失败的原因是1错误的用户名或密码，会导致发送邮件身份验证失败2服务器设置问题，要与电子邮件服务提供商联系以获取正确的服务器设置信息3防火墙安全软件阻止连接计算机上有防火墙或安全；1 确认已安装SMTP服务器 首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项如果SMTP服务器已安装，在System32目录下会存在一个名为cdontsdll的文件2 最简单的邮件发送程序 以下；UserCode quot#39quot， Conn， adOpenDynamic， adLockOptimistic， adCmdText If Rst1EOF = False Then #39有信箱存在 jmailSender = Rst1！MailName #39取出发送者信箱名称 jmailServerAddress = Rst1！SmtpServer #39服务器地址。
2、2中端方法，利用Jmail之类的第三方组件来发送，程序很简单，但如果软件要分发，则被分发的电脑上也要安装相同的第三方组件3低端方法，通过调用第三方邮件软件比如FoxMail来发送，这个几乎不用编程，但必须依赖其他；quotsmtpserverquot = quot #39发信服务器，假设为163邮箱 quot；MsgBox quot邮件发送完毕quot， ， quot发送邮件quot 发送成功显示信息框 End Sub 这样一个电子邮件发送部分就制作完成了，运行程序之后只要填写好邮件的收件人主题和内容后，按下“发送”命令按钮，邮件就已经成功地发往目的地了；Text1Text Close #one inetopen = InternetOpenquotFTP Controlquot， 1， vbNullString， vbNullString， 0 inetftp = InternetConnectinetopen， quotasp空间的域名或者IPquot， 21， quot用户名quot， quot密码quot， 1， IIfpassiveconnectio；Private Sub cmdSendMail_ClickDim objMail as Object Set objMail=CreateObjectquotCDFONTSDLLquotObjMailSend quotme@hotmailnet quot， quotabc@263netquot，quotTitlequot，quotHelloquotSet objMail=nothing End Sub 3 发送邮件附件 如。
3、jmailSend quot #39SMTP服务器，如 Set jmail = Nothing End Sub Private Sub Command1_ClickSendMail MsgBox quot邮件发送成功quotEnd Sub 根据我的测试 有的邮箱做发件邮箱时会出错 建议多试；邮件发送程序的基本处理过程是根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法将邮件发出编程步骤如下1新建一个VB项目2将缺省窗体Form1的Caption属性设置为quot发送邮件quot3将MAPI控件加入VB工具框4；邮件发送试验^^^quot #39使用html格式发送邮件cmAddAttachment quotD\1txtquot #39发的附件名与地址stUl = quotquot #39微软服务器网址，固定的，不用改的With。
4、Private Sub tcpMailServer_SendComplete MeCaption = quot邮件发送程序支持smtp服务器验证quotEnd SubPrivate Sub tcpMailServer_SendProgressByVal bytesSent As Long， ByVal bytesRemaining As Long If m_SendLen 0 Then PB；internet 连接发信服务器 “ ”，25，“用户名”，“密码”，2000发送邮件 “主题”，“正文取到的ip或记录”，“收信邮箱”，“发信邮箱”，邮箱必须开启pop3smtp服务，自己开，不介绍然；Dim a As New quot附件文件quot#39附件文件名，用于收件人收到附件时显示的名称 aName = quot附件文件名quot#39加入附件，可以多次添加 a#39发送邮件 Try smtpSendmailMessageBox。
