ارسال ایمیل بدون نیاز به برنامه ی جانبی
#1
Note 
سلام دوستان
از تمام زحماتتون متشکرم

میخواستم برنامه ای بنویسم وقتی اجرا میشه ایمیلی ارسال کنه اما برای ارسال ایمیل هیچ نیازی به برنامه ی جانبی نداشه باشه یعنی وقتی به exe تبدیل میشه بتونه تو هر سیستمی ایمیلو ارسال کنه

کمکم کنین

پاسخ
#2
Note 
سلام
برنامه هایی که با ویژوال بیسیک 6 نوشته میشه نیاز به VB6 runtime دارن که معمولا تو همه نسخه های ویندوز وجود داره.
میتونی از ابزار Package And deployment wizard ویژوال بیسیک هم استفاده کنی و همه نیازمندی های پروژه رو پیدا میکنه و کنارش قرار میده که فکر کنم اموزشش هم باید باشه( البته اگر میخوای بصورت مخفی وارد سیستم طرف بشه کاربردی نداره!)

این هم کدها:


کدهای ماژول:
[VB]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

[/VB]


[VB]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
[/VB]

مردم دنیا 10 دسته هستند: کسانی که باینری میفهمند و کسانی که باینری نمیفهمند !
پاسخ
#3
Note 
خیلی خیلی ازت ممنونم خوشالم کردی

فقط ی سوال دارم portnum و mailserver چی میشه

ممنون

پاسخ
#4
Note 
server: smtp.gmail.com
port: 465

مردم دنیا 10 دسته هستند: کسانی که باینری میفهمند و کسانی که باینری نمیفهمند !
پاسخ
#5
Note 
ببخشید من برنامه رو نوشم باز کار نکرد اگه میشه شمام ی نگاهی کنی
بینهایت سپاس گذارم

New folder

پاسخ
#6
Note 
درست کردم برات
حواست باشه ادرس ارسال کننده ایمیل حتما باید حساب گوگل (جیمیل) باشه (چون ادرس و پورت میل سرور برای جیمیله)
اگر میخوای ارسال کننده ایمیل یاهو باشه باید SMTP Server رو روی smtp.mail.yahoo.com و پورت رو روی 465 تنظیم کنی.
شب بخیر :winksmiley02:

مردم دنیا 10 دسته هستند: کسانی که باینری میفهمند و کسانی که باینری نمیفهمند !
پاسخ
#7
Note 
ی دنیا ازت متشکرم

آخرین ویرایش: 21-04-2013 ساعت 00:45، توسط ata
پاسخ
#8
Note 
سلام ميشه از اين پرتوکل براي ياهو هم استفاده کرد؟؟؟


smtp.mail.yahoo.com

ممنون ميشم راهنمايي کنيد

پاسخ
#9
Note 
gorg313 نوشته است:سلام ميشه از اين پرتوکل براي ياهو هم استفاده کرد؟؟؟


smtp.mail.yahoo.com

ممنون ميشم راهنمايي کنيد

سلام جواب شما داده شده
نقل قول: اگر میخوای ارسال کننده ایمیل یاهو باشه باید SMTP Server رو روی smtp.mail.yahoo.com و پورت رو روی 465 تنظیم کنی.

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

کاربرانِ درحال بازدید از این موضوع:   1 مهمان