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: Hej! Tack så jättemycket!Problem med aktivera konto-mail
... 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.
Sv: Problem med aktivera konto-mail
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?
/JanSv:Problem med aktivera konto-mail
Såg inte, hade glömt ett 't' i "sealstudio".