ارسال ایمیل از طریق ویژوال بیسیک
سلام به همه ی دوستان عزیز.
دوستان عزیز بنده می خواهم کاری کنم که بشه از طریق ویژوال بیسیک برنامه ی ساخت که ایمیل ارسال کنه.
فقط بنده می خواهم یک نوشته پیش فرض را به ایمیلی که داده میشه ارسال کنه!
به عنوان مثال متن پیش فرض :
سلام
---
حالا وقتی طرف ایمیلش را به نرم افزار داد . این نوشته به ایمیل طرف فرستاده بشه ...
لطفا کمککک کنید !!!!!!:40::40::40:
ارسال ایمیل از طریق ویژوال بیسیک
برای ارسال ایمیل از طربق VB6 بایستی از آبجکت اکتیو ایکس SMTP EASendMail استفاده نماید.
ابتدا باید به قسمت Reference بروید و اکتیو ایکس EASendMail را به پروژه خود اضافه کنید.
برای اینکار باید به منوی Project سپس به قسمت Import Type Library بروید و گزینه EASendMailObj ActiveX Object 1.0 Type Library را انتخاب نمایید و سپس OK را کلیک نمایید.
نکته : اگر این ActiveX در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
این هم کد کامل این برنامه :
کد:
Private Sub Command1_Click()
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Set your sender email address
oSmtp.FromAddr = "test@emailarchitect.net"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Set email subject
oSmtp.Subject = "simple email from VB 6.0 project"
' Set email body
oSmtp.BodyText = "this is a test email sent from VB 6.0 project, do not reply"
' Your SMTP server address
oSmtp.ServerAddr = "smtp.emailarchitect.net"
' User and password for ESMTP authentication, if your server doesn't require
' User authentication, please remove the following codes.
oSmtp.UserName = "test@emailarchitect.net"
oSmtp.Password = "testpassword"
' If your smtp server requires SSL connection, please add this line
' oSmtp.SSL_init
MsgBox "start to send email ..."
If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
End Sub
تذکر : این کد فقط قادر است به پست های الکترونیکی درست شده با یاهو ارتباط برقرار نماید.
نکته : برنامه کاملی که تهیه شده کاملا تست شده است و هیچگونه عیبی ندارد. تنها کاری که شما بایستی انجام دهید به قسمت بروید و آبجکت را از لیست فعال بردارید و دوباره به این آبجکت را به پروژه خود اضافه نمایید.
Send Email using Yahoo in VB 6.0
دانلود غیر مستقیم برنامه :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دانلود Dll و عکس :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ارسال جیمیل از طریق ویژوال بیسیک
برای ارسال ایمیل از طربق VB6 بایستی از آبجکت اکتیو ایکس SMTP EASendMail استفاده نماید.
ابتدا باید به قسمت Reference بروید و اکتیو ایکس EASendMail را به پروژه خود اضافه کنید.
برای اینکار باید به منوی Project سپس به قسمت Import Type Library بروید و گزینه EASendMailObj ActiveX Object 1.0 Type Library را انتخاب نمایید و سپس OK را کلیک نمایید.
نکته : اگر این ActiveX در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
این هم کد کامل این برنامه :
کد:
Private Sub Command1_Click()
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Set your Gmail email address
oSmtp.FromAddr = "gmailid@gmail.com"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Set email subject
oSmtp.Subject = "test email from gmail account"
' Set email body
oSmtp.BodyText = "this is a test email sent from VB 6.0 project with gmail"
' Gmail SMTP server address
oSmtp.ServerAddr = "smtp.gmail.com"
' If you want to use direct SSL 465 port,
' Please add this line, otherwise TLS will be used.
' oSmtp.ServerPort = 465
' detect SSL/TLS automatically
oSmtp.SSL_init
' Gmail user authentication should use your
' Gmail email address as the user name.
' For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
oSmtp.UserName = "gmailid@gmail.com"
oSmtp.Password = "yourpassword"
MsgBox "start to send email ..."
If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
End Sub
تذکر : این کد فقط قادر است به پست های الکترونیکی درست شده با جیمیل ارتباط برقرار نماید.
نکته : این کد کاملا تست شده است و هیچگونه عیبی ندارد.
Send Email using Gmail in VB 6.0