• ارسال ایمیل بدون نیاز به برنامه ی جانبی
    #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 مهمان