Was is daran falsch? Email per VB

[hallodut]

ich möchte eine eine Mail mit Visual Basic senden
Mein Code wenn ich auf denn Button klicke passiert
gar nix auf beiden Adressen ???


Hab die Adressen durch TEST ersetzt fürs Forum

PHP Code:

Imports System.Net
Imports System.Net.Mail

Public Class Form1
    Dim mail As New MailMessage
    Dim smtpserver As New SmtpClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage
        Dim smtpserver As New SmtpClient

        smtpserver.Credentials = New Net.NetworkCredential("NAME", "PWD")
        smtpserver.Port = 25
        smtpserver.Host = "smtp.gmail.com"
        smtpserver.EnableSsl = True
        mail = New MailMessage
        mail.From = New MailAddress("")
        mail.To.Add("")
        mail.Subject = "TEST"
End Sub
End Class 


[Devil589]

Deine E-Mail wird nicht verschickt weil du noch ein Send brauchst.
Ich weiß jetzt nicht ganz genau wie es in VB aussehen muss aber es kann sein dass du noch ein smtpserver.Send(mail) machen musst.
Bei dem Send musst du als Überladung die Sachen von deinem mail übergeben.

EDIT: Hier ein Link der dir vielleicht weiter hilft.


See Ya!

[patschga]

Schritt 1:
Zuerst muss man Imports System.Net.Mail in die Kopfzeile schreiben.

Schritt 2:
Der Code (Beispielsweise bei einem Button Klick):

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "Deine E-Mail Adresse"
myCredentials.Password = "Das passwort von der E-mail Adresse"

Msg.IsBodyHtml = False

Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "mail.gmx.net" Am besten machst du dir eine e-mail bei
gmx.de dann stimmt das was hier drinnen steht.

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
Msg.From = New MailAddress("Deine E-Mail Adresse die oben steht nochmal hier rein")
Msg.To.Add("")
Msg.Subject = "Betreff"
Msg.Body = "Inhalt"
mySmtpsvr.Send(Msg)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox (Err.Number & ex.Message & ex.StackTrace.ToString)
End Try

Das was in rot steht, ändern, und schon gehts.

mfg

[eragon276]

@hallodut sei dabei aber sehr vorsichtig denn es gibt programm mit dem man visual basic scripts auseinandere fedeln kann und so deine email sowie passwort auslesen kann. du könntest dein email passwort als md5 hash verschlüsseln und sie als string declarieren um so sicherer zu sein

[patschga]

oder net reactor zum verschlüsseln des programmes verwenden

[hallodut]

hey dank an alle : = )
ja ich habs hinbekomm aber mit Gmail geht es
nich... mit sonem billigen email programm schon
ja und patschga hast recht ich finde es dumm das pwd
unverschlüsselt ins programm zu schreiben