سورس ارسال ایمیل

[tnmsoft]

سلام به همه دوستان راستش من یه سورس ارسال ایمیل از همین سایت گرفتم روی ویندوز قبلیم درست کار میکرد ولی حالا کار نمی کنه به نظر شما ها مشکل چیه ؟
البته اینم بگم ویندوز قبلی که این سورس روش کار میکرد . همین ویندوزیه الان نصبه

[mmssoft]

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

[tnmsoft]

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

[tnmsoft]

دوست عزیز امتحان کردم نشد ویندوز کامپیوترم هم کریستال sp2

[warden]

تو اولین تکست باکس آدرس میلتون رو بدید(با @) و تو دومین آن پسورد اکانت شما.

ضمنا نوع ویندوز خود را ذکر نمایید.

براي ايميلي که ميخواي لاگين کني نبايد از gmail.com@ استفاده بشه.

[tnmsoft]

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

[tnmsoft]

دوست عزیز این هم برای من کار نمی کنه به نظر شما مشکل چبه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[mirhosseini]

از این تابع استفاده کن :




Public Function SendMail(Sender As String, Password As String, Subject As String, Text As String, AttachFile As String, Reciever As String) As Boolean
On Error Goto GoError
Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
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 = "SMM Co."
.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
Exit Function
GoError:
SendMail = False
End Function

---------------------------------------------------------------------------------------
(http://www.shosbi.com/)

[warden]

با اين سورسي که گذاشتين، ايميل ارسال کردم مشکلي نداشت.
احتمالا از تنظيمات جيميل‌تون هست،‌ اين تنظيمات رو اعمال کنين:
1. برين Setting ايميلتون
2. حالا Forwarding and POP/IMAP
اينجا قسمت IMAP Access رو فعال کنيد.(Enable IMAP)

[mmssoft]

با اين سورسي که گذاشتين، ايميل ارسال کردم مشکلي نداشت.
احتمالا از تنظيمات جيميل‌تون هست،‌ اين تنظيمات رو اعمال کنين:
1. برين Setting ايميلتون
2. حالا Forwarding and POP/IMAP
اينجا قسمت IMAP Access رو فعال کنيد.(Enable IMAP)

فکر نکنم این گزینه تاثیر زیادی داشته باشه؛ چون وقتی که من برنامه رو تست کردم این گزینه تو ایمیل من غیرفعال بود، ولی ایمیل فرستاده شد.
ولی به هر حال با توجه به توضیحی که خود جیمیل درباره این گزینه داده (access Gmail from other clients using IMAP) امتحانش ضرری نداره....

[warden]

بله منم قبلا ارسال ميکردم بدون اين تنظيمات ولي بعد مدتي ارسال متعدد ديگه نتونستم بفرستم تا اينکه اين تغييرات رو اعمال کردم.

[tnmsoft]

دوستان همه این تنظیمتی که گفتید من انجام دادم همین سورس روی همین ویندوز جواب میداد
من فقط ویندوز رو عوض کردم دوباره همین ویندوز رو نصب کردم حالا کار نمی کنه ؟؟؟؟؟؟؟؟؟
:گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه:

[warden]

يکجا خوندم اون تنظيمات بعد چند روز دوباره برميگرده حالت قبلي و بايد دوباره Enable کني ، تنظيمات رو دوباره چک کن :-??