یک پیغام خطا هنگام ارسال ایمیل

[mostafa612003]

من با استفاده از این کد می خواهم ایمیل بفرستم:
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "Info@Sobh.org"
objNewMail.To=SenderAddr
objNewMail.Subject = ddddddd
objNewMail.Body=responsematn
objNewMail.MailFormat = 0
objNewMail.BodyFormat = 0
objNewMail.Send
Set objNewMail = Nothing
ولی این پیغام خطا نمایش داده می شود:
Microsoft VBScript runtime error '800a0046'

Permission denied

متشکرم

[titbasoft]

SMTP Server تون رو مشخص نکردید

[mostafa612003]

سلام
چگونه باید این کار را انجام دهم؟
در محل کارمن یک سرور است که من وقتی که از روی کلاینت خودم این برنامه را اجرا می کنم همین مشکل بالا را دارم
اما اگر برنامه را از روی دستگاه خودم یعنی روی IIS خودم اجرا کنم مشکلی ندارم

[titbasoft]

با استفاده از کد زیر:

objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "IP of smtp server"

تاپیک زیر هم به درد میخوره:
http://www.barnamenevis.org/forum/showthread.php?t=29612

[mostafa612003]

سلام
متشکرم
من ip smtp را از کجا متوجه بشوم
بعد من از ip همان سروری که smtp روی آن نصب است استفاده کردم این پیغام خطا را داد
The "SendUsing" configuration value is invalid.


بعد این خطی که نوشتید را دقیقا کجا باید اضافه کنم
ممنون

[titbasoft]

من ip smtp را از کجا متوجه بشوماز ادمین بپرسید


بعد من از ip همان سروری که smtp روی آن نصب است استفاده کردم این پیغام خطا را داد به مثال های زیر توجه کنید:
"127.0.0.1"
"localhost"
"the_machine_name_here"
"the_real_dns_name_here"
"the_machine_IP_Address_here"
"mail.your-domain.com"
"smtp.your-domain.com"



بعد این خطی که نوشتید را دقیقا کجا باید اضافه کنمبعد از خط زیر:
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

[mostafa612003]

این خط را که اضافه می کنم این پیغام را نمایش می دهد
The "SendUsing" configuration value is invalid.

[mostafa612003]

باز هم مشکل من حل نشد
این پیغام را نمایش میدهد:
Permission denied