<%@ WebService Language="VB" Class="WebService" %>

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<WebService(Namespace := "http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _  
Public Class WebService
    Inherits System.Web.Services.WebService 
    
    <WebMethod()> _
  
    Protected Sub TestTest(sender As Object, e As EventArgs)
        Dim client As New Net.Mail.SmtpClient("ht-cluster.lada-image.ru", "587")
        client.EnableSsl = False
        Dim msg As New Net.Mail.MailMessage("notice@lada-image.ru", "desoldatov@lada-autopart.ru")
        msg.IsBodyHtml = True
       
        msg.Subject = "Вашу задачу:  оценили"
        msg.SubjectEncoding = Encoding.GetEncoding("koi8-r")
        msg.BodyEncoding = Encoding.GetEncoding("koi8-r")
        msg.Body = "web-service"
        client.Send(msg)
    End Sub

End Class