Sub Class_Globals
Private QSTT, QSMESS, QSNAME, QSMAIL, QSFOOT, QSSUBJ As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (aQSTT As String, aQSMESS As String, aQSNAME As String, aQSMAIL As String, aQSFOOT As String, aQSSUBJ As String)
QSTT = aQSTT
QSMESS = aQSMESS
QSNAME = aQSNAME
QSMAIL = aQSMAIL
QSFOOT = aQSFOOT
QSSUBJ = aQSSUBJ
End Sub
Public Sub SendAnEmail As ResumableSub
Dim jobsm As HttpJob
Dim Params As String
Dim result As String
Params = "QSTT=" & QSTT & "&QSMESS=" & QSMESS & "&QSNAME=" & QSNAME & "&QSMAIL=" & QSMAIL & "&QSFOOT=" & QSFOOT & "&QSSUBJ=" & QSSUBJ
Log(Params)'**** the log appears
jobsm.Initialize("SendEmail","")
jobsm.PostString(Main.BoWebSite & "/Asp/SendMail.asp", Params)
Wait For (jobsm) JobDone(jobsm As HttpJob)
If jobsm.Success Then
result = "Success" & jobsm.GetString
Else
result = "unsuccess"
End If
Log(jobsm.GetString) '**** no log appears
Return result
End Sub