锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net电子邮件 microsoft电子邮件代码( 二 )

IT技术雪花


Imports Microsoft.VisualBasic
Imports System.Net.Mail
Imports System.Net.Mime
Public Class LiteMail
''' summary
''' 发送一个文本邮件到指定的电子邮箱 。
''' /summary
''' param name="MailTo"收件人电子邮件地址/param
''' param name="Subject"邮件标题/param
''' param name="Body"邮件正文/param
''' remarks/remarks
Public Shared Sub SendMail(ByVal MailTo As String, ByVal Subject As String, ByVal Body As String)
Dim m1 As MailMessage = New MailMessage
m1.BodyEncoding = System.Text.Encoding.UTF8
m1.IsBodyHtml = True
m1.From = New MailAddress("youmail@domain.com") '发件人邮箱
m1.To.Add(New MailAddress(MailTo))
Dim c As SmtpClient = New SmtpClient("mail.domain.com") 'smtp服务器地址
m1.Subject = Subject
m1.Body = Body
c.UseDefaultCredentials = False
c.Credentials = New System.Net.NetworkCredential("youname@domain.com", "password") ’邮箱地址，密码
c.DeliveryMethod = SmtpDeliveryMethod.Network
Try
c.Send(m1)
Finally
End Try
End Sub
End Class
VB编写一个邮件发送--------
1. 最简单的邮件发送程序
以下是一个最简单的邮件发送程序，它由me@hotmail.net向abc@263.net发出一封标题为“Title”、内容为“Hello”的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "me@hotmail.net ", "abc@263.net","Title","Hello"
Set objMail=nothing
End Sub
3. 发送邮件附件
如果有附加的文件需要随同邮件传送 ， 可以使用CDONTS的AttachFile方法：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
With ObjMail
.From= "me@hotmail.net "
.To= "abc@263.net"
.Subject="Title"
.Body="Hello"
.AttachFile "c:\document\ sample.doc","sample.doc"
.Send
End With
Set objMail=nothing
End Sub
------
更详细可见这里:
用VB怎么发送邮件？代码？贴上来是其中一个贴子,其他的内容在参考资料的网址里
VisualBasic6中发送邮件的新方法
用VB6编写发送邮件的程序，有多种E-mail组件可供选择，如MAPIMessages、IIS4.0附带的CDONTS（NTSCollaborationDataObjects）以及许多第三方厂商开发的Email软件等 。本文介绍用CDONTS开发VB下的邮件程序方法 。
1.确认已安装SMTP服务器
首先 ， 必须确认在IIS服务器上已安装SMTP服务器 ， 这是安装OptionPack时被缺省安装的选项 。如果SMTP服务器已安装 ， 在System32目录下会存在一个名为cdonts.dll的文件 。
2.最简单的邮件发送程序
以下是一个最简单的邮件发送程序，它由me@hotmail.net向abc@263.net发出一封标题为“Title”、内容为“Hello”的E-mail：
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
ObjMail.Send"me@hotmail.net","abc@263.net","Title","Hello"
SetobjMail=nothing
EndSub
3.发送邮件附件
如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
WithObjMail
.From="me@hotmail.net"
.To="abc@263.net"
.Subject="Title"
.Body="Hello"
.AttachFile"c:\document\sample.doc","sample.doc"
.Send
EndWith
SetobjMail=nothing
EndSub
4.CDONTS组件常用属性和方法
CDONTS组件常用的属性和方法列举如下：
属性：
Version：返回CDONTS组件的版本号
MailFormat：邮件格式，1-普通文本类型；0-MIME类型
Cc：设置一个或多个参阅的邮件地址

推荐阅读


上一篇：为什么拍摄群演，为什么那么多人当群演

下一篇：linux12个命令，linux命令全集