mvermeulen
10-09-2003, 10:57 AM
I am receiving the following error:
Error loading info for custom action 'Run Script': Unspecified error
The step generates a fail message but actually completes. I have written a script that I have reduced down to try and locate any possible errors. It almost seems to be dependent on the lenght of the script. As I have backed out more of the comments and additional check functions (IF Exists for example), I progressed further. Since it is actually sending the e-mail (somewhat ugly at this point), I am hoping to isolate the error.
Function vbld_SendMail()
Dim objMail
Dim strSubject
Dim strBody
Dim strToAddr
Dim strFromAddr
Dim logFile
' determine the log filename, retrieve with all macros/script expanded
logFile = Application.ExpandMacrosAndScript("%LOGFILE%")
strToAddr = "Mark.Vermeulen@cbs.fiserv.com"
strFromAddr = "test@cbs.fiserv.com"
strSubject = "This is a test email in HTML format"
strBody = vbld_FSO.OpenTextFile(logFile).ReadAll()
MsgBox strBody
' First create an instance of the NewMail Object
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = strFromAddr
objMail.To = strToAddr
objMail.Subject = strSubject
objMail.Body = "<html><head></head><body><b>" + strBody + "</b></body>"
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Send
MsgBox "Step Five"
'Set objMail = Nothing
End Function
Error loading info for custom action 'Run Script': Unspecified error
The step generates a fail message but actually completes. I have written a script that I have reduced down to try and locate any possible errors. It almost seems to be dependent on the lenght of the script. As I have backed out more of the comments and additional check functions (IF Exists for example), I progressed further. Since it is actually sending the e-mail (somewhat ugly at this point), I am hoping to isolate the error.
Function vbld_SendMail()
Dim objMail
Dim strSubject
Dim strBody
Dim strToAddr
Dim strFromAddr
Dim logFile
' determine the log filename, retrieve with all macros/script expanded
logFile = Application.ExpandMacrosAndScript("%LOGFILE%")
strToAddr = "Mark.Vermeulen@cbs.fiserv.com"
strFromAddr = "test@cbs.fiserv.com"
strSubject = "This is a test email in HTML format"
strBody = vbld_FSO.OpenTextFile(logFile).ReadAll()
MsgBox strBody
' First create an instance of the NewMail Object
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = strFromAddr
objMail.To = strToAddr
objMail.Subject = strSubject
objMail.Body = "<html><head></head><body><b>" + strBody + "</b></body>"
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Send
MsgBox "Step Five"
'Set objMail = Nothing
End Function