[asemshahen5]

هذا كود ارسال رسالة الى ايميل :

PHP كود :

   Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        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", "passsword")
            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("Asem6600@Hotmail.com")
            e_mail.Subject = "ERROR"
            e_mail.IsBodyHtml = False
            e_mail.Body = rtfError.Text 
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
            Close()
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub 


ماذا بقي عندك اعمل قائمة باسماء و عناوين المرسل اليهم في قاعدة بيانات و عرف متغيرين واحد من نوع ستريغ و واحذ انتجر و ضع مؤقت على الفورم بوقت تحدده انت من حاصية انترفل كل 1000 تعبر عن ثانية ضع بالمؤقت المتغير الرقمي يزيد بعدد 1 و حسب الرقم يتم اختيار المقابل له من عنوان المرسل و من ثم يعمل ارسال و هكذا .