سلام دوستان
از تمام زحماتتون متشکرم
میخواستم برنامه ای بنویسم وقتی اجرا میشه ایمیلی ارسال کنه اما برای ارسال ایمیل هیچ نیازی به برنامه ی جانبی نداشه باشه یعنی وقتی به exe تبدیل میشه بتونه تو هر سیستمی ایمیلو ارسال کنه
کمکم کنین
سلام دوستان
از تمام زحماتتون متشکرم
میخواستم برنامه ای بنویسم وقتی اجرا میشه ایمیلی ارسال کنه اما برای ارسال ایمیل هیچ نیازی به برنامه ی جانبی نداشه باشه یعنی وقتی به exe تبدیل میشه بتونه تو هر سیستمی ایمیلو ارسال کنه
کمکم کنین
سلام
برنامه هایی که با ویژوال بیسیک 6 نوشته میشه نیاز به VB6 runtime دارن که معمولا تو همه نسخه های ویندوز وجود داره.
میتونی از ابزار Package And deployment wizard ویژوال بیسیک هم استفاده کنی و همه نیازمندی های پروژه رو پیدا میکنه و کنارش قرار میده که فکر کنم اموزشش هم باید باشه( البته اگر میخوای بصورت مخفی وارد سیستم طرف بشه کاربردی نداره!)
این هم کدها:
[url]http://www.softafzar.net/f18/%D8%B3%D9%88%D8%B1%D8%B3-%DA%A9%D8%AF%D9%87%D8%A7%DB%8C-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9-6-a-143/index6.html[/url]
کدهای ماژول:
Attribute VB_Name = "Module1"
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, mailserver As String, portnum As String) As Boolean
If Sender <> "" Or Password <> "" Then
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") = mailserver
Flds.Item(schema & "smtpserverport") = portnum
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
SendMail = True
Else
MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
SendMail = False
End If
End Function
Private Sub Command1_Click()
On Error GoTo deb:
Dim send As Boolean
Command1.Enabled = False: Command1.Caption = "Sending..."
send = SendMail(Text1.Text, Text3.Text, Text4.Text, Text6.Text, Text2.Text, Text5.Text, Text7.Text, Text8.Text)
Command1.Enabled = True
Command1.Caption = "Send Mail"
Exit Sub
deb:
Command1.Enabled = True
Command1.Caption = "Send Mail"
alert = MsgBox("Error " & Err.Number & " " & Err.Description, vbCritical + vbInformation, "Error occurred!")
End Sub
Private Sub Command2_Click()
dlg.DialogTitle = "Select a File"
dlg.Filter = "All Files|*.???"
dlg.ShowSave
Text5.Text = dlg.FileName
End Sub
Private Sub Form_Load()
Call Text5_Change
End Sub
Private Sub Text5_Change()
If Dir(Text5.Text) <> "" Then
Label6.BackColor = vbGreen
Label6.Caption = "Exist"
Label6.ToolTipText = "File Exist"
Else
Label6.BackColor = vbRed
Label6.Caption = "Not Exist"
Label6.ToolTipText = "File Not Exist!"
End If
End Sub
خیلی خیلی ازت ممنونم خوشالم کردی
فقط ی سوال دارم portnum و mailserver چی میشه
ممنون
server: smtp.gmail.com
port: 465
درست کردم برات
حواست باشه ادرس ارسال کننده ایمیل حتما باید حساب گوگل (جیمیل) باشه (چون ادرس و پورت میل سرور برای جیمیله)
اگر میخوای ارسال کننده ایمیل یاهو باشه باید SMTP Server رو روی smtp.mail.yahoo.com و پورت رو روی 465 تنظیم کنی.
شب بخیر :winksmiley02:
سلام ميشه از اين پرتوکل براي ياهو هم استفاده کرد؟؟؟
smtp.mail.yahoo.com
ممنون ميشم راهنمايي کنيد
سلام جواب شما داده شده
<br>
<br>اگر میخوای ارسال کننده ایمیل یاهو باشه باید SMTP Server رو روی smtp.mail.yahoo.com و پورت رو روی 465 تنظیم کنی.
ندونستن عیب نیست، نپرسیدن چرا!