'----發送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 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|