Visual Basic 6.0 Send Email With Attachments - Chilkat Examples

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

Có thể bạn quan tâm

(Visual Basic 6.0) Send Email With Attachments

Demonstrates how to send an email with attachments.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

' 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. Dim mailman As New ChilkatMailMan ' 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 Dim email As New ChilkatEmail email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <[email protected]>" Dim success As Long 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. Dim contentType As String contentType = email.AddFileAttachment("qa_data/jpg/starfish.jpg") If (email.LastMethodSuccess <> 1) Then Debug.Print email.LastErrorText Exit Sub End If contentType = email.AddFileAttachment("qa_data/pdf/fishing.pdf") If (email.LastMethodSuccess <> 1) Then Debug.Print email.LastErrorText Exit Sub 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 Debug.Print mailman.LastErrorText Exit Sub End If success = mailman.CloseSmtpConnection() If (success <> 1) Then Debug.Print "Connection to SMTP server not closed cleanly." End If Debug.Print "Mail with attachments sent!"

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