24-05-18, 09:00 AM
(آخر تعديل لهذه المشاركة : 29-05-18, 10:36 AM {2} بواسطة tarfayaski.)
بعد تسجيل تقرير على شكل PDF يمكن ارساله ك MAIL بوضع بريدك او بريد من يشغل برنامجك
او استخدام المرفق اسفله الذي يتيح لك ارسال نسخة من كل تقرير مسجل الى بريدك دون علم مسخدم برنامجك بمقر عملك وتتبع اعمالك اينما كنت بواسطة هاتفك
كما يمكن اضافة اخبارك بكل نقص في مخزون ما * تضاق برمجة عنصر المخزون بالجدول*
في المرفق يجب تغيير العنوان البريدي بالبريدالخاص بالمعني كمرسل وكمرسل اليه ووضع كلمة السر الخاص به
الكود هو التالي :
او استخدام المرفق اسفله الذي يتيح لك ارسال نسخة من كل تقرير مسجل الى بريدك دون علم مسخدم برنامجك بمقر عملك وتتبع اعمالك اينما كنت بواسطة هاتفك
كما يمكن اضافة اخبارك بكل نقص في مخزون ما * تضاق برمجة عنصر المخزون بالجدول*
في المرفق يجب تغيير العنوان البريدي بالبريدالخاص بالمعني كمرسل وكمرسل اليه ووضع كلمة السر الخاص به
الكود هو التالي :
PHP كود :
Imports System.Net.Mail
Public Class Form6
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.Title = "Choississez un fichier"
'OpenFileDialog1.InitialDirectory = "C:\Users\XYZ\Desktop"
OpenFileDialog1.ShowDialog()
TextBox6.Text = OpenFileDialog1.FileName
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyMailMessage As New MailMessage()
Dim SMTP As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress(TextBox1.Text) 'Expediteur
MyMailMessage.To.Add(TextBox4.Text) 'Destinataire
MyMailMessage.Subject = (TextBox3.Text) 'Sujet
MyMailMessage.Body = (TextBox5.Text)
SMTP.Port = ("587") 'Port
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text) 'Email + Pass
SMTP.EnableSsl = True
If TextBox6.Text <> "" Then
Dim data = New Net.Mail.Attachment(TextBox6.Text)
MyMailMessage.Attachments.Add(data)
End If
SMTP.Send(MyMailMessage)
MsgBox("Votre message a été eNoyé ", MsgBoxStyle.Information)
End Sub
END Class