Jag har ett stort problem, jag ska skicka ett mail när man skapar ett konto men jag får bara felmeddelande. Här är lite kod:

... en massa ointressant kod...
            IF not strCreate = Nothing Then
             Dim lngCnt as integer = 4
             Dim strSlmpPass as string
             Dim strPassChars as string = "abcdefghijkmnpqrstuvwxyz0123456789"
              Randomize
                strSlmpPass = ""
                  Do while lngCnt > 0
                    strSlmpPass = strSlmpPass & Mid(strPassChars, Int(Rnd() * Len(strPassChars)) + 1, 1)
                    lngCnt = lngCnt - 1
                  Loop
              SS.ExecuteSQL("INSERT INTO users(namn, mail, user, pass, ip, a_mail, user_level) VALUES('"& SS2.safe(strNamn) &"','"& SS2.safe(strMail) &"','"& SS2.safe(strUser) &"','"& SS2.safe(strPass) &"','"& Request.ServerVariables("REMOTE_ADDR") &"', '"& strSlmpPass &"',1)")
              strResponse = "?p=start"
              SS.CloseConnection()
                'Skicka aktivieringsmailet..
              strMailSend = SendMail(strMail, strNamn, strUser, strPass, strSlmpPass)
            End IF

          IF not strResponse = Nothing Then
            IF strMailSend = "ok" Then
              lbl_status.text = "Du kommer inom kort att få ett aktiveringsmail."
            Else
              lbl_status.text = "<div class='text'>"& strMailSend &"</div>"
            End IF
            p_form.visible = false
          End IF
      End Sub

    Function SendMail(strMail, strNamn, strUser, strPass, strSlmpPass)
      Dim strError as String = Nothing
      Dim strBody as string
      strBody = "Hej "& strNamn & VbCrLf & "Aktivera din e-mailaddress med denna adress: "& VbCrLf & _
      "http://sealstudio.net/aktivera.aspx?user="& strUser &"&pass="& strSlmpPass & VbCrLf & _
      "Logga in med följande uppgifter: " & VbCrLf & "Användarnamn: "& strUser &" Lösenord: "& strPass & VbCrLf & _
      "Tack för visat intresse."
         try
            try
               Dim Message as new System.Web.Mail.MailMessage()
               Message.To = strMail
               Message.From = "admin@sealsudio.net"
               Message.Subject = "Aktivera ditt konto"
               Message.Body = strBody

               try
                  Dim SmtpMail as System.Web.Mail.SmtpMail
                    SmtpMail.SmtpServer = "smtp.gate9.se"
                    SmtpMail.Send(Message)
               catch ehttp as System.Web.HttpException
                  strError = ehttp.Message
                  strError = strError & "Here is the full error message output"
                  strError = strError & ehttp.ToString()
               End Try
            catch ex as system.Exception
               'Dim use as new usage()
               'use.DisplayUsage()
            End Try
         catch ex As system.Exception
            strError = "Unknown Exception occurred {0}" & ex.Message
            strError = strError & "Here is the Full Message output"
            strError = strError & "{0}" & ex.ToString()
          End Try
            IF strError = Nothing Then
              return "ok"
            Else
              return "Någonting gick fel, rapportera gärna felmeddelandet nedan till admin på addressen: admin@sealstudio.net <br />" & strError & "<br />"
            End IF
      End Function

Med denna kod får jag felmeddelande
<code>
Could not access 'CDO.Message' object.Here is the full error message outputSystem.Web.HttpException: Could not access 'CDO.Message' object. ---> System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> System.Runtime.InteropServices.COMException (0x8004020F): The server rejected one or more recipient addresses. The server response was: 450 : Sender address rejected: Domain not found --- End of inner exception stack trace --- at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr, Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[] namedParameters) at System.RuntimeType.InvokeMember(String name, BindingFlags invokeAttr, Binder binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParameters) at System.Web.Mail.LateBoundAccessHelper.CallMethod(Object obj, String methodName, Object[] args) --- End of inner exception stack trace --- at System.Web.Mail.LateBoundAccessHelper.CallMethod(Object obj, String methodName, Object[] args) at System.Web.Mail.CdoSysHelper.Send(MailMessage message) at System.Web.Mail.SmtpMail.Send(MailMessage message) at Member.SendMail(Object strMail, Object strNamn, Object strUser, Object strPass, Object strSlmpPass)
</code>

Om man orkar läsa igenom denna som jag, så har jag hittan EN begriplig rad, nämligen denna:
<code>
The server rejected one or more recipient addresses. The server response was: 450 : Sender address rejected: Domain not found
</code>

Hjälp mig snälla, jag har samma mailkod på en annan sida och den fungerar. Behöver verkligen hjälp med denna.

Hej!

Det kan vara ett rättighetsproblem.
Kontot i "Message.From" måste finnas i mailservern

Message.From = "admin@sealsudio.net"

Finns detta konto eller är det kanske felstavat? sealstudio.net?

/Jan

Tack så jättemycket!
Såg inte, hade glömt ett 't' i "sealstudio".