+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] كود ارسال امايل مع ملف (/showthread.php?tid=14154)
كود ارسال امايل مع ملف - ghennai39 - 17-12-15
Imports System.Net.Mail
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim email As New MailMessage()
Dim attachment As System.Net.Mail.Attachment
Try
email.From = New MailAddress("امايل المرسال هنا ")
email.To.Add("امايل المستقبل هنا")
email.Body = نص الرسالة
Dim smtp As New SmtpClient("سرفر الامايل")
smtp.Port = 25
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("your address mail here", "كلمة السر للامايل")
attachment = New System.Net.Mail.Attachment("امتداد الملف المراد ارساله") 'file path
email.Attachments.Add(attachment)
smtp.Send(email)
Catch ex As Exception
End Try
End Sub