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 = "erpadmin@mazen.com"
    sjmail.ReplyTo = "erpadmin@mazen.com"
   
    ' 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 "abc@mazen.com"
   
    ' 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