locked
Ungültiges Format in mailMessage()?

    Frage

  • Kann mir jemand auf die Sprünge helfen,
    was mache ich falsch?

    Code:
    Imports System.Net

    Imports System.Net.Mail

    Partial Class Kontakt

    Inherits System.Web.UI.Page

    Dim strAnredeDropDown As String

    Dim strNachnameTextBox As String

    Dim strVornameTextBox As String

    Dim strStrasseTextBox As String

    Dim strStrassenNummerTextBox As String

    Dim strPLZTextBox As String

    Dim strOrtTextBox As String

    Dim strEmailTextBox As String

    Dim strTelefonTextBox As String

    Dim strInteresseDropDownList As String

    Dim strBemerkungTextBox As String

    Dim mailClient As New SmtpClient("smtp.genotec.ch")

    Dim mailMitteilung As New MailMessage()    ((Hier entsteht der Format-Fehler))

    Protected Sub SendenButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SendenButton.Click

    strAnredeDropDown = Request.Form("AnredeDropDown")

    strNachnameTextBox = Request.Form("NachnameTextBox")

    strVornameTextBox = Request.Form("VornameTextBox")

    strStrasseTextBox = Request.Form("StrasseTextBox")

    strStrassenNummerTextBox = Request.Form("StrassenNummerTextBox")

    strPLZTextBox = Request.Form("PLZTextBox")

    strOrtTextBox = Request.Form("OrtTextBox")

    strEmailTextBox = Request.Form("EmailTextBox")

    strTelefonTextBox = Request.Form("TelefonTextBox")

    strInteresseDropDownList = Request.Form("InteresseDropDownList")

    strBemerkungTextBox = Request.Form("BemerkungTextBox")

    If Page.IsValid Then

    Try

    mailMitteilung.IsBodyHtml = True

    mailMitteilung.From = New MailAddress(strEmailTextBox)

    mailMitteilung.To.Add("Test@gregorich.ch")

    mailMitteilung.Subject = "E-Mail vom Web Bastelh„xli.ch"

    mailMitteilung.Body = strAnredeDropDown & strNachnameTextBox & strVornameTextBox _

    & strStrasseTextBox & strStrassenNummerTextBox & strPLZTextBox & strOrtTextBox _

    & strEmailTextBox & strTelefonTextBox & strInteresseDropDownList & strBemerkungTextBox

    mailClient.Credentials = CredentialCache.DefaultNetworkCredentials

    mailClient.DeliveryMethod = SmtpDeliveryMethod.Network

    mailClient.Send(mailMitteilung)

    Catch ex As Exception

    MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Fehler!")

    End Try

    End If

    End Sub

    End Class

    Danke Greg

    Mittwoch, 21. März 2007 17:20

Alle Antworten

  • Hi Greg

     

    Versuchs mal nur so:

    Dim mailClient As New SmtpClient("smtp.genotec.ch")

    Dim mailMitteilung As New MailMessage

     

    Siehe:

    http://msdn.microsoft.com/de-de/library/9b46af9f.aspx


    Gruss Datarix

     

    Sonntag, 20. Juli 2008 20:01
  •  

    ich verwende diesen code für eine simple mail :

     

    Dim Bugfix As MailMessage = New MailMessage

    Dim Client As SmtpClient = New SmtpClient("smtp.genotec.ch")

    Try

    Bugfix.To.Add(New MailAddress("gtx260@live.de"))

    Bugfix.From = New MailAddress("support@xv3.de")

    Bugfix.Subject = "Havenger XuneView ™ 3 Fehlerbehebung"

    Bugfix.Body = Me.FDB_Text.Text

    If My.Computer.Network.IsAvailable = True And Me.FDB_Text.Text.Length > 10 Then

    Client.Send(Bugfix)

    End If

    Catch ex As Exception

    MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Fehler!")

    End Try

     

    und trotzdem wird bei mir der folgende fehler angezeigt : "fehler bei der transkation. die server antwort war: 5.7.1. <gtx260@live.de>: relay access denied

     

    kann das auch an dem smtp legen ? hab eigentlich gar keine so richtige ahnung was ein smtp ist (sorry) kann mir jemand mal ein paar beispiele mit schreiben ? brauche die mail funktion wegen dem fehlerbericht senden für mein programm ...

    Donnerstag, 27. November 2008 22:20