半岛权威十大直营(官方)网站

MailBee Objects是一个组件集合。您可以使用该控件创建并将邮件发送到SMTP服务器并从POP3服务器接收、解析以及删除电子邮件，还能在IMAP4服务器上管理电子邮件以及文件夹。它同样支持SSL以及S/MIME以获得更好的安全性能。MailBee控件能在ASP、VB、C++或任何支持ActiveX技术的语言中使用。

点击下载最新版MailBee Objects

本示例将会展示发送带有2个附件的纯文本电子邮件的操作。第一个附件以其自然名称放入邮件中。第二个附件以不同的名称放置（从临时文件添加附件时经常使用）。

SMTP.AddAttachment是示例的关键属性。为简单起见，不使用SMTP身份验证，并且不执行错误检查。

Visual Basic：

Dim objSMTP

' Create mailer component
Set objSMTP = CreateObject("MailBee.SMTP")

' Unlock SMTP component
objSMTP.LicenseKey = "put your license key here"

' Set SMTP server name
objSMTP.ServerName = "mail.server.com"

' Set message properties
objSMTP.FromAddr = "me@mydomain.com"
objSMTP.ToAddr = "you@yourdomain.com"
objSMTP.Subject = "Hi"
objSMTP.BodyText = "This is test message with attachments"

' Add attachment from "file1.doc" file.
' It will appear as "file1.doc" in the e-mail.
objSMTP.AddAttachment "C:\files\file1.doc"

' Add attachment from "file2.tmp" file.
' It will appear as "renamed.doc" in the e-mail.
objSMTP.AddAttachment "C:\files\file2.tmp", , ,"renamed.doc"

' Send it!
objSMTP.Send

<% Dim objSMTP ' Create mailer component Set objSMTP = Server.CreateObject("MailBee.SMTP") ' Unlock SMTP component objSMTP.LicenseKey = "put your license key here" ' Set SMTP server name objSMTP.ServerName = "mail.server.com" ' Set message properties objSMTP.FromAddr = "me@mydomain.com" objSMTP.ToAddr = "you@yourdomain.com" objSMTP.Subject = "Hi" objSMTP.BodyText = "This is test message with attachments" ' Add attachment from "file1.doc" file. ' It will appear as "file1.doc" in the e-mail. objSMTP.AddAttachment "C:\files\file1.doc" ' Add attachment from "file2.tmp" file. ' It will appear as "renamed.doc" in the e-mail. objSMTP.AddAttachment "C:\files\file2.tmp", , ,"renamed.doc" ' Send it! objSMTP.Send %>

将邮件发送到SMTP服务器。要从假地址发送，请使用SendEx方法。从组邮件中常用的伪地址发送邮件，以确保退回邮件都到达同一地址。

注意：许多SMTP服务器需要用户身份验证才能发送电子邮件。有关详细信息，请参见AuthMethod属性参考。下面的示例代码使用身份验证。如果服务器不需要或不支持它，请注释相应的行或仅设置AuthMethod = 0。

blnResult = ObjectName.Send

使用例子

Dim Mailer
'Using visual basic to create object
Set Mailer = CreateObject("MailBee.SMTP")
'Using ASP to create object
'Set Mailer = Server.CreateObject("MailBee.SMTP")
'In ASP use Response.Write instead of MsgBox
Mailer.LicenseKey = "put your license key here"
Mailer.ServerName = "mail.server.com"

' Comment next 3 lines if authentication is not required.
Mailer.AuthMethod = 1 ' Using PLAIN authentication
Mailer.UserName = "MyUserName" ' Mail account name
Mailer.Password = "MyPassword" ' Mail account password

If Mailer.Connect Then
  Mailer.Message.ToAddr = "bill@yoursite.com"
  Mailer.Message.FromAddr = "joe@mysite.com"
  Mailer.Message.Subject = "Hello"
  Mailer.Message.ImportBodyText "C:\docs\letter.htm", True
  If Not Mailer.Send Then MsgBox Mailer.ErrDesc
  Mailer.Disconnect
End If

==========================================

如果想要购买正版授权MailBee.NET Objects的朋友，可以联系

关注慧聚IT微信公众号 ☟☟☟，了解产品的最新动态及最新资讯。