برای ارسال ایمیل از طربق VB6 بایستی از آبجکت اکتیو ایکس SMTP EASendMail استفاده نماید.
ابتدا باید به قسمت Reference بروید و اکتیو ایکس EASendMail را به پروژه خود اضافه کنید.
برای اینکار باید به منوی Project سپس به قسمت Import Type Library بروید و گزینه EASendMailObj ActiveX Object 1.0 Type Library را انتخاب نمایید و سپس OK را کلیک نمایید.
نکته : اگر این ActiveX در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این هم کد کامل این برنامه :
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
تذکر : این کد فقط قادر است به پست های الکترونیکی درست شده با جیمیل ارتباط برقرار نماید.
نکته : این کد کاملا تست شده است و هیچگونه عیبی ندارد.
Send Email using Gmail in VB 6.0