I have VS 2008 that I need to use to write a VB program that calls a webservice written using .net framework 1.1. The webservice is loaded on a server and for various reasons, I cannot redo the webservice so I need to find the right way to make the service call or tell the program that the webservice is 1.1. I can't seem to make this work. It appears to work but no email is sent.
Here is the code for the call from an older app (VB6) that does work.
Here is the code for the call from an older app (VB6) that does work.
Code:
Public Sub SendEmail(WhoTO As String, CCTo As String, Subj As String, Bdy As String)
Dim wsClient As New MSSOAPLib30.SoapClient30
Dim z As Integer
Dim strImportance As String
Dim wsStatus As String
Dim N As Integer
z = FreeFile
On Error GoTo ERRORHANDLER
CCTo = CCTo & ";" & DebugProgrammer
If InStr(UCase$(Subj), UCase$("DOES NOT EQUAL LAST WORK DATE")) > 0 Then
strImportance = "High"
Else
strImportance = "Medium"
End If
wsClient.MSSoapInit EmailServiceUrl
wsStatus = wsClient.SendOutgoingMail("ACHMonitor", ReleaseNumber, DebugProgrammer, WhoTO, Subj, Bdy, CCTo, "", strImportance, "", "", "", "")
LogToFile ("Email sent to " & WhoTO & CCTo & " Subject - " & Subj)
Exit Sub