該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

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

'設置郵件發送服務器

Public Sub SetSMTP(ByVal SmtpServer As String)

mSmtpServer = SmtpServer

End Sub

'設置用戶密碼

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

'發送郵件

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 ' //你自己的油箱號碼

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

EmailObj.Subject = Topic ' //相當于郵件里的標題"

EmailObj.Textbody = Content '//相當于郵件里的內容(記錄了發送地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 '利用需要登錄的郵件服務器

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

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

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

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

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

EmailObj.Configuration.Fields.Update

EmailObj.Send

End Sub

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。