Just nu i M3-nätverket
Gå till innehåll
nsky

Problem med smtp-formulär

Rekommendera Poster

nsky

Hej,

förstår inte varför detta inte fungerar, använder exakt samma kod i ett annat projekt och det fungerar men inte här. Får felmedelande: Den angivninga strängen har inte det format som krävs för en e-postadress.

 

och det är här den kör fast: Dim MailMsg As New MailMessage()

 

Har lagt till

Imports System.Net.Mail
Imports System.Net

 

 Protected Sub btSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btSend.Click
       Dim smtpClient As New SmtpClient()
       Dim basicCredential As New NetworkCredential("mail@gmail.com", "losen")
       Dim MailMsg As New MailMessage()

       smtpClient.Host = "smtp.gmail.com"
       smtpClient.EnableSsl = True
       smtpClient.UseDefaultCredentials = False
       smtpClient.Credentials = basicCredential
       smtpClient.Port = 587

       If tbSubject.Text = "" Then
           lblError.Text = "Du måste fylla i alla fält för att du ska posta"
       ElseIf tbName.Text = "" Then
           lblError.Text = "Du måste fylla i alla fält för att du ska posta"
       ElseIf tbEmail.Text = "" Then
           lblError.Text = "Du måste fylla i alla fält för att du ska posta"
       ElseIf tbComment.Text = "" Then
           lblError.Text = "Du måste fylla i alla fält för att du ska posta"
       Else
           Try
               Dim from As String = tbEmail.Text
               Dim fromAddress As New MailAddress(from)

               MailMsg.From = fromAddress

               MailMsg.[To].Add("minMail@gmail.com")
               MailMsg.Subject = tbSubject.Text



               MailMsg.IsBodyHtml = True
               MailMsg.BodyEncoding = System.Text.Encoding.[Default]
               MailMsg.Body = "<h2>" & tbName.Text & " har kontaktat dig" & "</h2>"
               MailMsg.Body += "<b>Text:</b>" & "<br />" & tbComment.Text & "<br />" & "<br />"
               MailMsg.Body += "<b>Email:</b> " & tbEmail.Text

               smtpClient.Send(MailMsg)
               lblError.Text = ""
               tbComment.Text = ""
               tbEmail.Text = ""
               tbName.Text = ""
               tbSubject.Text = ""
               lblSent.Text = "Ditt meddelande har skickats"
           Catch ex As Exception
               lblSent.Text = "Tvyärr blev det fel, försök igen"
               Throw (ex)
           End Try
       End If
   End Sub

 

Nån som ser vad som är fel?

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
nsky

Var/hur anger du fromAddress ?

 

Dim from As String = tbEmail.Text
Dim fromAddress As New MailAddress(from)

 

tbEmail.Text är en textbox där besökaren får fylla i sin epost adress.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Cluster

Lirar det om du hårdkodar in e-postadressen?

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
nsky

Lirar det om du hårdkodar in e-postadressen?

Det tvivlar jag på, men har dock inte testat. Men när jag debugar så nitar den direkt på 3:e raden

Dim MailMsg As New MailMessage()

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...