m1pfard
Member
سلام.
من یه مشکل در ارسال میل با CDO.Message دارم.
این برنامه قبلا تو سایت کار می کرد ولی از وقتی که هاست رو عوض کردم، دیگه کار نمیکنه؟!!
هاست جدید روی سرور Parsdata هست و تا اونجا که من می دونم mail server و host server اونا یکی نیست. با این حال و باا در نظر گرفتن این نکات کد من کار نمی کنه!!!!!!!!!!!!!!!!
در واقع هیچ خطایی نمیده ولی ایمیل هم ارسال نمیکنه؟!!
اینم نمونه کد:
[LTR]
[/LTR]
من یه مشکل در ارسال میل با CDO.Message دارم.
این برنامه قبلا تو سایت کار می کرد ولی از وقتی که هاست رو عوض کردم، دیگه کار نمیکنه؟!!
هاست جدید روی سرور Parsdata هست و تا اونجا که من می دونم mail server و host server اونا یکی نیست. با این حال و باا در نظر گرفتن این نکات کد من کار نمی کنه!!!!!!!!!!!!!!!!
در واقع هیچ خطایی نمیده ولی ایمیل هم ارسال نمیکنه؟!!
اینم نمونه کد:
[LTR]
کد:
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") = Mail.Mydomayn.com '(آدرس میل سرور)
.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 = "[email protected]"
.To = "[email protected]"
.Subject = " TEST MAIL"
.TextBody = "Hi, Bye!!!!!!!!!!!!"
End With
Err.Clear
on error resume next
objMail.Send
if len(Err.Description) = 0 then
IsSuccess = true
else
response.Write Err.Description
end if
