該樓層疑似違規(guī)已被系統(tǒng)折疊?隱藏此樓查看此樓

Email.cls

代碼：

Private mUserName As String

Private mPassWord As String

Private mSmtpServer As String

Private mAttachCount As Integer

Private mAttachFilePath() As String

Private Sub Class_Initialize()

mAttachCount = 0

ReDim mAttachFilePath(0)

End Sub

'設(shè)置郵件發(fā)送服務(wù)器

Public Sub SetSMTP(ByVal SmtpServer As String)

mSmtpServer = SmtpServer

End Sub

'設(shè)置用戶密碼

Public Sub SetUser(ByVal userName As String, ByVal passWord As String)

mUserName = userName

mPassWord = passWord

End Sub

'增加附件到郵件

Public Sub AddFile(ByVal filePath As String)

mAttachCount = mAttachCount + 1

ReDim Preserve mAttachFilePath(mAttachCount)

mAttachFilePath(mAttachCount) = filePath

End Sub

'發(fā)送郵件

Public Sub SendMail(ByVal MailFrom As String, ByVal MailTo As String, ByVal Topic As String, ByVal Content As String)

Dim NameS As String

Dim EmailObj

Dim i As Integer

NameS = "http://schemas.microsoft.com/cdo/configuration/"

Set EmailObj = CreateObject("CDO.Message")

EmailObj.From = MailFrom ' //你自己的油箱號(hào)碼

EmailObj.To = MailTo ' // 發(fā)送到的油箱號(hào)碼"(邪惡的加入了自己的郵箱)

EmailObj.Subject = Topic ' //相當(dāng)于郵件里的標(biāo)題"

EmailObj.Textbody = Content '//相當(dāng)于郵件里的內(nèi)容(記錄了發(fā)送地ip)

EmailObj.HTMLBody = Content

'增加附件

If mAttachCount > 0 Then

For i = 1 To mAttachCount

EmailObj.AddAttachment mAttachFilePath(mAttachCount)

Next i

End If

EmailObj.Configuration.Fields.Item(NameS & "sendusing") = 2 '利用需要登錄的郵件服務(wù)器

EmailObj.Configuration.Fields.Item(NameS & "smtpserver") = mSmtpServer '//郵件服務(wù)器

EmailObj.Configuration.Fields.Item(NameS & "smtpserverport") = 25 '//端口號(hào)

EmailObj.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1

EmailObj.Configuration.Fields.Item(NameS & "sendusername") = mUserName '//油箱號(hào)碼@前面的名字

EmailObj.Configuration.Fields.Item(NameS & "sendpassword") = mPassWord '//你油箱的密碼

EmailObj.Configuration.Fields.Update

EmailObj.Send

End Sub

總結(jié)

以上是生活随笔為你收集整理的vb 发送html邮件,【VB】邮件发送功能的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。