مشکل ارسال ایمیل در asp با سرور ویندوز plesk

rozhins · May 18, 2006

سلام من می خوام تو asp ایمیل بفرستم. از cdo استفاده کردم ایمیلی نمیفرسته خطا هم نمیده.
از asp.net هم استفاده کردم. سرور من ویندوز plesk هستش. دو تا dll هم که لازم بود در add refrence اضافه کردم ولی بازم ایمیلی نمیفرسته
وقتی این رو روی localhost میفرستم ایمیل رو میفرسته.
کد من این هستش:

<Script Runat="Server">

Sub Page_Load

Try

Dim cdoSendUsingPickup As Integer = 1

Dim cdoSendUsingMethod As String = "http://schemas.microsoft.com/cdo/configuration/sendusing"

Dim cdoSMTPServerPickUpDirecory As String = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"

Dim cdoSMTPServer As String = "http://schemas.microsoft.com/cdo/configuration/smtpserver"

Dim strPickup As String = "c:\\inetpub\\mailroot\\pickup"

Dim objMM As CDO.Message = New CDO.Message

Dim Flds As ADODB.Fields = objMM.Configuration.Fields

Flds(cdoSendUsingMethod).Value = cdoSendUsingPickup

Flds(cdoSMTPServerPickUpDirecory).Value = strPickup

Flds(cdoSMTPServer).Value = "mydomain.ir"

Flds.Update()

objMM.MimeFormatted = True
objMM.From = "[email protected]"
objMM.To = "[email protected]"
objMM.Subject = "Account information"
objMM.HTMLBody = " Hi dear "

objMM.HTMLBodyPart.Charset = "utf-8"
objMM.Send()
lblMessage.text = "mail send"

Catch ex As Exception
lblMessage.text = ex.Message
End Try

End Sub

</Script>

<html>
<head><title>PageLoad.aspx</title></head>
<body>

<asp:label id="lblMessage" Runat="Server"/>

</body>
</html>

leg_big · May 20, 2006

از این تابع استفاده کن :
مثل همین کد رو بزاری کا می کنه ، ببین تو CodeBinHide کار کن
Dim mmMail As New System.Web.Mail.MailMessage
Dim objSmtpServer As System.Web.Mail.SmtpMail

mmMail.From = "[email protected]"
mmMail.To = TextBox1.Text
mmMail.Subject = "Welcome to TehranTaligh.Com"
mmMail.BodyFormat = Mail.MailFormat.Html
mmMail.Body = "<B>This is A TEST Body</b>"
objSmtpServer.SmtpServer = "Localhost"
objSmtpServer.Send(mmMail)

leg_big · May 20, 2006

ببین 100 % کار میکنه ، فقط باید رو هاست خودت اجراش کنی ، اگه تو لوکال کار نمیکنه . در ضمن objSmtpServer.SmtpServer = "Localhost"
رو تغییر نده

leg_big · May 20, 2006

در ضمن Cdo رو روی تمام هاستینگ ها می بندن ، چون دارای باگ هستش ، دیگه استفاده نکن ازش . چون کار نمی کنه

rozhins · May 22, 2006

ممنونم فقط منظورت از codebinhide چیه؟ من asp.net بلد نیستم ها!
بازم ممنونم

amirlol · May 23, 2006

leg_big گفت:
در ضمن Cdo رو روی تمام هاستینگ ها می بندن ، چون دارای باگ هستش ، دیگه استفاده نکن ازش . چون کار نمی کنه

یادمه این حرف من بود و شما گفتی نه کی گفته
الان حرف منو می زنی

rozhins · May 23, 2006

دوستان از کمکتون ممنونم!!!!!!!!!!!!!!!!!!!!
من الان خیلی خوشحالم!
من از این کد استفاده کردم و مشکلم حل شد!
mes = ""
IsSuccess = false

sTo = "[email protected]"
sFrom = Trim(Request.Form("txtFrom"))
sSubject = Trim(Request.Form("txtSubject"))
sMailServer = "127.0.0.1"
sBody = Trim(Request.Form("txtBody"))

if Request("__action")="TestEMail" then
TestEMail()
end if

Sub TestEMail()

Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
End With

Err.Clear
on error resume next

objMail.Send
if len(Err.Description) = 0 then
mes = " Message sent to " + sTo
mes = mes + " TESTS COMPLETED SUCCESSFULLY!"
IsSuccess = true
else
mes = " " + Err.Description + " TESTS FAILED!"
end if
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
End sub

Sub Alert(html)
if IsSuccess then
Response.Write "<div class='testRelults' id='testSuccessful'><span class='testResult'>Success:</span>" & html & "</div>"
else
Response.Write "<div class='testRelults' id='testFailed'><span class='testResult'>Fail:</span>" & html & "</div>"
end if
End Sub

همیشه موفق باشید!