سلام بچه ها.اگر از بچه های برنامه نویس کسی هست که کد ارسال ایمیل خودکار رو به زبانVB.NET بلده کدش رو اینجا بزاره.تو زبان C#کدش رو بلدم ولی به زبان VB.NET نتونستم جایی پیدا کنم.
Printable View
سلام بچه ها.اگر از بچه های برنامه نویس کسی هست که کد ارسال ایمیل خودکار رو به زبانVB.NET بلده کدش رو اینجا بزاره.تو زبان C#کدش رو بلدم ولی به زبان VB.NET نتونستم جایی پیدا کنم.
سلام
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ارسال ایمیل
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام.من یه سری کد پیدا کردم از سایت:
کدهاش رو هم به این صورت توی برنامه ام وارد کردم:کد:http://msdn.microsoft.com/en-us/library/system.web.mail.mailmessage%28v=VS.80%29.aspx
[HTML]<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ import Namespace="system.Web.Mail" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script language=vbscript runat=server>
Sub SendBTN_Click()
Dim sTo As String, sFrom As String, sSubject As String, sBody As String
Dim sBodyFormat As String, sMailServer As String, sPriority As String
sTo = Trim(ToTxtBox.Text)
sFrom = Trim(FRomTxtBox.Text)
sSubject = Trim(SubjectTxtBox.Text)
sBody = Trim(BodyTxtBox.Text)
'sBodyFormat = Trim(MailFormat.Text)
sMailServer = "www.yahoo.com"
' sPriority = Trim(MailPriority.High)
Dim MyMail As MailMessage = New MailMessage()
MyMail.From = sFrom
MyMail.To = sTo
MyMail.Subject = sSubject
MyMail.Body = sBody
MyMail.BodyFormat = MailFormat.Text
MyMail.Priority = MailPriority.High
SmtpMail.SmtpServer = sMailServer
SmtpMail.Send(MyMail)
Label1.Text = "VB Message sent to " & MyMail.To
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table width=40% border=1 bgcolor="#FFFFCC">
<tr align=center>
<td>
<asp:Label ID="FromLbl" runat="server" Text="From"></asp:Label>
</td>
<td>
<asp:TextBox ID="FRomTxtBox" runat="server"></asp:TextBox>
</td>
</tr>
<tr align=center>
<td>
<asp:Label ID="ToLbl" runat="server" Text="To"></asp:Label>
</td>
<td>
<asp:TextBox ID="ToTxtBox" runat="server"></asp:TextBox>
</td>
</tr>
<tr align=center>
<td>
<asp:Label ID="SubjectLbl" runat="server" Text="Subject"></asp:Label>
</td>
<td>
<asp:TextBox ID="SubjectTxtBox" runat="server"></asp:TextBox>
</td>
</tr>
<tr align=center>
<td>
<asp:Label ID="BodyLbl" runat="server" Text="Body"></asp:Label>
</td>
<td>
<asp:TextBox ID="BodyTxtBox" runat="server" Height="164px" TextMode="MultiLine"
Width="291px"></asp:TextBox>
</td>
</tr>
<tr align=center>
<td colspan=2>
<asp:Button ID="SendBTN" runat="server" Height="25px" Text="ارسال"
Width="85px" />
<asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
[/HTML]
ولی کار نمیکنه.
این هم عکس صفحه ای هست که طراحی کردم:
بهم خطا نمیده.ولی ایمیلی هم ارسال نمیکنه.کد:http://www.pic.iran-forum.ir/images/p9fdlu2jfg44np7ho.png
راستی به زبان vb.net و با visual studio 2008 هم نوشتم.
لطفا اگه کسی اطلاعاتی داره کمکک کنه.
یعنی کسی نیست که جواب این سوال رو بدونه.هیچکی اینجا vb.net کارنمیکنه؟:41: