Was is daran falsch? Email per VB

01/22/2011 15:01 hallodut#1
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("[Only registered and activated users can see links. Click Here To Register...]")
        mail.To.Add("[Only registered and activated users can see links. Click Here To Register...]")
        mail.Subject = "TEST"
End Sub
End Class 
01/22/2011 17:21 Devil589#2
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.
[Only registered and activated users can see links. Click Here To Register...]

See Ya!
01/22/2011 17:25 patschga#3
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("[Only registered and activated users can see links. Click Here To Register...]")
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
01/28/2011 15:45 eragon276#4
@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
01/28/2011 17:41 patschga#5
oder net reactor zum verschlüsseln des programmes verwenden :)
01/28/2011 17:57 hallodut#6
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