VB6, VBA ExampleEML file is e-mail message saved by Microsoft Outlook Express or other e-mail programs; may also contain an e-mail attachment, or file sent with the message.
If you want to load EML file and edit it, you can use LoadMessage method to load EML file and edit it.
If you do not want to edit the EML file, and you just need to simply forward the EML file to other recipient with 100% original data, then please see the following example codes.
The following example codes demonstrate how to load EML file and forward it to specified recipient.
' The following example codes demonstrate sending EML using SMTP server
' To get full sample projects, please download and install EASendMail on your machine.
' To run it correctly, please change SMTP server, user, password, sender, recipient value to yours
Private Sub btnSendMail_Click()
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Set your sender email address
oSmtp.FromAddr = "test@emailarchitect.net"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Your SMTP server address
oSmtp.ServerAddr = "smtp.emailarchitect.net"
' User and password for ESMTP authentication, if your server doesn't require
' User authentication, please remove the following codes.
oSmtp.UserName = "test@emailarchitect.net"
oSmtp.Password = "testpassword"
' If your smtp server requires SSL connection, please add this line
' oSmtp.SSL_init
' Load EML file to body text temporally
oSmtp.ImportMail "c:\temp\my.eml"
' Assign Eml file data to raw content
oSmtp.raw_Content = oSmtp.Bodytext
MsgBox "start to send email ..."
' Forward EML file with 100% original data
If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
End Sub
If you have any comments or questions about above example codes, please add your comments here.
