VB 結合Jmail發送Email(带附件)

'----發送Email
'----Jmail.dll 可以在網上搜索下栽
Private Sub SendEmail()

'Dim sjmail As New jmail.SMTPMail
Dim sjmail As Object
Dim str As String
Dim aryEmail() As String
Dim i As Integer
Set sjmail = CreateObject("JMail.SMTPMail")

' My SMTP Server Address (uses default Port=25)
sjmail.ServerAddress = "10.1.3.252" '"<<address of your SMTP server>>"
sjmail.ServerPort = 25

' My Name and Mail Address
sjmail.Sender = "[e-mail]"
sjmail.ReplyTo = "[e-mail]"

' Recipient Address and Name
str = GetMailAddress()
If str = "" Then Exit Sub
aryEmail = Split(str,";")

' 接收方email,可以是多個
For i = 0 To UBound(aryEmail)
If Trim(aryEmail(i)) > "" Then sjmail.AddRecipient Trim(aryEmail(i))
Next i

'sjmail.AddRecipient "[e-mail]" ' Compose message sjmail.Subject = "Report_Data" '標題 sjmail.Priority = 1 sjmail.Body = "A010411_Report_Data" & Format(Now,"yyyy-mm-dd") '內容 sjmail.AddAttachment"D:/a1.txt" sjmail.AddAttachment"D:/a2.txt" ' Send the mail sjmail.Execute ' Test for errors If Err <> 0 Then MsgBox Error$,vbCritical,"Mail Error" End If ' dispose object Set sjmail = nothing End Sub