ارسال ایمیل بدون نیاز به برنامه ی جانبی

Visual Basic 6

توسط ata در 5 سال پیش
0 1.2k 8 4 سال پیش
atastackoverflowgorg313daniel
0

سلام دوستان از تمام زحماتتون متشکرم

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

کمکم کنین

0

سلام برنامه هایی که با ویژوال بیسیک 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
0

خیلی خیلی ازت ممنونم خوشالم کردی

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

ممنون

0

ببخشید من برنامه رو نوشم باز کار نکرد اگه میشه شمام ی نگاهی کنی بینهایت سپاس گذارم

New folder

0

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

0

ی دنیا ازت متشکرم

آخرین ویرایش: 21-04-2013 ساعت 00:45، توسط ata
0

سلام ميشه از اين پرتوکل براي ياهو هم استفاده کرد؟؟؟

smtp.mail.yahoo.com

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

0

> سلام ميشه از اين پرتوکل براي ياهو هم استفاده کرد؟؟؟ smtp.mail.yahoo.com ممنون ميشم راهنمايي کنيد

سلام جواب شما داده شده

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


خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.

لطفا ابتدا لاگین کنید