Printable View
سلام به همه ی دوستان عزیز.
دوستان عزیز بنده می خواهم کاری کنم که بشه از طریق ویژوال بیسیک برنامه ی ساخت که ایمیل ارسال کنه.
فقط بنده می خواهم یک نوشته پیش فرض را به ایمیلی که داده میشه ارسال کنه!
به عنوان مثال متن پیش فرض :
سلام
---
حالا وقتی طرف ایمیلش را به نرم افزار داد . این نوشته به ایمیل طرف فرستاده بشه ...
لطفا کمککک کنید !!!!!!:40::40::40:
دوستان لطفا کمکک کنید بنده خیلی اینو لازم دارم !!!
خودم تونستم برای سایت رو بنویسم ولی می خواهم به صورت برنامه بشه !
یعنی هیچکس بلد نیست؟؟؟
به روش هاي مختلفي ميشه اين كار رو انجام داد...!؟!
يه نگاه به لينك هاي زير بندازيد...!؟! :
موفق باشيد...!؟!کد:http://www.example-code.com/vb/email.asp
http://www.devarticles.com/c/a/Visual-Basic/Sending-Email-With-MAPI-Components-in-Visual-Basic/
http://www.astahost.com/info.php/how-send-email-using-vb-using-smtp_t5431.html
برای ارسال ایمیل از طربق VB6 بایستی از آبجکت اکتیو ایکس SMTP EASendMail استفاده نماید.
ابتدا باید به قسمت Reference بروید و اکتیو ایکس EASendMail را به پروژه خود اضافه کنید.
برای اینکار باید به منوی Project سپس به قسمت Import Type Library بروید و گزینه EASendMailObj ActiveX Object 1.0 Type Library را انتخاب نمایید و سپس OK را کلیک نمایید.
نکته : اگر این ActiveX در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
کد:C:\WINDOWS\system32
این هم کد کامل این برنامه :
کد:
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 در سیستم شما موجود نمی باشد. از قسمت پایین دانلود کنید و بعد به مسیر زیر انتقال دهید و مراحل بالا را تکرار کنید.
کد:C:\WINDOWS\system32
این هم کد کامل این برنامه :
کد:
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
سلام.
از این تابع هم میتونی استفاده کنی.
SMTP که در این تابع استفاده کردم برای Gmail هست. پس از جیمیل برای ارسال میل استفاده کنید.
کد:Option Explicit
'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean
If Sender <> "" Or Password <> "" Then
frmMain.MousePointer = 11
Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy with Google SMTP server (with autentication)
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 = "S.M.B Productions"
.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
frmMain.MousePointer = 0
SendMail = True
Else
MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
SendMail = False
End If
End Function
'end SendMail code
ببین من 3 تا textbox دارم ولی موقع ازسال هر 3تا رو پشت سر هم میفرسته چکار کنم؟
سلام
ببخشید این تابع رو جوری فراخانی کنم:n13:
میخوام وقتی کلیک میکنم دکمه رو تابع فراخانی بشه:n36: