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

Problem med smtp-formulär


nsky

Rekommendera Poster

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?

Länk till kommentar
Dela på andra webbplatser

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.

Länk till kommentar
Dela på andra webbplatser

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()

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...