Resources For IT Professionals
Page Details
Options

Original

Wiki  >  TechNet Articles  >  VBScript: Send Email With Attachment  >  Original
VBScript: Send Email With Attachment
You are currently reviewing an older revision of this page.
Go to current version

Table of Contents


Methodology


Send email using this Visual Basic Script by using CDO (Collaboration Data Objects), which is a Microsoft technology that is designed to simplify the creation of messaging applications in ASP. Just insert your desired parameters such as smtp mail server address, credentials, email addresses and content of the email with attachment within the provided variables inside the script and execute the script to start sending email instantaneously. You can achieve this by using CDO.Message and then setting up your email configuration in the code as follows:

'Create the objects require for sending email using CDO
Set objMail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
 
'Set various parameters and properties of CDO object
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
'your smtp server domain or IP address goes here such as smtp.yourdomain.com
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourdomain.com"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'default port for email
'uncomment next three lines if you need to use SMTP Authorization
objFlds.Update
objMail.Configuration = objConf
objMail.From = "fromEmailAddress@yourdomain.com"
objMail.To = "toEmailAddress@yourdomain.com"
objMail.Subject = "Put your email's subject line here"
objMail.TextBody = "Your email body content goes here"
objMail.AddAttachment "PATH\TO\YourAttachment.extension" 'Don't use = after AddAttachment, just provide the path
objMail.Send
 
'Set all objects to nothing after sending the email
Set objFlds = Nothing
Set objConf = Nothing
Set objMail = Nothing

Also See