تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود ارسال امايل مع ملف
#1
Wink 
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
الرد }}}}
تم الشكر بواسطة: SAJA KAREEM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم