Using QV 8.5, I am trying to send out an email with an attachment from a macro in a .qvw application (ReportGenerator.qvw). (see vbscript below)
ReportGenerator.qvw currently creates and saves an Excel file using an 'OnOpen' macro, which is initiated automatically via an External Program Task in Publisher (essentially a batch file: qv.exe /NoSecurity \\Path\ReportGenerator.qvw).
How can I include the appopriate microsoft libraries (as needed) to execute the following wscript in that same macro in the ReportGenerator.qvw?
----------------- Script to send email --------------------------
'This script will generate an email with a file attachment. Four Arguments must be included in
'the execution string:
' Argument 0 - To email address or distribution list. Multiple addys can be separated with a comma (,)
' Argument 1 - Subject (enclosed in triple double quotes -no I'm not kidding- if there are spaces in the Subject)
' """Your Report is Attached"""
' Argument 2 - Body of the email (again, enclosed in triple double quotes)
' Argument 3 - The full path of the attachment
'
'Example Execution String (minus the beginning tick ('):
'wscript E:\...\Email_With_Attachment.vbs name@domain.com """Subject of Email""" """Body of Email""" \\Path\Report.xls
Set args=wscript.Arguments
varTo = args(0)
varSubject = args(1)
varTextBody = args(2)
varAttachment = args(3)
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp...." <<<< Insert SMTP server here
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = varTo
ObjSendMail.Subject = varSubject
ObjSendMail.From = "name@domain.com"
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = varTextBody
ObjSendMail.AddAttachment varAttachment
ObjSendMail.Send
Set ObjSendMail = Nothing
'In addition to what you see here there are plenty of properties you can add to these examples.
'Here are a few examples.
'Carbon Copy
'ObjSendMail.CC = "someone@someone.net"
'Blind Carbon Copy
'ObjSendMail.BCC = "someone@someone.net"
.png "Luminary Alumni"){kind=icon}