المشاركات : 125
المواضيع 50
الإنتساب : Oct 2012
السمعة :
0
الشكر: 47
تم شكره 46 مرات في 30 مشاركات
السلام عليكم
خدمة جوجل لاتسمح بالدخول الى حسابي لارسال رسالة
افيدوني ماذا اعمل ؟
جزاكم الله خيرا
المشاركات : 2
المواضيع 0
الإنتساب : Dec 2012
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
ممكن ارسال الكود المستخدم بدون بيانات الدخول وهحاول اساعدك
المشاركات : 125
المواضيع 50
الإنتساب : Oct 2012
السمعة :
0
الشكر: 47
تم شكره 46 مرات في 30 مشاركات
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")
المشاركات : 2
المواضيع 0
الإنتساب : Dec 2012
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
السيرفر الخاص بالارسال عند حضرتك هو سيرفر 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
المشاركات : 125
المواضيع 50
الإنتساب : Oct 2012
السمعة :
0
الشكر: 47
تم شكره 46 مرات في 30 مشاركات
جزاكم الله خيرا
جربت الجيميل و لكن رفض جوجل تسجيل دخول لارسال الايميل كيف احل هذا الامر ؟
المشاركات : 125
المواضيع 50
الإنتساب : Oct 2012
السمعة :
0
الشكر: 47
تم شكره 46 مرات في 30 مشاركات
جزاكم الله خيرا جميعا
البرنامج لايستطيع ارسال الايميل
يعطي خطأ هنا SmtpServer.Send(mail)
المشاركات : 669
المواضيع 88
الإنتساب : Aug 2016
السمعة :
97
الشكر: 798
تم شكره 1154 مرات في 488 مشاركات
اخي العزيز عليط تشغيل خاصيه في الجيميل :
Access for less secure apps has been turned on
المشاركات : 125
المواضيع 50
الإنتساب : Oct 2012
السمعة :
0
الشكر: 47
تم شكره 46 مرات في 30 مشاركات
جزاكم الله خيرا ...حلت المشكلة