Dim SmtpAddressV As String = "localhost" 'عنوان سيرفر الارسال غالبا يكون localhost
            Dim Msg As MailMessage = New MailMessage()
            Dim MailObj As New SmtpClient(SmtpAddressV)

            Try
                Msg.From = New MailAddress("from@hotmail.com") 'عنوان مرسل الرسالة
            Catch ex As Exception

            End Try

            Try
                Msg.To.Add(New MailAddress("to@hotmail.com")) ' عنوان مستقبل الرسالة
            Catch ex As Exception

            End Try

            Msg.Subject = "عنوان الرساله" 'عنوان الرسالة
            Msg.Body = "محتوى الرساله" ' يمكن استخدام كود ال html
            Msg.IsBodyHtml = True 'السماح باستخدام كود ال html في نص الرسالة
            Msg.SubjectEncoding = Encoding.GetEncoding("windows-1256")
            Msg.BodyEncoding = Encoding.GetEncoding("windows-1256")

            Try
                MailObj.Send(Msg) 'عملية ارسال الرسالة
            Catch ex As Exception

            End Try