[bakriano30@yahoo.com]

(30-07-19, 03:42 AM)asemshahen5 كتب : اقرء هذه الاكواد و تمعن بها فيها ما تريد :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'ListBox1.Items.Add-تعبئة قائمه البريد المرسل له '
        ListBox1.Items.Add("asem6600@hotmail.com")
        ListBox1.Items.Add("asemshahen5@gmail.com")
    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Timer1.Interval = 1000
        'Label6''ليبل جديد يعرض قيمة التراك بار'
        Label6.Text = TrackBar1.Value
        'Timer1.Interval''زيادة عدد الثواني حسب التراك بار'
        Timer1.Interval = Timer1.Interval * TrackBar1.Value
        'Label7''ليبل جديد يعرض كل كم ثانية تريد الارسال الى قائمة المرسل لهم'
        Label7.Text = " [ " & Val(Timer1.Interval / 1000) & " ] ثانية"
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'ListBox1.Items-قائمه البريد المرسل له '
        For Each srt As String In ListBox1.Items
            SendMail(srt)
        Next
    End Sub
    Private Sub SendMail(SendToStr As String)
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            'اسم مستخدم و كلمة المرور للايميل الذي تريد الارسال منه'
            Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "password")
            'البورت المستخدم للارسال'
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            'ملقم البريد الالكتروني'
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            'ايميل المرسل'
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            'عنوان المرسل له'
            e_mail.To.Add(SendToStr)
            'موضوع الرسالة'
            e_mail.Subject = "مرحبا"
            e_mail.IsBodyHtml = False
            'جسم الرسالة'
            e_mail.Body = RichTextBox3.Text
            'امر الارسال'
            Smtp_Server.Send(e_mail)
            'رسالة نجاح الارسال'
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
        Catch error_t As Exception
            'اذا وقع خطا في الارسال'
            MsgBox(error_t.ToString)
        End Try
    End Sub 


شكراااا اخي تمعنت جيدااا وفهمت كل معدا النقطه دي فقط 


 Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "password")
هنا هنستبدل مكان اليوزر والباسورد بالتكست بوكس المناسب الفكره هناااا بقي اخي 
عند كتابه الاميل والباسورد في التكست بوكس والضغط علي زر اضافه كما موضوح بالمثال 
هل يتم احتجاز الحسابات في المكان المخصص لها وهل سيتم التبديل التلقائي في الارسال بين الحسابات المرسل منها