Hallo zusammen,
ich sitze gerade an einem kleinen Tool, welches u.a. auch eine Form mit einem Kontaktformular beinhalten soll. Nach dem durchforsten von einigen Threads bin ich auf nachfolgendem Code gestoßen (Form dazu befindet sich im Anhang).
Der Code funktioniert (Visual Basic Express 2010) in dieser Art und Weise ohne Probleme.
(Beispiel GMX) - Ich gebe unter E-Mail meine Adresse xy@gmx.de und mein Passwort ein, fülle die restlichen Angaben aus und sende das Ganze ab. Die E-Mail wird abgesendet und ich erhalte eine E-Mail von xy@gmx.de mit gewählten Betreff.
Nun hätte ich es jedoch gerne so, dass man sich nicht mit einer GMX Adresse zB. authentifizieren muss, sondern dass feste STMP Daten im Hintergrund hinterlegt sind, sodass E-Mails abgeschickt werden sollen (als Beispiel die Daten von xy@gmx.de).
Es soll als Absender-Adresse jedoch nicht xy@gmx.de im Posteingang erscheinen sondern eine frei definierbare Adresse im Formular (z.B. Max_Mustermann@t-online.de). Wenn ich dann auf die eingegangene E-Mail im Posteingang antworte, würde Max Mustermann eine Antwort erhalten und nicht xy@gmx.de
Ich habe schon folgende Zeile einmal umgeschrieben:
smtp.Credentials = New System.Net.NetworkCredential("xy@gmx.de", "Passwort1234")
Wenn ich nun bei Absender "hallo@test.de" reinschreibe, erscheint ein Fehler - Wenn ich dort wieder xy@gmx.de eintrage klappt es ohne Probleme (jedoch natürlich nicht mit dem gewünschten Absender)
Ich hoffe ich konnte das Problem einigermaßen erklären - kann mir diesbezüglich jemand behilflich sein? - Danke schon mal im Voraus!
ich sitze gerade an einem kleinen Tool, welches u.a. auch eine Form mit einem Kontaktformular beinhalten soll. Nach dem durchforsten von einigen Threads bin ich auf nachfolgendem Code gestoßen (Form dazu befindet sich im Anhang).
Der Code funktioniert (Visual Basic Express 2010) in dieser Art und Weise ohne Probleme.
(Beispiel GMX) - Ich gebe unter E-Mail meine Adresse xy@gmx.de und mein Passwort ein, fülle die restlichen Angaben aus und sende das Ganze ab. Die E-Mail wird abgesendet und ich erhalte eine E-Mail von xy@gmx.de mit gewählten Betreff.
Nun hätte ich es jedoch gerne so, dass man sich nicht mit einer GMX Adresse zB. authentifizieren muss, sondern dass feste STMP Daten im Hintergrund hinterlegt sind, sodass E-Mails abgeschickt werden sollen (als Beispiel die Daten von xy@gmx.de).
Es soll als Absender-Adresse jedoch nicht xy@gmx.de im Posteingang erscheinen sondern eine frei definierbare Adresse im Formular (z.B. Max_Mustermann@t-online.de). Wenn ich dann auf die eingegangene E-Mail im Posteingang antworte, würde Max Mustermann eine Antwort erhalten und nicht xy@gmx.de
Ich habe schon folgende Zeile einmal umgeschrieben:
smtp.Credentials = New System.Net.NetworkCredential("xy@gmx.de", "Passwort1234")
Wenn ich nun bei Absender "hallo@test.de" reinschreibe, erscheint ein Fehler - Wenn ich dort wieder xy@gmx.de eintrage klappt es ohne Probleme (jedoch natürlich nicht mit dem gewünschten Absender)
Ich hoffe ich konnte das Problem einigermaßen erklären - kann mir diesbezüglich jemand behilflich sein? - Danke schon mal im Voraus!

Quellcode
- Imports System.Net.Mail
- Public Class Form5
- Private Sub Button_Absenden_Click(sender As System.Object, e As System.EventArgs) Handles Button_Absenden.Click
- Dim MyEmail As New MailMessage
- Try
- MyEmail.From = New MailAddress(Textbox_Absender.Text)
- MyEmail.To.Add(zuwem.Text)
- MyEmail.Subject = (Textbox_Betreff.Text)
- MyEmail.Body = "Anliegen: " & vbCrLf & (RichTextBox1.Text) & vbCrLf & vbCrLf
- MyEmail.Body += "Anrede: " & ComboBox1.Text & vbCrLf
- MyEmail.Body += "Vorname: " & TextBox_Vorname.Text & vbCrLf
- MyEmail.Body += "Nachname: " & TextBox_Nachname.Text & vbCrLf
- MyEmail.Body += "Ort: " & TextBox_Gebäude.Text & vbCrLf
- MyEmail.Body += "Etage: " & TextBox_Etage.Text & vbCrLf
- MyEmail.Body += "Raum: " & TextBox_Raum.Text & vbCrLf
- MyEmail.Body += "Telefon: " & TextBox_Telefon.Text & vbCrLf
- Dim smtp As New SmtpClient("smtp.gmx.de")
- smtp.Port = 587
- smtp.EnableSsl = True
- smtp.Credentials = New System.Net.NetworkCredential(Textbox_Absender.Text, passwort.Text)
- smtp.Send(MyEmail)
- MsgBox("E-Mail wurde erfolgreich abgeschickt!")
- Catch ex As Exception
- MsgBox("Fehler aufgetreten!")
- End Try
- End Sub
- End Class