Hallo Killa67,
was möchtest du genau machen?
Möchtest du nur einen Text via Standard-Mailprogramm verschicken?
Text mit Anhang verschicken und ggf. sogar Kopieempfänger angeben, Lesebestätigung anfordern usw.
Im ersten Fall besteht m.w. das Problem, dass die Mail nicht wirklich verschickt, sondern nur in den Postausgang deines Standard-Mail-Programms geschoben wird. Dort geht das dann schnell mal vergessen.
Wenn du sicherstellen möchtest, dass du die volle Kontrolle hast und die Mail wirklich auch abgeschickt wird, musst du den Weg gehen, denn du hier bereits 3 x aufgezeigt bekommen hast.
Nachstehend mal ein entsprechender Code mit dem du auch Anhänge versenden kannst:
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mail.Attachment
Dim Betreff
As String = tbBetreff.Text
Dim SendFrom As
String = tbAbsender.Text
Dim ShipTo As
String = tbEmpfänger.Text
Dim Anhang As
String = "C:\Bilder\Bild.jpg"
' Später tbAnhang.Text oder über Dialog
Dim Text
As String
Dim myClient As
New Net.Mail.SmtpClient(tbSMTP.Text)
''Dim myClient As NewNet.Mail.SmtpClient("smtp.web.de")
Text = RichTextBox2.Text
'Das kennste eleganter machen
'& RichTextBox1.Text
myClient.Credentials = New NetworkCredential("name@domain.de", "Passwort")
Dim mail As
New System.Net.Mail.MailMessage
mail.From = New System.Net.Mail.MailAddress(SendFrom)
mail.To.Add(ShipTo)
mail.Subject = Betreff
mail.Body = Text
mail.Attachments.Add(New System.Net.Mail.Attachment(Anhang))
myClient.Send(mail)
Liebe Grüße Stefan
