Code voor E-mail

[Milenko]

Hallo,
ik ben pas begonnen met Microsoft Visual Basic 2010 Express. Nu wil ik iets maken met dat je informatie invoert in 2 textboxen (TextBox1, TextBox2) en dat als je op de button (Button1) klikt, hij die informatie verstuurt naar mijn e-mail adres. Weet iemand hoe ik dit voor elkaar kan krijgen?
M.v.g. Milenko

 

[The Mighty Atom]

Zoek effe dit forum door, of zoek naar al mijn posts, ik meerdere malen voorbeeld code gepost op dit forum. Moet je kunnen vinden.

 

[Milenko]

Zoek effe dit forum door, of zoek naar al mijn posts, ik meerdere malen voorbeeld code gepost op dit forum. Moet je kunnen vinden.

Ik heb gezocht, maar kon niks vinden. Zou je misschien een linkje naar zo'n forum/bericht willen plaatsen?

 

[mark199]

Kan aan mijn zoekwoorden liggen, maar ik krijg er ook geen bruikbare berichten uit
dus bij deze...

http://www.helpmij.nl/forum/showthread.php/584745-Microsoft-visual-basic-2008-vraag

 

[The Mighty Atom]

Ja je hebt gelijk, het is wat lastig terug te vinden.
Ik heb ooit een voorbeeld programma gemaakt voor een ander lid van dit forum:

Simpel Email Client

Het is misschien niet 100% foutloos maar het werkt wel.

 

[stefanz]

Hier

 Dim mymailmessage As New MailMessage()

        For i = 1 To Integer.Parse(TextBoxNummers.Text)

            Try

                mymailmessage.From = New MailAddress("youremail@gmail.com")  'moet gmail zijn
 mymailmessage.To.Add(TextBoxNaar.Text)

                mymailmessage.Subject = TextBoxOnderwerp.Text

                mymailmessage.Body = TextBoxBericht.Text

                Dim Smtp As New SmtpClient("smtp.gmail.com")

                Smtp.Port = 587

                Smtp.EnableSsl = True

                Smtp.Credentials = New System.Net.NetworkCredential("youremail@gmail.com", "yourpassword") '   "jou email" , "en wachtwoord" 

                Smtp.Send(mymailmessage)

 

            Catch ex As Exception

 

            End Try

        Next

        MsgBox("Emails spammed !", MsgBoxStyle.Information, "lol")

    End Sub

 

[Milenko]

 Dim mymailmessage As New MailMessage()

        For i = 1 To Integer.Parse(TextBoxNummers.Text)

            Try

                mymailmessage.From = New MailAddress("youremail@gmail.com")  'moet gmail zijn
 mymailmessage.To.Add(TextBoxNaar.Text)

                mymailmessage.Subject = TextBoxOnderwerp.Text

                mymailmessage.Body = TextBoxBericht.Text

                Dim Smtp As New SmtpClient("smtp.gmail.com")

                Smtp.Port = 587

                Smtp.EnableSsl = True

                Smtp.Credentials = New System.Net.NetworkCredential("youremail@gmail.com", "yourpassword") '   "jou email" , "en wachtwoord" 

                Smtp.Send(mymailmessage)

 

            Catch ex As Exception

 

            End Try

        Next

        MsgBox("Emails spammed !", MsgBoxStyle.Information, "lol")

    End Sub

Bedankt voor de reacties! Alleen is dit niet helemaal wat ik bedoelde. Ik wil namelijk graag een programma met dus 2 textboxen en een button. En als je die invult met informatie (hoeft niet persee een e-mail adres te zijn) dat hij die dan naar mijn eigen e-mail adres stuurt. Het wordt dus geen e-mail client.

Alvast heel erg bedankt!

Milenko

 

[mark199]

Wat heb je zelf al geprobeerd? De code wordt hier helemaal voor je uitgekauwd, waarmee je met minimale inspanning precies kan doen wat je wilt...

 

[stefanz]

Bedankt voor de reacties! Alleen is dit niet helemaal wat ik bedoelde. Ik wil namelijk graag een programma met dus 2 textboxen en een button. En als je die invult met informatie (hoeft niet persee een e-mail adres te zijn) dat hij die dan naar mijn eigen e-mail adres stuurt. Het wordt dus geen e-mail client.

Alvast heel erg bedankt!

Milenko

Oke voor 10 euro maak ik het

 

[woellie123]

Misschien een beetje laat, maar voor als het nog niet is gelukt:
Bedoel je dit?

Public Class Form1

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

        Dim Aan As String = TextBox1.Text
        Dim Van As String = TextBox2.Text
        Dim Onderwerp As String = TextBox3.Text
        Dim Bericht As String = TextBox4.Text

        SmtpMail.SmtpServer = ("mail.direct-adsl.nl")

        Try
            SmtpMail.Send(Van, Aan, Onderwerp, Bericht)
            MsgBox("Mail verzonden")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

Voor meer informatie kun je ook dit filmpje op YouTube kijken: klik
Succes!