مشکلات ارسال ایمیل با cdo.message

[هواشناس]

بنام خدا
با عرض سلام و ادب و احترام

بنده در ارسال ایمیل از طریق سایتم با کامپوننت cdo.message کار می کنم ولی چند مشکل دارم:
1- در ارسال عنوان فارسی_subject در دیکد کردن اون مشکل دارم، متن اصلی رو با یک ادیتور می فرستم و مشکل نداره ولی عنوان نمیشه
2-بنده برای اعضا سایت خبرنامه می فرستم و حالا که تعداد افراد به حدود بالغ بر 50 نفر رسیده موقع ارسال ایراد timeout میده و چون با استفاده از تتنظیمات جیمیل کار می کنم تا 30 نفر می فرسته بقیه رو نه- برای ارسال تکی تکی می فرسته تا معلوم بشه به چه افرادی ارسال شده-
زمان timeout رو زیا کردم باز نشد
راه حل شما چیه؟

ممنون

[kashaneh]

دوست عزیز به نظر نمیرسه مشکل از بابت TimeOut اسکریپت ارسال ایمیل باشه و برمیگرده به محدودیت های سرور جهت ارسال ایمیل!
معمولا مسئولین سرورها جهت جلوگیری از ارسال Spam و هرزنامه این محدودیت ها را اعمال می کنند. بهتر است با ادمین سرور در ارتباط باشید

موفق باشی

[هواشناس]

بنام خدا

چندیست با استفاده از cdo.message و اکانت جیمیل خود از طریق سایت اقدام به ارسال ایمیل می کردم اما چند روزیست ارسال نمیشه نمی دونم شاید تنظیمات جیمیل عوض شده اگه اطلاعاتی دارید ممنون میشم خبر بدید

کدهای بصورت زیر است








'With gmail account
SET objGMail = Server.CreateObject("CDO.Message")
Set objGConfig = Server.CreateObject ("CDO.Configuration")
Set objGFields = objGConfig.Fields
schg="http://schemas.microsoft.com/cdo/configuration/"
With objGFields
.Item(schg&"sendusing") = 2
.Item(schg&"smtpusessl") = 1
.Item(schg&"smtpauthenticate")=1 'cdoBasic
.Item(schg&"smtpserver") = "smtp.gmail.com" 'change this to your websites mail domain
.Item(schg&"smtpserverport") = 465
.Item(schg&"sendusername") = "mymail@gmail.com"
.Item(schg&"sendpassword") = "mypassword"
' .Item (schg&"smtpconnectiontimeout") = 120
Set objGMail.Configuration = objGConfig
IF sImportance = "high" THEN
.Item("urn:schemas:httpmail:importance").Value = 2
ELSEIF sImportance = "low" THEN
.Item("urn:schemas:httpmail:importance").Value = 0
ELSE
.Item("urn:schemas:httpmail:importance").Value = 1
END IF
.Update
End With


With objGMail
Set .Configuration = objGConfig
.From = sFromName & "< " & sFromAddress & ">"
.CC = sCCAddress
.bCC = sBCCAddress
.Subject = sSubject

IF sFormat = "text" THEN
.TextBody = sContent
.BodyPart.Charset = "utf-8"
ELSE
.HtmlBody = sContent
.HTMLBodyPart.Charset = "utf-8"
END IF
IF MHTMLBody<>"" then .CreateMHTMLBody MHTMLBody
'.CreateMHTMLBody "file://c:/mydocuments/test.htm"
'.CreateMHTMLBody "http://www.w3schools.com/asp/"
IF Attach<>"" then .AddAttachment Attach
'.AddAttachment "c:\mydocuments\test.txt"
.HTMLBodyPart.Charset = "utf-8"
End With

objGMail.To = ToAddress
Err.Clear
On Error resume next
objGMail.Send

[mohsen.nsb44]

بنام خدا
با عرض سلام و ادب و احترام

بنده در ارسال ایمیل از طریق سایتم با کامپوننت cdo.message کار می کنم ولی چند مشکل دارم:
1- در ارسال عنوان فارسی_subject در دیکد کردن اون مشکل دارم، متن اصلی رو با یک ادیتور می فرستم و مشکل نداره ولی عنوان نمیشه
2-بنده برای اعضا سایت خبرنامه می فرستم و حالا که تعداد افراد به حدود بالغ بر 50 نفر رسیده موقع ارسال ایراد timeout میده و چون با استفاده از تتنظیمات جیمیل کار می کنم تا 30 نفر می فرسته بقیه رو نه- برای ارسال تکی تکی می فرسته تا معلوم بشه به چه افرادی ارسال شده-
زمان timeout رو زیا کردم باز نشد
راه حل شما چیه؟

ممنون

میشه کامپوننت اونو برای دانلود بزارین و نحوه کارش رو توضیح بدین