اشکال در فرستادن ایمیل((مهم))

[m2011kh]

سلام دوستان خیلی وقته که برای فرستادن ایمیل با Gmail از این کد استفاده میکنم:

Option Explicit

'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean

On Error GoTo 35







If Sender <> "" Or Password <> "" Then
Dim iMsg, iConf, Flds, schema, SendEmailGmail
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") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Sender
Flds.Item(schema & "sendpassword") = Password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update





With iMsg
DoEvents
.To = Reciever
.From = Sender
.Subject = Subject
.HTMLBody = Text
.Sender = Sender
.Organization = "S.M.B Productions"
.ReplyTo = Sender
If AttachFile <> "" Then
.AddAttachment (AttachFile)
End If
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
SendMail = True
Else
MsgBox "áØÝÇ Ìíãíá ÇÑÓÇá ˜ääÏå æ ÓæÑÏ ÂäÑÇ æÇÑÏ ˜äíÏ", vbCritical, "ÎØÇ ÏÑ ÇÊÕÇá"
SendMail = False
End If

Exit Function






35

'MsgBox "ÎØÇ ÏÑ ÇÊÕÇá.ãã˜ä ÇÓÊ äÇÔí ÇÒ ÚÏã ÇÊÕÇá Èå ÇíäÊÑäÊ ÈÇÔÏ.", vbOKOnly + vbInformation, "ÎØÇ ÏÑ ÇÊÕÇá"




End Function
'end SendMail code


ولی من امروز متوجه شدم که یا سرویس های جیمیل کلا بسته ست یا اینکه مثل یاهو باید برای استفاه از سرویس ها هزینه ای رو پرداخت کنید.


با شما مطرح کردم تا شاید بتونیم یه راه حل پیدا کنیم.
ممنون میشم اگه مشارکت کنیم.
میونید کد هارو هم امتحان کنید تا از صحت حرفام مطمئن بشید.
با تشکر.
Mohammad Mahdi Khalily
MMD

[MohammadGh2011]

سلام دوستان خیلی وقته که برای فرستادن ایمیل با Gmail از این کد استفاده میکنم:

Option Explicit

'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean

On Error GoTo 35







If Sender <> "" Or Password <> "" Then
Dim iMsg, iConf, Flds, schema, SendEmailGmail
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") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Sender
Flds.Item(schema & "sendpassword") = Password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update





With iMsg
DoEvents
.To = Reciever
.From = Sender
.Subject = Subject
.HTMLBody = Text
.Sender = Sender
.Organization = "S.M.B Productions"
.ReplyTo = Sender
If AttachFile <> "" Then
.AddAttachment (AttachFile)
End If
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
SendMail = True
Else
MsgBox "áØÝÇ Ìíãíá ÇÑÓÇá ˜ääÏå æ ÓæÑÏ ÂäÑÇ æÇÑÏ ˜äíÏ", vbCritical, "ÎØÇ ÏÑ ÇÊÕÇá"
SendMail = False
End If

Exit Function






35

'MsgBox "ÎØÇ ÏÑ ÇÊÕÇá.ãã˜ä ÇÓÊ äÇÔí ÇÒ ÚÏã ÇÊÕÇá Èå ÇíäÊÑäÊ ÈÇÔÏ.", vbOKOnly + vbInformation, "ÎØÇ ÏÑ ÇÊÕÇá"




End Function
'end SendMail code


ولی من امروز متوجه شدم که یا سرویس های جیمیل کلا بسته ست یا اینکه مثل یاهو باید برای استفاه از سرویس ها هزینه ای رو پرداخت کنید.


با شما مطرح کردم تا شاید بتونیم یه راه حل پیدا کنیم.
ممنون میشم اگه مشارکت کنیم.
میونید کد هارو هم امتحان کنید تا از صحت حرفام مطمئن بشید.
با تشکر.
Mohammad Mahdi Khalily
MMD
سلام عليکم
متاسفانه سورسي که در سايت گذاشتم براي ياهو،اون هم تريال هستش و بعد از چند مدتي کار نميکنه.
براي جيميل پست زير رو بررسي بفرماييد گرچه شايد امتحان کرده باشيد:
http://barnamenevis.org/showthread.php?298272-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%AC%DB%8C%D9%85%DB%8C%D9%84-%D8%A8%D9%87-%D8%B2%D8%A8%D8%A7%D9%86-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9&p=1308269&viewfull=1#post1308269

موفق باشيد

[m2011kh]

سلام آقا محمد.
خیلی خیلی متأسفم چون این کدی گه گذاشتم کار میکنه ولی و هیچ مشکی نداره.
من تو استفاده اش یه مشکلی داشتم که شاید خنده دار باشه.
این مشکل سه روزه گریبان منو گرفته.
من تو همه جاهایی که عضوم با یه پسورد عشضو میشم همینطور یاهو ام.
ولی جیمیلم چون چندین سال پیش عضو شده بودم پسوردم با سورد یاهو ام فرق داره.
منم دستم به پسورد یاهو ام عادت کرده.
هر جا میخوام پسور وارد کنم همونو وارد میکنم.
تو استفاده از این کدم پسورد یاهومو زدم و این کد زبون بسته هی ارور میداد که سرور Smtp پاسخ درست نمیده.
منم به جای اینکه به مشکلات سطحی فکر کنم،کوهی از مشکلاتو تصور کردم.
بازم معذرت میخوام از تایپیک بی جایی که زدم.
از مدیرای گرامیم میخوام اگه این تاپیکو دیدن حذف کنن.
متشکرم
Mohammad Mahdi Khalily
MMD