09-10-16, 11:48 AM
09-10-16, 12:37 PM
ممكن ارسال الكود المستخدم بدون بيانات الدخول وهحاول اساعدك
09-10-16, 12:43 PM
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient("smtp.hotmail.com")
mail.From = New MailAddress("samira.aa70@hotmail.com")
mail.[To].Add("nouring@gmail.com")
mail.Subject = "Test Mail - 1"
mail.Body = "mail with attachment"
Dim attachment As System.Net.Mail.Attachment
attachment = New System.Net.Mail.Attachment("C:\Books.mdb")
mail.Attachments.Add(attachment)
SmtpServer.Port = 587
SmtpServer.Credentials = New System.Net.NetworkCredential("", "")
SmtpServer.EnableSsl = True
SmtpServer.Send(mail)
MessageBox.Show("mail Send")
Dim SmtpServer As New SmtpClient("smtp.hotmail.com")
mail.From = New MailAddress("samira.aa70@hotmail.com")
mail.[To].Add("nouring@gmail.com")
mail.Subject = "Test Mail - 1"
mail.Body = "mail with attachment"
Dim attachment As System.Net.Mail.Attachment
attachment = New System.Net.Mail.Attachment("C:\Books.mdb")
mail.Attachments.Add(attachment)
SmtpServer.Port = 587
SmtpServer.Credentials = New System.Net.NetworkCredential("", "")
SmtpServer.EnableSsl = True
SmtpServer.Send(mail)
MessageBox.Show("mail Send")
09-10-16, 04:29 PM
السيرفر الخاص بالارسال عند حضرتك هو سيرفر Hotmail و ليس سيرفر Gmail
عموما الكود الخاص بالارسال هو :
Imports System.Net.Mail
Public Class mailform
Dim mail As New MailMessage()
Private Sub mailform_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
TextBox2.Text = "xyz@gmail.com"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential
("xyz@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail = New MailMessage()
Dim addr() As String = TextBox1.Text.Split(",")
Try
mail.From = New MailAddress("xyz@gmail.com",
"Web Developers", System.Text.Encoding.UTF8)
Dim i As Byte
For i = 0 To addr.Length - 1
mail.To.Add(addr(i))
Next
mail.Subject = TextBox3.Text
mail.Body = TextBox4.Text
If ListBox1.Items.Count <> 0 Then
For i = 0 To ListBox1.Items.Count - 1
mail.Attachments.Add(New Attachment
(ListBox1.Items.Item(i)))
Next
End If
mail.DeliveryNotificationOptions =
DeliveryNotificationOptions.OnFailure
mail.ReplyTo = New MailAddress(TextBox1.Text)
SmtpServer.Send(mail)
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
ListBox1.Items.Add(OpenFileDialog1.FileName)
End If
End Sub
End Class
عموما الكود الخاص بالارسال هو :
Imports System.Net.Mail
Public Class mailform
Dim mail As New MailMessage()
Private Sub mailform_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
TextBox2.Text = "xyz@gmail.com"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential
("xyz@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail = New MailMessage()
Dim addr() As String = TextBox1.Text.Split(",")
Try
mail.From = New MailAddress("xyz@gmail.com",
"Web Developers", System.Text.Encoding.UTF8)
Dim i As Byte
For i = 0 To addr.Length - 1
mail.To.Add(addr(i))
Next
mail.Subject = TextBox3.Text
mail.Body = TextBox4.Text
If ListBox1.Items.Count <> 0 Then
For i = 0 To ListBox1.Items.Count - 1
mail.Attachments.Add(New Attachment
(ListBox1.Items.Item(i)))
Next
End If
mail.DeliveryNotificationOptions =
DeliveryNotificationOptions.OnFailure
mail.ReplyTo = New MailAddress(TextBox1.Text)
SmtpServer.Send(mail)
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
ListBox1.Items.Add(OpenFileDialog1.FileName)
End If
End Sub
End Class
09-10-16, 04:44 PM
جزاكم الله خيرا
جربت الجيميل و لكن رفض جوجل تسجيل دخول لارسال الايميل كيف احل هذا الامر ؟
جربت الجيميل و لكن رفض جوجل تسجيل دخول لارسال الايميل كيف احل هذا الامر ؟
11-10-16, 04:43 AM
11-10-16, 05:18 AM
من فترة أوقفت Google الارسال من مواقع خارجي
فالأفضل ان تعتمد على البريد المقدم من خدمة الاستضافة
واذا كنت مصر على ال google gmail
سجل دخول في ال G mail
وادخل الرابط التالي
https://www.google.com/settings/security/lesssecureapps
واختر تشغيل
والان استخدم هذا الكود
مع تغيير ما يلزم
بالتوفيق
فالأفضل ان تعتمد على البريد المقدم من خدمة الاستضافة
واذا كنت مصر على ال google gmail
سجل دخول في ال G mail
وادخل الرابط التالي
https://www.google.com/settings/security/lesssecureapps
واختر تشغيل
والان استخدم هذا الكود
PHP كود :
Dim mail As MailMessage = New MailMessage()
mail.To.Add("xxx@gmail.com")
mail.From = New MailAddress("Your-Gmail@gmail.com")
mail.Subject = "Email using Gmail"
Dim Body As String = "<b>Hi</b>, this mail is to test sending mail using Gmail in ASP.NET"
mail.Body = Body
mail.IsBodyHtml = True
Dim smtp As SmtpClient = New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Credentials = New System.Net.NetworkCredential("Your-Gmail@gmail.com", "Your-Gmail-Password")
smtp.EnableSsl = True
smtp.Send(mail)
MsgBox("Done!")
بالتوفيق
11-10-16, 06:54 AM
جزاكم الله خيرا جميعا
البرنامج لايستطيع ارسال الايميل
يعطي خطأ هنا SmtpServer.Send(mail)
البرنامج لايستطيع ارسال الايميل
يعطي خطأ هنا SmtpServer.Send(mail)
17-10-16, 04:53 AM
اخي العزيز عليط تشغيل خاصيه في الجيميل :
Access for less secure apps has been turned on
Access for less secure apps has been turned on
17-10-16, 10:32 AM
جزاكم الله خيرا ...حلت المشكلة