[VB.NET] E-Mail senden per SMTP (Simple Mail Transfer Protocol)

Maynard

Registrierter Benutzer

Beiträge: 466

Dabei seit: 15. September 2007

Hilfreich-Bewertungen: 2

1

Sonntag, 24. Februar 2008, 14:20

E-Mail senden per SMTP (Simple Mail Transfer Protocol)

Hallo, dies ist zwar keine Anwendung die ich geschrieben habe, aber ich denke es passt hier trotzdem hin, für alle die nicht wissen wie man mit VB.NET eine E-Mail sendet.

Senden einer E-Mail per SMTP

Schritt 1: Zuerst muss Imports System.Net.Mail in die Kopfzeile übernommen werden.

Schritt 2: Der Code

Visual Basic Quellcode

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = " andreas@absender.de"
myCredentials.Password = "Passwort des Absenders"

Msg.IsBodyHtml = False

Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de" ‘bei web.de
mySmtpsvr.Port = 25

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
  Msg.From = New MailAddress("andreas@absender.de")
  Msg.To.Add("entchen@empfänger.de")
  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) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try

Viele Grüße M

Edit by Agent: VB-Tag eingefügt

Viele Grüße, Maynard

Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »Agent« (24. Februar 2008, 20:21)

Zum Seitenanfang

Es haben bereits 2 registrierte Benutzer diesen Beitrag als hilfreich eingestuft.

Benutzer, die diesen Beitrag hilfreich fanden:

DosiSoft, VanDerLars

ghost120

Registrierter Benutzer

Beiträge: 20

Dabei seit: 21. Dezember 2007

2

Freitag, 6. Juni 2008, 19:46

Danke für den Code, bei mir kommt da Fehler Nummer 13
"Die angegebene Zeichenfolge besitzt nicht das für eine E-Mail erforderliche Format..."
Kann mir bitte jemand helfen?
Danke

Zum Seitenanfang

mikeb69

Registrierter Benutzer

Beiträge: 3 786

Dabei seit: 21. März 2008

Wohnort: Neusäß/Bayern

Hilfreich-Bewertungen: 139

3

Samstag, 7. Juni 2008, 14:12

hallo ghost120,

der autor des codes konnte ja nicht wissen, dass du deine eigenen werte erst mal aussen vor lässt ! :wacko:

da email addressen keine umlaute (ö,ü,ä) beinhalten können .....

aber mit ein klein wenig mühe hätte da jeder drauf kommen können.

gruss

mikeb69

Mein Filehoster (noch nicht fertig)
Vereinshomepage
TimeZone Nofifier (Zeitzone via IP ermitteln)

Zum Seitenanfang

V4LL3

Registrierter Benutzer

Beiträge: 315

Dabei seit: 30. November 2009

4

Freitag, 8. Januar 2010, 19:27

^bei mir kommt fehlerkode 5 "Die angegebene Zeichenfolge besitzt nicht das für eine E-Mail erforderliche Format..."

Zum Seitenanfang

markushettmann

VB.net Developer

Beiträge: 317

Dabei seit: 29. Dezember 2009

Wohnort: Köln

Hilfreich-Bewertungen: 23

5

Mittwoch, 3. März 2010, 21:40

Warum immer so kompliziert

Visual Basic Quellcode

Imports System.Net
Imports System.Net.Mail

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String
        text = TextBox1.Text
        Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
        myClient.Credentials = New Net.NetworkCredential("Meine Email", "Meine Email Pw")
        myClient.Send("Meine Email", "ZielEmail", "Hallo", text)
    End Sub
End Class

mfg markushettmann

Mein Beitrag hat dir geholfen? Bedanken drücken :thumbup:

Jappy-Profil

Zum Seitenanfang

Es haben bereits 4 registrierte Benutzer diesen Beitrag als hilfreich eingestuft.

Benutzer, die diesen Beitrag hilfreich fanden:

alecsoft, JackTeeth, m9898, VanDerLars

Perser7

Registrierter Benutzer

Beiträge: 9

Dabei seit: 8. März 2010

Wohnort: HD

6

Montag, 12. April 2010, 12:30

Hallo
Das Thema hier ist lange her aber ich hab ein Problem
Bei mir kommt die Meldung:
(Bild Anhang)

Kann sein das ich was falsch gemacht hab?

Zitat

Imports System.Net.Mail

Public Class Form1

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

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "mp_1992@hotmail.de"
myCredentials.Password = "*****"

Msg.IsBodyHtml = False

Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.live.com"
mySmtpsvr.Port = 25

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
Msg.From = New MailAddress("mp_1992@hotmail.de")
Msg.To.Add("Don_Perser@live.de")
Msg.Subject = "HEY"
Msg.Body = "HALLOOOOOOOO"
mySmtpsvr.Send(Msg)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try
End Sub
End Class

ok läute euer antwort mein Schicksal

tnx

»Perser7« hat folgendes Bild angehängt:

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Marcus Gräfe« (13. April 2010, 19:32)

Zum Seitenanfang

fichz

Powidltatschkerln

Beiträge: 1 107

Dabei seit: 22. April 2010

Wohnort: Linz

Hilfreich-Bewertungen: 171

7

Mittwoch, 2. Juni 2010, 09:40

weiß nicht ob es noch intresannt ist.
hab das nun selbst mal probiert mit gmail und mit folgendem parameter hat es dann funktioniert (hatte gleichen fehler wie du)

dein code erweitert:

Visual Basic Quellcode

Imports System.Net.Mail
 
 Public Class Form1
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Button1.Click
 
 Dim Msg As New MailMessage
 Dim myCredentials As New System.Net.NetworkCredential
 myCredentials.UserName = "mp_1992@hotmail.de"
 myCredentials.Password = "*****"
 
 Msg.IsBodyHtml = False
 
 Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.EnableSsl = True 'SSL aktivieren
 mySmtpsvr.Host = "smtp.live.com"
 mySmtpsvr.Port = 25
 
 mySmtpsvr.UseDefaultCredentials = False
 mySmtpsvr.Credentials = myCredentials
 
 Try
 Msg.From = New MailAddress("mp_1992@hotmail.de")
 Msg.To.Add("Don_Perser@live.de")
 Msg.Subject = "HEY"
 Msg.Body = "HALLOOOOOOOO"
 mySmtpsvr.Send(Msg)
 MsgBox("E-Mail gesendet.", MsgBoxStyle.Information,  Title:="Information")
 Catch ex As Exception
 MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls  ein Fehler auftritt wird eine MsgBox angezeigt
 End Try
 End Sub
 End Class

hoffe konnte helfen

lg fichz

ScheduleLib 0.0.1.0
Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

Zum Seitenanfang

Es hat bereits 1 registrierter Benutzer diesen Beitrag als hilfreich eingestuft.

Benutzer, die diesen Beitrag hilfreich fanden:

Franzi564

Goldwing Studios

Ich glaube dein Kittel brennt!

Beiträge: 118

Hilfreich-Bewertungen: 5

8

Sonntag, 12. Juni 2011, 14:56

hi

ich bin der neue totengräber von nebenan und möchte mein anliegen vortragen:

ich habe bei dem von fichz genannten und dankenswerter weise zur verfügung gestellten Code ein Problem und zwar bei dieser Zeile:

	Visual Basic Quellcode
1 2 3	Msg.Body = "HALLOOOOOOOO" mySmtpsvr.Send(Msg) '<<diese hier MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")

da wird mein programm gestoppt und friert ein, kann mir jemand sagen, was ich falsch gemacht habe?

Online-"Browser"-Game für den PC: 12%

Klick mitsch!(COD: MW3-Let's Play Part 1; Part 2 )

Zum Seitenanfang

Fräulein

Registrierter Benutzer

Beiträge: 69

Dabei seit: 17. Dezember 2009

Hilfreich-Bewertungen: 1

9

Sonntag, 11. September 2011, 18:30

Ich bekomme folgende meldung bei yahoo:

Visual Basic Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "dgffdghfdg@yahoo.com"
        myCredentials.Password = "********"

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.mail.yahoo.com" 
        mySmtpsvr.Port = 465

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Try
            Msg.From = New MailAddress("awdawd@yahoo.com")
            Msg.To.Add("awdawdad@gmail.com")
            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) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
        End Try
    End Sub