Microsoft visual basic 2008 vraag

[Raoul7]

Hallo,

Ik ben bezig met een script in VB 08 en het lukt maar niet.
het script op dit moment is:

Imports System.Net.Mail
Public Class Formulier

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("e-mailadres is niet ingevuld")
            If TextBox2.Text = "" Then
                MsgBox("er is geen vraag ingevuld")
            Else
            End If
        End If
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("--hier staat mijn e-mailadres--", "--hier staat mijn wachtwoord--")
        'using gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("--hier staat mijn e-mailadres--")
        mail.To.Add("--hier staat mijn e-mailadres--")
        mail.Subject = "vraag: " & TextBox2.Text
        mail.Body = "e-mailadres: " & TextBox1.Text & "," & "vraag: " & TextBox2.Text
        smtpServer.Send(mail)
        MsgBox("Uw vraag is verzonden u krijg zo snel mogelijk bericht terug.")
    End Sub
End Class

Alles wat tussen -- en -- staat heb ik nu ff veranderd de rest staat ook zo in het script.
weet iemand wat ik fout doe en zou diegene mij het script willen geven hoe die wel klopt?

Mvg, Raoul

 

[CaptainBri]

Probeer deze code eens?

        Dim mail As New MailMessage
        mail.To.Add(txtNaarWie.Text)
        mail.From = New MailAddress(txtVanWie.Text)
        mail.Subject = txtOnderwerp.Text
        mail.Body = txtBericht.Text
        Dim SMTP As New SmtpClient(txtServer.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtVanWie.Text, txtVanWieWachtwoord.Text)
        lblAantal.Text = lblAantal.Text + 1
        SMTP.Send(mail)

En dan alles veranderen naar je eigen textboxen etc.

 

[mark199]

En controleer je If end If, want nu wordt er toch een mail verstuurd ondanks dat de textboxen leeg zijn.

 

[Raoul7]

Probeer deze code eens?

        Dim mail As New MailMessage
        mail.To.Add(txtNaarWie.Text)
        mail.From = New MailAddress(txtVanWie.Text)
        mail.Subject = txtOnderwerp.Text
        mail.Body = txtBericht.Text
        Dim SMTP As New SmtpClient(txtServer.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtVanWie.Text, txtVanWieWachtwoord.Text)
        lblAantal.Text = lblAantal.Text + 1
        SMTP.Send(mail)

En dan alles veranderen naar je eigen textboxen etc.

oke bedankt, is dat kleine stukje genoeg voor de button een mail te laten sturen?

edit: hier snap ik dus totaal niks van hoe ik die moet invoegen. zou je me dat willen uitleggen?

Mvg, Raoul

 

[CaptainBri]

oke bedankt, is dat kleine stukje genoeg voor de button een mail te laten sturen?

Mvg, Raoul

Jazekers, het hoeft niet altijd superlange code te zijn om goed te zijn. Ik heb dus een mail-bomber(of verzender, is maar hoe je het noemt) in elkaar gezet met de Gmail methode, maar je Gmail account word wel geblokkeerd nadat je ong. 60-70 mailtjes hebt verstuurd met deze methode (achter elkaar.)

Zo ziet die van mij eruit:

 

[stefanz]

mail-bomber, mag da wel?

 

[CaptainBri]

mail-bomber, mag da wel?

Verzender in dit geval, het is maar net hoe je het gebruikt en uitspreekt.

 

[stefanz]

Verzender in dit geval, het is maar net hoe je het gebruikt en uitspreekt.

Van waar die start en stop knopjes dan?