[C#, VB.NET, F#, ...] E-mail versturen via GMail

[]
Hoe verstuur je een mail viaGMail in VB.NET?
er staan zo weinig script in vb.net dacht ik zal er nog maar 1 posten zeker =)

dit script laat je een mail versturen via jou gmail

het voordeel is dat het lekker veel kan bv je kan dit in een keylogger steken samen met een script dat screenshots neemt of beelden opneemt van een webcam en het dan in een bijlage naar jou laten versturen

of

je wilt gwn is een mail versturen op een andere manier

of

.....

Imports System.Net.Mail
Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Splash Screen
 
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        Timer1.Enabled = True


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtEmail.Clear()
        txtMessage.Clear()
        txtPassword.Clear()
        txtSubject.Clear()
        txtUsername.Clear()
        ProgressBar1.Value = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim smtpServer As New SmtpClient()
        ProgressBar1.Value = 10
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential(txtUsername.Text, txtPassword.Text) 'user en pas voor google login....
       
        smtpServer.Port = 587 'Poortje  =)
        smtpServer.Host = "smtp.gmail.com" 'smtp van gmail lol
        smtpServer.EnableSsl = True 'SSL checkje
        mail = New MailMessage()
        mail.From = New MailAddress("hello@hello.com")
        mail.To.Add(txtEmail.Text)
        mail.Subject = txtSubject.Text 'onderwerp
        mail.Body = txtMessage.Text

        '   Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment(TextBox1.Text)
        '   mail.Attachments.Add(oAttch)
' wat hierboven staat is voor als je nog een bijlage wilt sturen fotos documentje ed.....
        smtpServer.Send(mail)
       
    End Sub
End Class

Reacties (6)

 
Kan je misschien beter uitleggen wat het doet?
want ik weet niet echt hoe t werkt
 
Eerst vul je de nodige gegevens in (zelf controls toevoegen aan de form):
GMail gebruikersnaam in txtUserName
Wachtwoord in txtPassword
Doeladres in txtEmail
Onderwerp in txtSubject
Email tekst (body) in txtMessage

Button1 maakt alle velden leeg, alhoewel ik denk dat je met Textbox.Clear() alleen de tekstbox een wit vak maakt, ik zou het doen als Textbox.Text=""

Om te versturen druk je op Button2
Eerst wordt er een object gemaakt om met een SMTP server te verbinden.
Daarna wordt de Progressbar1 op 10% gezet
Dan wordt een nieuw object gemaakt voor de email zelf
De login voor de SMTP server wordt vervolgens ingesteld op de gebruikersnaam in txtUsername en het wachtwoord in txtPassword
De poort om mee te verbinden wordt daarna ingesteld (587)
Het serveradres wordt vervolgens ingesteld op smtp.gmail.com
SSL wordt aangezet (nodig voor gmail)
Het emailobject wordt ingesteld op een nieuw email object
De afzender wordt ingesteld op hello@hello.com (niet de echte afzender, maar de ontvanger ziet hem wel als afzender)
Vervolgens wordt er een ontvanger toegevoegd, namelijk de waarde in txtEmail
Het onderwerp wordt toegevoegd (txtSubject)
De tekst zelf (de body) wordt toegevoegd (txtMessage)

Daarna wordt de mail verzonden met de eerder gegeven informatie over de SMTP server.
 
wat moet je dan allemaal toevoegen in je form?
 
Hallo,

Wie wil mij helpen ik krijg het script niet aan de gang.
Wat houd de Form in
 :'(
 
@qwerty123443
Voeg deze controls toe, en noem ze door middel van de "Name" waarde in te stellen:
Een Textbox genaamd txtUserName
Een Textbox genaamd txtEmail
Een Textbox genaamd txtSubject
Een Textbox genaamd txtMessage, met multiline op "True"
(Als je alles copy-paste ook nog een Timer genaamd Timer1, maar daar wordt met deze code niets mee gedaan)
Een Button genaamd Button1
Een Button genaamd Button2
Voor meer informatie kun je bij mijn vorige comment zijn

@wolderwijd
Ik heb je een PM gestuurt, kijk in je inbox
 
        smtpServer.Port = 587 'Poortje  =) 
        smtpServer.Host = "smtp.gmail.com" 'smtp van gmail lol
        smtpServer.EnableSsl = True 'SSL checkje
dit geeft al aan dat het niet 'jouw' script is.
"poortje" => In of uitgaand?
"SSL checkje" => absoluut onwaar, deze encrypt de data op een assymetrische wijze zodat 'man-in-the-middle' attacks geen zin hebben,
wat sowieso niet uitmaakt, sinds het gewoon mailtjes zijn, je kan deze net zo goed false houden.
[Reactie plaatsen]

Details

Avatar slober
Door: slober
Taal: C#, VB.NET, F#, ...
7/9/2011 7:45
3123x bekeken

Opties

Ik vind dit: Leuk  Niet leuk
Leuk
2
Niet leuk
1
Naar boven