+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : كود اتصل بنا بواسطة smtp (/showthread.php?tid=4116)
كود اتصل بنا بواسطة smtp - سعود - 16-09-12
مثال بسيط جدا
اضيفي صفحة جديدة وضمن الديف div الرئيسي اي في مصدر الصفحة html
PHP كود :
<p>
الاسم:<asp:TextBox ID="tname" runat="server" MaxLength="33"></asp:TextBox>
</p>
<p>
البريد:<asp:TextBox ID="tmail" runat="server"></asp:TextBox>
</p>
<p>
النص:<asp:TextBox ID="tbody" runat="server" MaxLength="300"
TextMode="MultiLine"></asp:TextBox>
</p>
<p>
<asp:Button ID="Button2" runat="server" Text="ارسل" />
</p>
كود :
Dim msg As New MailMessage
With msg
.From = New MailAddress(tmail.Text)
.To.Add("saudsharary@hotmail.com")
.Subject = "متصفح المدونة"
.BodyEncoding = UTF8Encoding.UTF8
.IsBodyHtml = True
.Body = tbody.Text
End With
Dim sm As New SmtpClient("smtp.gmail.com", "587")
sm.EnableSsl = True
sm.Credentials = New System.Net.NetworkCredential("myemail@gmail.com", "mypassword")
Try
sm.Send(msg)
Response.Write("<h1>تم ارسال رسالتك الينا شكرا لك</h1>")
Catch ex As Exception
Response.Write(Err.Description)
End Tryكود :
Imports System.Net.Mail