如何用vb编写支持smtp认证的发送email程序？能否给出例子。

2002-05-29 09:41:58 305 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

JMail组件深度解析：从ASP时代邮件发送到现代技术迁移邮件发送是Web开发中的基础功能，其核心原理基于SMTP协议和MIME格式标准。SMTP协议负责邮件传输，而MIME标准则定义了邮件内容的结构，支持文本、HTML及附件等多种格式。在技术实现上，通过封装网络协议和邮件格式，开发者可以简化邮件处理流程，提升开发效率。这种封装思想在早期ASP开发中尤为重要，当时操作系统和开发环境对邮件功能的原生支持较弱。JMail组件作为当时的经典解决方案，将复杂的协议操作封装为简单的COM组件，提供了稳定高效的邮件发送能力。其设计思想——将稳定的协议层与易变的业务调用层分离— 阅读详情

谢谢了。

...全文

从零构建企业级钓鱼演练平台：Gophish部署与实战指南钓鱼攻击作为典型的社会工程学手段，已成为企业网络安全体系中最薄弱的环节之一。其原理在于利用人性弱点，通过伪装成合法来源的邮件或网站，诱导员工泄露敏感信息。为应对这一威胁，主动式安全意识培训的价值日益凸显，它能将安全防线从被动防御转向主动免疫。在技术实现层面，开源框架Gophish凭借其模块化架构和API驱动特性，成为构建企业级钓鱼演练平台的首选。通过模拟真实攻击场景，企业可系统性评估员工安全意识水平，并基于捕获的点击率、提交率等数据，定位高风险部门，实现精准的培训干预。本文将结合Gophish部署、模板设计阅读详情

leos

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

daehappy 2002-06-20

打赏
举报

up!gz!

acptvb 2002-06-03

打赏
举报

感谢您使用微软产品。

在Visual Studio.NET中,您可以通过SmtpMail类通过smtp服务器发送邮件，请参考以下代码：

Dim from As String = "from@citiz.net"
Dim mailto As String = "to@citiz.net"
Dim subject As String = "UtilMailMessage001"
Dim body As String = "<html><body>UtilMailMessage001 - success</body></html>"
SmtpMail.SmtpServer = "smtp.citiz.net"
SmtpMail.Send(from, mailto, subject, body)

但是，如果SMTP服务器需要验证，那么您无法通过这个类进行发送，您可以Socket类直接发送SMTP的命令实现发送。

关于Socket类请参考: .NET Framework Class Library Socket Class
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemNetSocketsSocketClassTopic.asp

关于带有认证的SMTP您可以参考SMTP Service Extension for Authentication（rfc2554）

此外，您还可以通过CDO对象在Outlook中设置该SMTP服务器为默认的发送服务器，并添加认证信息，然后进行发送，请参考以下代码：
添加Microsoft Cdo 1.21 Object Library引用之后，复制如下代码;
Sub Send()
Dim vEmpty As Object = Missing.Value
' Create Mapi Session and Logon
Dim oSession As MAPI.Session = New MAPI.Session()
oSession.Logon(vEmpty, vEmpty, True, True, 0, True, vEmpty)
' Get Outbox
Dim oFolder As MAPI.Folder = oSession.Outbox
Console.WriteLine("Folder: {0}", oFolder.Name)
' Create a new Message
Dim oMsgs As MAPI.Messages = oFolder.Messages
Dim oMsg As MAPI.Message = oMsgs.Add(vEmpty, vEmpty, vEmpty, vEmpty)
oMsg.Subject = "Send Using VB.NET"
oMsg.Text = "Hello World"
' Add a Recipient
Dim oRecips As MAPI.Recipients = oMsg.Recipients
Dim oRecip As MAPI.Recipient = oRecips.Add(vEmpty, vEmpty, vEmpty, vEmpty)
oRecip.Name = "v-kehao@microsoft.com" ' TODO:
oRecip.Resolve(False)
' Send mail
oMsg.Send(True, False, vEmpty)
' Logoff
oSession.Logoff()
' Clean Up
oRecip = Nothing
oRecips = Nothing
oMsgs = Nothing
oMsg = Nothing
oFolder = Nothing
oSession = Nothing
End Sub

微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。

如何用vb编写支持smtp认证的发送email程序？能否给出例子。

相关推荐