لقد صممت برنامج ارسال ايميل بس ما عارف كيف اخليه يرسل الى اكثر من شخص ما يرضى غير انه يرسل في كل مرة لشخص

اخي العزيز ..

بما انه حضرتك لم تقم بارفاق البرنامج .. لكي اي واحد منا يستطيع التعديل عليه والتجربه ...

سأعطيك الطريقة وانت طبقها وجربها .. والخطأ فيها صححه ..

يمكنك ان تجعل الارسال يتم ولكن لن يتم بالطريقة المعروفة .. اي انه سيكون فاصل زمني بسيط ..

الطريقة هي بوضع تايمر في كل جزء من الثانية يقوم بسحب اسم ويعيد عليه الكود السابق ..

عملية السحب ستكون بالشكل التالي :

مستطيل المرسل له يكتب بالشكل التالي :

Rec1@server.com , Rec2@server.com , Rec3@server.com .........

لاحظ يفصل بين كل اسم ( , ) ... هذه هي التي ستعتمد عليها ..

وهي انه تقوم بفصل محتويات حقل المرسل لهالى المحتويات .. وبعدها في كل مره يفصل يرسل للاسم المسحوب ..

هه كلها تكون داخل تايمر حتى يعيد عملية الارسال ..

طريقة سهلة التطبيق لكن صعبة الفهم ..

تحياتي العطرة ..

راجع الرابط التالي :

http://www.systemnetmail.com/faq/3.2.3.aspx

ما نفع يا صديقي

ثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثث

uuuuuuup

جرب هذا الكود

ضع هذا في التصريحات

Imports System.Net.Mail

وههذا مكتن البوتن

              Dim Mail As New MailMessage
            Mail.Subject = TextBox1.Text
            Mail.To.Add("hacking-pc@live.com" & "the50cenmty@hotmail.com" & "the50centmy@yahoo.com")
            Mail.From = New MailAddress("msh.hacking@gmail.com")
            Mail.Body = "الموضوع"
            Dim smtp As New SmtpClient("smtp.gmail.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential("msh.hacking@gmail.com", "98989")
            smtp.Port = "587"
            smtp.Send(Mail)
        Catch ex As Exception
            MsgBox("لا يمكن ارسال الرسالة")
        End Try

ملاحظة

ولو ما قدرت تسويها ارفعلي البرنامج واعدلك عليه

في الاعلى عند

 
 Mail.To.Add("hacking-pc@live.com" & "the50cenmty@hotmail.com" & "the50centmy@yahoo.com")

تكتب جميع الاميلات التي تريد الارسال لها

الموضوع هنا

Mail.Body = "الموضوع"

اميل المرسل

  
Mail.From = New MailAddress("msh.hacking@gmail.com")

واكتب اميلك الجيميل والباسورد هنا

smtp.Credentials = New System.Net.NetworkCredential("msh.hacking@gmail.com", "98989l