برای ارسال ایمیل از طربق VB6 بایستی از آبجکت اکتیو ایکس SMTP EASendMail استفاده نماید.
ابتدا باید به قسمت Reference بروید و اکتیو ایکس EASendMail را به پروژه خود اضافه کنید.
برای اینکار باید به منوی Project سپس به قسمت Import Type Library بروید و گزینه EASendMailObj ActiveX Object 1.0 Type Library را انتخاب نمایید و سپس OK را کلیک نمایید.
نکته : اگر این ActiveX در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
کد:
این هم کد کامل این برنامه :
کد:
تذکر : این کد فقط قادر است به پست های الکترونیکی درست شده با یاهو ارتباط برقرار نماید.
نکته : برنامه کاملی که تهیه شده کاملا تست شده است و هیچگونه عیبی ندارد. تنها کاری که شما بایستی انجام دهید به قسمت بروید و آبجکت را از لیست فعال بردارید و دوباره به این آبجکت را به پروژه خود اضافه نمایید.
ابتدا باید به قسمت Reference بروید و اکتیو ایکس EASendMail را به پروژه خود اضافه کنید.
برای اینکار باید به منوی Project سپس به قسمت Import Type Library بروید و گزینه EASendMailObj ActiveX Object 1.0 Type Library را انتخاب نمایید و سپس OK را کلیک نمایید.
نکته : اگر این ActiveX در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
کد:
- Code:
C:\WINDOWS\system32
این هم کد کامل این برنامه :
کد:
- Code:
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
تذکر : این کد فقط قادر است به پست های الکترونیکی درست شده با یاهو ارتباط برقرار نماید.
نکته : برنامه کاملی که تهیه شده کاملا تست شده است و هیچگونه عیبی ندارد. تنها کاری که شما بایستی انجام دهید به قسمت بروید و آبجکت را از لیست فعال بردارید و دوباره به این آبجکت را به پروژه خود اضافه نمایید.
قول میدم دفعه یعد پیز بهتری در اختیارتون بزارم.