الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

send email with attachment file using asp.net

مغلق
بدأه omar_sabha في 29 يوليو 2007 · 1 رد · 3,235 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا اعمل على بيئة asp.net 2003

اريد مثال على ارسال ايميل ومعه مرفقات باستخدام asp.net 2003

ولكم جزيل الشكر

#2

ألسلام عليكم

Try

			Server.ScriptTimeout = 1000
			Response.Flush()
			Dim MailMessage As New MailMessage
			'//////////////////////////////
			MailMessage.To = TextBoxTo.Text '"mmmm@hotmail.com"
			MailMessage.From = "mmmms@gmail.com"
			MailMessage.Subject = TextBoxSubject.Text '"sSubject"
			' MailMessage.Bcc = "453453224@localhost"
			MailMessage.Cc = TextBoxCC.Text
			MailMessage.Bcc = TextboxBCC.Text
			MailMessage.BodyFormat = MailFormat.Text
			MailMessage.Body = TextBoxBody.Text
			Dim i As Integer = 0
			While i < ListBox1.Items.Count
				Dim MyAttachment As New MailAttachment(ListBox1.Items(i).Text)
				MailMessage.Attachments.Add(MyAttachment)
				i = i + 1
			End While

			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  'tells cdo we're using the local smtp service
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'verify that this path is correct
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "’mail@Gmail.com"
			MailMessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "asdasdasd"
			SmtpMail.SmtpServer = "smtp.gmail.com"
			SmtpMail.Send(MailMessage)
			MailMessage = Nothing
			Response.Flush()
			Response.Write("Message Sent Successfully")
			lab_err.Text = "Message Sent Successfully"
		Catch ex As Exception
			Response.Write(ex.Message)
			lab_err.Text = ex.Message
		End Try

وأنا الكود ده المشكله أن أنا حاولت أستخدمه مع أكتر من ميل بيفشل كان لازم Gmail علشان يشتغل

هذا الموضوع مغلق.

مواضيع مشابهة