VBScript Send Email With Attachments - Chilkat Examples

Trang chủ » Visual Basic Script Send Email With Attachment » VBScript Send Email With Attachments - Chilkat Examples

Có thể bạn quan tâm

(VBScript) Send Email With Attachments

Demonstrates how to send an email with attachments.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The mailman object is used for sending (SMTP) and receiving (POP3) email. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan") set mailman = CreateObject("Chilkat.MailMan") ' Set the SMTP server. mailman.SmtpHost = "smtp.my-tls-mail-server.com" ' Set the SMTP login/password (if required) mailman.SmtpUsername = "MY_SMTP_USERNAME" mailman.SmtpPassword = "MY_SMTP_PASSWORD" ' Connect to SMTP port 465 using TLS. mailman.SmtpSsl = 1 mailman.SmtpPort = 465 ' Create a new email object ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email") set email = CreateObject("Chilkat.Email") email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <[email protected]>" success = email.AddTo("Chilkat Admin","[email protected]") ' To add more recipients, call AddTo, AddCC, or AddBcc once per recipient. ' Add some attachments. ' The AddFileAttachment method returns the value of the content-type it chose for the attachment. contentType = email.AddFileAttachment("qa_data/jpg/starfish.jpg") If (email.LastMethodSuccess <> 1) Then outFile.WriteLine(email.LastErrorText) WScript.Quit End If contentType = email.AddFileAttachment("qa_data/pdf/fishing.pdf") If (email.LastMethodSuccess <> 1) Then outFile.WriteLine(email.LastErrorText) WScript.Quit End If ' Call SendEmail to connect to the SMTP server and send. ' The connection (i.e. session) to the SMTP server remains ' open so that subsequent SendEmail calls may use the ' same connection. success = mailman.SendEmail(email) If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If success = mailman.CloseSmtpConnection() If (success <> 1) Then outFile.WriteLine("Connection to SMTP server not closed cleanly.") End If outFile.WriteLine("Mail with attachments sent!") outFile.Close

Từ khóa » Visual Basic Script Send Email With Attachment