Running a scheduled .vbs file generating two emails

[mmohotsi]

Good day

I am trying to schedule a project and run the generated .vbs script.

The SAS program in the project is also expected to send an email to the customers.

The problem is that the customers receive two similar emails fwhen the VB script is executed at the scheduled time.

When I manually run the project and not the VB script, ONLY one email is received by customers.

Is there a way for ensuring that only one email is received by the customers when the VB script is executed at the scheduled time? The prototype SAS programme is below.

data aa;
input Name $8. Number;
cards;
Mighty 23
Thabo 36
;
run;

options emailsys = SMTP;
options emailhost =<SMTP>;
options emailauthprotocol = NONE;

filename Outbox email;
Data _null_;
file Outbox
to ="<email adress>"
from ="<email adress>"
Subject = "Emailed results";
put 'Good day ';
put ' ';
put 'Kindly find the the data has been done';
put ' ';
put 'Warmest regards';
Put 'Thabo';
run;
filename outbox clear;

[ballardw]

I don't see anything here related to VBS. It sounds like you have something else scheduling the VBS run, not SAS. So SAS is going to have a very hard time intervening in a different program. What actual schedules the VBS to run?

[mmohotsi]

Good morning ballardw

When going through the scheduling process, sas has created the following .vbs script 

Option Explicit
Dim app

Call dowork

'shut down the app
If not (app Is Nothing) Then
app.Quit
Set app = Nothing
End If

Sub dowork()
On Error Resume Next
'----
' Start up Enterprise Guide using the project name
'----
Dim prjName
Dim prjObject

prjName = "C:\Users\mmohotsi\Documents\SASImplementation\Learning_Curve\Project_Scheduling.egp" 'Project Name

Set app = CreateObject("SASEGObjectModel.Application.8.1")
If Checkerror("CreateObject") = True Then
Exit Sub
End If

'-----
' open the project
'-----
Set prjObject = app.Open(prjName,"")
If Checkerror("app.Open") = True Then
Exit Sub
End If


'-----
' run the project
'-----
prjObject.run
If Checkerror("Project.run") = True Then
Exit Sub
End If


'-----
' Save the new project
'-----
prjObject.Save
If Checkerror("Project.Save") = True Then
Exit Sub
End If

'-----
' Close the project
'-----
prjObject.Close
If Checkerror("Project.Close") = True Then
Exit Sub
End If

End Sub

Function Checkerror(fnName)
Checkerror = False

Dim strmsg
Dim errNum

If Err.Number <> 0 Then
strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description
'MsgBox strmsg 'Uncomment this line if you want to be notified via MessageBox of Errors in the script.
Checkerror = True
End If

End Function

[SASKiwi]

So are you getting the second email because the error number is not equal to zero? If so what is the error number?

[mmohotsi]

As a SAS programming NOVICE, I am not in a position to tell what the Error number is. The script was generated in the background and I only copied and pasted on my reply. I am therefore not sure how to get the error number from Enterprise Guide. What I can say is that in my project, I have two SAS programmes. SAS programme 1 generates the report and then SAS programme 2 sends the email with the report. Not sure if the transition from programme 1 to programme 2 could have some impact or not

[SASKiwi]

I suggest you raise a Tech Support track on this as they are in the best position to help.