فرستادن ايميل با اي اس پي - اتفاق عجيب

[armin3d]

سلام
سرور قبلي با اين كد :

<%
Set cdo=CreateObject("CDO.Message")
cdo.From=emailfrom
cdo.To=emailto
cdo.Body = "<b>Hello!</b><br><b>World!!!</b>"
cdo.Send
%>

مي توانستم راحت ايميل را ارسال كنم. ولي اكنون در سرور جديد اين كد اجرا نمي شود! و من با زحمت فراوان توانستم كد زير را پيدا كنم :

<!--METADATA TYPE="typelib" UUID="CD035781-8B62-11D1-89DB-11C84234525D" NAME="CDO for Windows 2003 Library" --><!--METADATA TYPE="typelib" UUID="34545776-8654-9018-8990-00AA006D2EA4" NAME="ADODB Type Library" --><%
set objMessage = CreateObject("CDO.Message")
objMessage.To = emailto
objMessage.From = emailfrom
objMessage.body = "Hello!"
set objConfig = CreateObject("CDO.Configuration")
objConfig.Fields(cdoSMTPAuthenticate) = cdoAnonymous
objConfig.Fields.Update
set objMessage.Configuration = objConfig
%>

ولي در اين كد يه اشكالي هست كه فقط به آدرس ايميل هاي مربوط به خود سرور ايميل ارسال مي كند.
و در صورتي كه آدرس گيرنده از yahoo باشد ، ايميل ارسال نمي شود.

 

[shahab_ksh]

salam
عزيزم بايد آدرس فرستنده با دامين خودت باشه

 

[amirlol]

نه نیازی نیست و فقط از یک SMTP دیگه استفاده کن تو خط زیر عوضش کن مثلآ برای یاهو رو برده حله


objConfig.Fields(cdoSMTPServer) = "nik3d.com"