[RaggiTech]

تابع,,,,,, الحدث Click الخاص بالزر إرسال




الآن سندخل في مرحلة إعداد تصميم شكل الرسالة
تذكر أن الرسالة على شكل Html
يعني بإمكانك تصميم صفحة Html
وإرسالها كرسالة طبعاً بعد إدخال نص الرسالة في كود الـ HTML وإدخال بعض الصور ستكون جاهزة للإرسال







نبدأ في صورة الشعار وفي هذا المثال وضعتة في أعلى الرسالة
المتغير logo وهو من نوع LinkedResources وهو ما يعرف بربط الموارد ,, قمنا بالإعلان عنه مسبقاً ولكن الآن سنعطيه قيمة حقيقية بالجملة New
المتغير CompanyLogoPath يحمل عنوان مسار الصورة
أي أننا نريد ربط هذة الصورة مع الرسالة

كود :

logo = [color=blue]New [/color]LinkedResource(CompanyLogoPath)

الآن ركز معي في عملية ربط هذة الصورة بموقعها داخل كود الـ HTML
كلنا نعرف هذة الطريقة لإضافة صورة في جسم الـ HTML فعنوان الصورة معروف مكانة في الإنترنت

كود :

<img src='http://vb4arab.com/vb/attachments/logo.jpg' >

لكن الصورة التي سنرفقها مع الرسالة أين ستذهب وما هو المسار الذي ستوضع فية
لا نعرف العنوان الخاص بالصورة
لذلك سنستخدم طريقة الربط بالإسم المعرف للصورة وهو ما يعرف بربط الموارد
-------------------------------------------------------------------------
بعد أن قمنا بتحميل الصورة في المتغير logo
الآن نعطيه اسم سنستخدمة داخل الـ Html حتى يتم عرظها في الرسالة
--------------------------------------------------------

كود :

'- الآن نعطي إسم لهذة الصورة وهو MyLogo
logo.ContentId = [color=darkred]"MyLogo"[/color]

الآن نقوم بعمل متغير نصي لنحفظ فية كود الـ HTML الخاص بالصورة

كود :

Dim My_Logo As String

نقوم بإنشاء الكود الخاص بالصورة بنسق HTML

كود :

My_Logo = [color=darkred]"<img src='cid:"[/color] & logo.ContentId & [color=darkred]"' height='150' width='750'>"[/color]

ملاحظة :
كلمة cid: الموجودة في خانة عنوان الصورة هي للتعريف بأن الصورة موجودة ظمن الموارد الخاصة بالرسالة ويتم التعرف على الصورة من خلال الاسم الذي أعطيناه لها من قبل وهو
موجود في logo.ContentId





تذكر أن المتغير MessageContaint قمنا بالإعلان عن مسبقاً وأعطيناه القيمة الموجودة في الملف HTMLBodyText.htm الموجود في الريسورس

سندخل كود الـ HTML الخاص بالصورة بعد أن رتبنا عملية الربط
وسندخل عنوان الرسالة بالخط العريط حسب التنسيق الذي حددتة في ملف الـ HTML
وسندخل نص الرسالة
لاحظ الصور ستكون أكثر توظيحاً

الآن ومن خلال الكود نقوم بعملية إستبدال للنصوص الموجودة في المتغير النصي MessageContaint والذي يحمل قيمة ملف الـ HTML بالكامل

كود :

MessageContaint = MessageContaint.Replace("MY_LOGO", My_Logo)
MessageContaint = MessageContaint.Replace("MY_MAIL_SUBJECT", Me.MailSubject.Text & "<hr/>")
MessageContaint = MessageContaint.Replace("MY_MESSAGE_BODY_TEXT", Me.MessageBody.Text)

--------------------------------------------------------------------------------
النص الموجود في ملف الـ HTML
MY_LOGO
سيصبح
<img src='cid:MyLogo' height='150' width='750'>
--------------------------------------------------------------------------------
النص الموجود في ملف الـ HTML
MY_MAIL_SUBJECT
سيتم إستبدالة بالنص الموجود في
Me.MailSubject.Text
--------------------------------------------------------------------------------
النص الموجود في ملف الـ HTML
MY_MESSAGE_BODY_TEXT
سيتم إستبدالة بالنص الموجود في
Me.MessageBody.Text
--------------------------------------------------------------------------------

لكي تصبح النتيجة كالتالي مثل الصورة التالية فقط للتوضيح
هذة هي النتيجة بعد إستبدال النصوص الموجودة في ملف الـ HTML


تم الإنتهاء من تنسيق ملف الـ HTML



















Alternate View
وهو ما يسمى بطريقة العرض البديله
أي أننا لا نريد أن تكون الرسالة على شكل نص عادي
بل نريدها أن تكون على شكل HTML
نقوم بعمل متغير من نوع AlternateView لأنه لدية الإمكانية على الظهور بنسق HTML
وهو الذي سيحمل النص الموجود في المتغير MessageContaint
أول براميتر هو محتوى الرسالة MessageContaint
ثاني براميتر للتعريف بنوع الترميز الخاص بكود الـ HTML
لاحظ في آخر براميتر قمنا بتعريف أن محتوى الرسالة هو من نوع Html

كود :

Dim alternateView1 As AlternateView = AlternateView.CreateAlternateViewFromString( _
[color=blue]MessageContaint[/color], _
[color=darkorange]System.Text.Encoding.UTF8[/color], _
[color=seagreen]System.Net.Mime.MediaTypeNames.Text.Html[/color])

الآن نقوم بإظافة الصورة للموارد الخاصة بـ alternateView1 حتى نستطيع إظهار الصورة في الرسالة

كود :

alternateView1.LinkedResources.Add(logo)

هنا نقوم بإدخال محتوى الرسالة بالكامل alternateView1 داخل كائن الرسالة Mail

كود :

Mail.AlternateViews.Add(alternateView1)

يجب أن تجعل هذا الخيار True
وهو للدلالة على أن الرسالة بتنسيق من نوع HTML

كود :

Mail.IsBodyHtml = True

خيارات التبليغ بالتسليم
هنا إذا أردت أن يتم تبليغك برسالة بريد إلكترونية في أي حالة من الحالات التالية
والتي ستختارها أو ستحددها هنا
بإمكانك إختيار أحد الخيارات التالية
----------------------------------------------------------
إيقاف خاصية التبليغ
DeliveryNotificationOptions.None
----------------------------------------------------------
في حال تم وصول الرسالة بنجاح إلى الطرف الآخر
DeliveryNotificationOptions.OnSuccess
----------------------------------------------------------
في حال فشلت الرسالة بالوصول
DeliveryNotificationOptions.OnFailure
----------------------------------------------------------
في حال تأخرة الرسالة في الوصول
DeliveryNotificationOptions.Delay
----------------------------------------------------------
لن يتم تبليغك بأي شيء أبداً
DeliveryNotificationOptions.Never
----------------------------------------------------------
في هذا المثال قمت بإختيار
في حال فشلت الرسالة بالوصول
DeliveryNotificationOptions.OnFailure

كود :

Mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure

الآآآآآآآآآآآآآآآآن وصلنا إلى إرسال الرسالة
وتوجد هنا طريقتين
SendAsync و Send
##############################################
الطريقة SendAsync
تسمح هذة الطريقة بإستمرارية عمل البرنامج أثناء عملية الإرسال
أي أن الكود لن يتوقف عند هذة النقطة بل سيكمل حتى الخروج من الحدث Click الخاص بالزر إرسال وفي نفس الوقت عملية الإرسال جاريه ,,
أيضاً تسمح لك بإلغاء العملية في أي وقت عن طريق الأمر SendAsyncCancel
وتقوم بعد إنتهاء عملية الإرسال مباشرتاً بإطلاق الحدث SendCompleted
بإمكانك إستخدام الحدث لإظهار رسالة مثلاً تبين أن العملية قد إنتهت
---------------------------------------------------------------------
البراميتر الثاني أعطيته القيمة Nothing وهو عبارة عن كائن من نوع Object ويتم إستخدامة ليتم تمريرة مع الرسالة لكي يتم كتابة بيانات حالة الإرسال فية من قبل خادم البريد وعند

الإنتهاء من عملية الإرسال يتم إرجاعة لك في الحدث SendCompleted
فقط الطريقة SendAsync هي التي توفر هذة الطريقة
---------------------------------------------------------------------

كود :

SmtpServer.SendAsync(Mail, [color=blue]Nothing[/color])

##############################################
الطريقة Send
فهي لا تسمح بإستمرارية الكود إلى بعد الإنتهاء من عملية الإرسال
ولا تقوم بإطلاق الحدث SendCompleted
ولا تسمح لك بإلغاء العملية
ولا تدعم طريقة تمرير لكائن Object التي ذكرتها في الطريقة السابقة
أي أنه عن الوصول إلى هذا الأمر يتجمد البرنامج عند هذا السطر حتى إنتهاء العملية

كود :

SmtpServer.Send(Mail)

##############################################



وفي هذا المثال إستخدمت الطريقة SendAsync

وبما أننا إستخدمنا الطريقة SendAsync فإن الكود سينتقل مباشرتاً إلى السطر الذي بعدة
مع إبقاء عملية الإرسال في الخلفية ,, لذلك بإمكانك ترتيب شكل الفورم في وضع الإرسال ,, يعني تقوم بتعطيل زر الإرسال ,, تظهر صورة تبين عملية الإرسال ,,
أي شيء تريد عملة ,, لأنه ومن خلال الحدث SendCompleted نستطيع الرجوع عن هذة التغييرات مع إظهار رسالة تبين إنتهاء عملية الإرسال ,,,,,

ليس بالظرورة أن عملية الإرسال تمت بنجاح يعني أن الرسالة قد وصلت
أنت قمت بتوصيل الرسالة إلى الخادم بنجاح ,, ولكن لا نعلم إذا كان الخادم قد نجح هو بدورة في توصيل الرسالة إلى المستلمين ..


إنتهاء الحدث Click الخاص بالزر إرسال
################################################## #####
################################################## #####










حدث Click الخاص بزر بإضافة ملفات مرفقة
################################################## #####
################################################## #####

كود :

Private Sub AddNewAttachment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewAttachment.Click
'- OAFD = Open Attachment File Dialog
Dim OAFD As New OpenFileDialog
OAFD.CheckFileExists = True
OAFD.Title = "إضافة ملفات مرفقة للرسالة"
If OAFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.AttachmentCollection.Add(OAFD.FileName)
DeleteSelectedAttachment.Enabled = True
'- سيتم إضافة إسم الملف هنا فقط ليراه المستخدم في المثال
Attachment_ListBox.Items.Add(My.Computer.FileSystem.GetName(OAFD.FileName))
End If
End Sub

################################################## #####









هذا الزر الخاص بإلغاء عملية الإرسال
################################################## #####
################################################## #####

كود :

Private Sub CancelSendAsync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelSendAsync.Click
Me.SmtpServer.SendAsyncCancel()
Me.PictureBox1.Visible = False
Me.MailFormPanel.Enabled = True
Me.SendMassege.Enabled = True
Me.PreveiwMassege.Enabled = True
Me.CancelSendAsync.Enabled = False
End Sub

################################################## #####
################################################## #####









هذا هو الحدث SendCompleted
################################################## #####
################################################## #####

كود :

'- SendCompleted Event
'- هذا الحدث الذي يتم إطلاقة عند إنتهاء عملية الإرسال
أنا عن نفسي قمت بتعطيل وتفعيل بعض الأزرار وإخفاء الصورة التي توحي بعملية الإرسال
مع إظهار رسالة تخبر بإنتهاء العملية بنجاح
Private Sub SmtpServer_SendCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles

SmtpServer.SendCompleted
Me.PictureBox1.Visible = False
Me.MailFormPanel.Enabled = True
Me.SendMassege.Enabled = True
Me.PreveiwMassege.Enabled = True
Me.CancelSendAsync.Enabled = True
MsgBox("تم إرسال البريد بنجاح ..")
End Sub

################################################## #####
################################################## #####
لإضافة الحدث ,, هذة صورة من باب إكمال الشرح







تم الإنتهاء من طريقة عرض الرسالة بنسق HTML





----------------------------------------------------------------------------------------------



طريقة عرض الرسالة بدون تنسيق ( العادية)
هو نفس الكود الذي تم شرحه من قبل ولكن لا يحتوي على أي شيء له علاقة بالـ HTML
بالإضافة إلى أن بعض المتغيرات ليست موجود لأن ليس لها فائدة في هذة الطريقة
بالإضافة إلى عدم وجود ملف HTML في الريسورس
وعدم وجود صورة الشعار ظمن ملفات المشروع





ملفات المشروع بنسخة الفيجوال 2005
-------------------------------------------
مشروع للإرسال بنسق HTML
Send.EMail.With.Html.VB2005.rar
مشروع للإرسال بشكل عادي
Send.EMail.WithOut.Html.VB2005.rar


ملفات المشروع بنسخة الفيجوال 2008
------------------------------------------
مشروع للإرسال بنسق HTML
Send EMail With Html VB2008.rar
مشروع للإرسال بشكل عادي
Send EMail WithOut Html vb2008.rar











تم بحمد الله

أرجوا أن أكون وفقت في طريقة الشرح

تحياتي لكم ,, ودمتم بخير
دعواتكم الصالحة