Error se SmtpClientem Vyřešeno

[Grow]

Ahoj, omlouvám se, že zase otravuji, ale jinak to nejde. Sem v koncích. Potřeboval bych do závorky v tomhle kodu

Kód: Vybrat vše

Dim SMTPServer As New SmtpClient(tady)

připsat aby to přečetlo text v Label3. Zkusil sem tam dát Label3.Text tak to napsalo chybu, zkusil sem místo Labelu dát TextBox ale taky to nejde. Nevíte jak bych to mohl udělat, aby nebyl error a fungovalo to jak má?
Díky.

[Reklama]

[CZechBoY]

"napsalo to chybu".. jakou?

[Grow]

Tady přikládám foto s chybou

[CZechBoY]

píše to, že si objekt neinicializoval, ale rovnou použil
Můžeš sem hodit kod?

[Grow]

Jasně, můžu. Tady je:

Kód: Vybrat vše

Imports System.Net.Mail


Public Class Form1

    Dim SMTPServer As New SmtpClient("smtp." + ComboBox1.Text)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ComboBox1.Text = "Zoznam.sk" Then
            Label4.Text = 587
            usernamebox.Text = "@zoznam.sk"
        End If

        If ComboBox1.Text = "Atlas.cz" Then
            Label4.Text = 25
            usernamebox.Text = "@atlas.cz"
        End If

        If ComboBox1.Text = "Centrum.cz" Then
            Label4.Text = 25
            usernamebox.Text = "@centrum.cz"
        End If

        If ComboBox1.Text = "GMAIL.cz" Then
            Label4.Text = 587
            usernamebox.Text = "@gmail.com"
        End If

        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(usernamebox.Text)
        MyMailMessage.To.Add(tobox.Text)
        MyMailMessage.Subject = (subject.Text)
        MyMailMessage.Body = message.Text

        SMTPServer.Port = Label4.Text
        SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)

        Form2.Show()
        Me.Hide()

       
    End Sub
End Class

[CZechBoY]

ten kod na přiřazení hodnoty proměnný SMTPServer musíš dát do nějaký metody, nemůžeš hned číst z komponenty, která není inicializovaná

[Grow]

Upravil sem script tak mrkni teď.... Kámošovi to ve VB2010 jde bez problému... Do jaké metody máš namysli?

[CZechBoY]

Imports System.Net.Mail


Public Class Form1

Dim SMTPServer As SmtpClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ComboBox1.Text = "Zoznam.sk" Then
Label4.Text = 587
usernamebox.Text = "@zoznam.sk"
End If

If ComboBox1.Text = "Atlas.cz" Then
Label4.Text = 25
usernamebox.Text = "@atlas.cz"
End If

If ComboBox1.Text = "Centrum.cz" Then
Label4.Text = 25
usernamebox.Text = "@centrum.cz"
End If

If ComboBox1.Text = "GMAIL.cz" Then
Label4.Text = 587
usernamebox.Text = "@gmail.com"
End If

Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(usernamebox.Text)
MyMailMessage.To.Add(tobox.Text)
MyMailMessage.Subject = (subject.Text)
MyMailMessage.Body = message.Text

SMTPServer=New SmtpClient("smtp." + ComboBox1.Text)
SMTPServer.Port = Label4.Text
SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)

Form2.Show()
Me.Hide()


End Sub
End Class

dal jsem to do kliknutí tlačítka (nechtělo se mi vytvářet metodu Form_Load a handler..)
doufám, že to takhle pude, VB už neumim a už ho ani nemám ve VisualStudiu

pokud to chceš načíst hned při načtení formuláře tak do Form_Load :)

[Grow]

Díky moc. Už to funguje. Moc si mi pomohl... Co sem dlužnej?