سوال: ||| سورس ساده ارسال emali |||

سلام دوستان گرامی
حدود 50 تا سورس ارسال email تست کردم یکیش کار نکرد
کسی یه سورس نداره بی دردسر کار کنه
با تشکر

سلام
گرچه دوماهی از سوالتان گذشته ولی چون کسی پاسخ نداده وتاپیک هم خیلی پایین نرفته پاسخی میدهم...
اگر از VS2015 و VB2015 و... استفاده میکنید. (پس از VB6)
همچین امکانی تحت کلاس SmtpClient در ذات کتابخانه های خود VB قرار دارد.
نمونه کد:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********
در صورتی که از vb.net استفاده می کنید بهترین راه همون روشی هستش که جناب [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] فرمودند./// ولی اگر پروژتون تحت vb6 هست و نمی تونید به NET. ارتقاء بدید..// (پیشنهاد می کنم در صورتی که براتون امکان داره حتماً این کار رو انجام بدید!// vb6 خیلی وقته که از تاریخ انقضائش میگذره!)../// می تونید از کد زیر استفاده کنید.// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**********************

کد:

---

Sub SendMessage(MailFrom, MailTo, Subject, Message)   

    Dim ObjSendMail
    Set ObjSendMail = CreateObject("CDO.Message")


    'This section provides the configuration information for the remote SMTP server.


    With ObjSendMail.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  'Send the message using the network (SMTP over the network).
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "aspmx.l.google.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False  'Use SSL for the connection (True or False)
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


    ' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.
    '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  'basic (clear-text) authentication
    '.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = MailFrom
    '.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"


    .Update
    End With


    'End remote SMTP server configuration section==


    ObjSendMail.To = MailTo
    ObjSendMail.Subject = Subject
    ObjSendMail.From = MailFrom


    ' we are sending a html email.. simply switch the comments around to send a text email instead
    ObjSendMail.HTMLBody = Message
    'ObjSendMail.TextBody = Message


    ObjSendMail.Send


    Set ObjSendMail = Nothing

End Sub


Private Sub Form_Load()


    SendMessage "user@example.com", "@gmail.com", "Test", "<h1><center>Hello!</center></h1>"


End Sub

---

*****************
کد بالا رو از آدرس پایین برداشتم و روی gmail تست کردم و کار می کنه// (ایمیل به پوشه Spam فرستاده میشه!)../// برای ارسال ایمیل به سرویس دهنده های دیگه باید آدرس smtpserver رو تغییر بدید../// aspmx.l.google.com آدرس سرور بدون رمزنگاری gmail هستش و نیازی به احراز هویت نداره../// برای استفاده از کد بالا نیاز به کتابخانه های CDOSYS خواهید داشت../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**********************

کد:

---

http://stackoverflow.com/questions/5517217/sending-an-email-through-vb6

---

******************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]