Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Make a 1.1 webservice call from vb.net 2008

Status
Not open for further replies.

deanman

Technical User
Nov 15, 2001
8
0
0
US
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.

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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top