返回首页
  1.  或代码
  2. 文章
  3. 编程语言
  4. VB.NET

VB.NET通过发送电子邮件和手机短信免费

{S0}简介
这VB.NET代码发送电子邮件和短信免费与您的Gmail ID的帮助。这方面的一个主要优点是，你可以免费发送短信，因为大多数Web服务不是免费的使用与您的应用程序。使用代码
我使用Gmail作为我的SMTP服务器和Mytoday免费短信服务，以支持这个代码。由于此代码使用Gmail的SMTP服务器，你需要一个Gmail帐户发送电子邮件。其实，从应用程序的短信发送电子邮件。您可以发送短信仅在印度的特定数字。当你注册你的电话号码在网站。它仅适用于印度的数字。
运行成功，有两件事应该做的应用程序:您必须有Gmail ID。注册的电话号码，你要使用在一个网站{A2}。

Private Sub Button1_Click(ByVal sender As System.Object, _

	ByVal e As System.EventArgs) Handles Button1.Click



Dim smtpServer As New SmtpClient()

Dim mail As New MailMessage

smtpServer.Credentials = New Net.NetworkCredential_

	(TextBox1.Text & "@gmail.com", TextBox2.Text)

smtpServer.Port = 587

smtpServer.Host = "smtp.gmail.com"

smtpServer.EnableSsl = True

mail.From = New MailAddress(TextBox1.Text & "@gmail.com")

If RadioButton1.Checked = True Then

mail.To.Add("91" & TextBox3.Text & "@m3m.in")

ElseIf RadioButton2.Checked = True Then

mail.To.Add(TextBox3.Text)

End If

mail.Subject = TextBox4.Text

mail.Body = TextBox5.Text()

smtpServer.Send(mail)

MsgBox("mail is sent", MsgBoxStyle.OkOnly, "Report")

End Sub

希望这个代码会有所帮助... ...

回答

评论会员：会员7699090 时间：2012/01/25
海...当我使用此代码试图赶上........这是响应异常消息为"失败发送消息".....如何解决这个.........请帮助我
评论会员：DineshSIS 时间：2012/01/25
您好巴拉吉，
发送短信，而无需使用第三方（M3M）注册的任何想法。有没有像发送电子邮件手机号码和接收短信的事情... ...
我搜查，发现几样，像98401xxxxx@airtelchennai.com doesnt工作。
是否有任何工作范例，您已经使用
评论会员：？balaji2525 时间：2012/01/25
您好，像你说的"98401xxxxx@airtelchennai.com"喜欢那些东西，永远不会奏效。它是关于免费短信这就是为什么它是必要的登记，也有其局限性。如果您需要它没有登记注册，那么你应该买群发短信，从一些网站
评论会员：。balaji2525 时间：2012/01/25
当您注册160by2.com他们提供facilty阅读SMS您的邮件，当他们到达UR 160by2 ID。可以参考该网站是优于M3M登记
评论会员：。BEDEK33 时间：2012/01/25
您好
。
他的代码是好的。
有关SMS - 什么是suitible代码
发送免费短信... ...在以色列

mail.To.Add（"972"放大器，TextBox3.Text放大器;"@ m3m.ie"）
我MEED改变上面的代码。
请让我知道...

谢谢
评论会员：VamsiPulavarthi 时间：2012/01/25
不坏文章，但我同意与其他。本来可以更好的文章。

巴拉吉 - 回答如何... ...这里有一些我的想法
1。可能的电子邮件，端口，服务器等配置，使其他邮件服务器可以使用
2。新增的功能，发送短信到任何国家。不只是印度
评论会员：艾士菲 时间：2012/01/25
所以其真正不良的编码通过Gmail发送电子邮件的例子。它没有真正发送短信，所有是
评论会员：？sura945 时间：2012/01/25
您好，我有积分就计划在VB中的分配功能，以thuseday所以请帮我
评论会员：balaji2525 时间：2012/01/25
ü需要计算器编，但我不明白"功能thuseday "...{ BR}
评论会员：GriffinPeter 时间：2012/01/25
一个非常糟糕的代码转储..没有suprises
评论会员：。balaji2525 时间：2012/01/25
u有任何关于这一主题的更好的主意...
评论会员：balaji2525 时间：2012/01/25
如果VE任何关于这个主题更好的主意只是告诉我....{ BR}
评论会员：mhn217 时间：2012/01/25
我试图发送电子邮件，使用我的Gmail的凭据，而此异常

仅供参考:我的电脑在一个代理

有关调用的详细信息，请参阅此消息的结尾
刚刚在实时（JIT）调试而不是此对话框。

**************异常文本**************{ BR}System.Net.Mail.SmtpException:失败发送邮件。 ---> System.Net.WebException:无法连接到远程服务器---> System.Net.Sockets.SocketException:无连接可以作出，因为目标机器积极拒绝它74.125.155.109:587 {BR } System.Net.Sockets.Socket.DoConnect（端点endPointSnapshot，SocketAddress的SocketAddress的）
System.Net.Sockets.Socket.InternalConnect（端点remoteEP）
System.Net.ServicePoint.ConnectSocketInternal（布尔connectFailure，插座插座S4，S6，Socketamp; IPAddressamp插座，地址，ConnectSocketState国家，Int32的超时，Exceptionamp的IAsyncResult asyncResult;除外）
---结束内部异常堆栈跟踪---
System.Net.ServicePoint.GetConnection（布尔异步，IPAddressamp PooledStream PooledStream，对象的所有者，地址，Socketamp; abortSocket，Socketamp; abortSocket6，Int32的超时）
System.Net.PooledStream.Activate（对象owningObject，布尔异步，Int32的超时，GeneralAsyncDelegate的AsyncCallback）
在System.Net.PooledStream.Activate（GeneralAsyncDelegate的AsyncCallback对象owningObject）
System.Net.ConnectionPool.GetConnection（GeneralAsyncDelegate的AsyncCallback对象owningObject，Int32的creationTimeout）
System.Net.Mail.SmtpConnection.GetConnection（弦乐主机，端口INT32）
System.Net.Mail.SmtpTransport.GetConnection（弦乐主机，端口INT32）
在System.Net.Mail.SmtpClient.GetConnection（）
System.Net.Mail.SmtpClient.Send（MailMessage消息）
---结束内部异常堆栈跟踪---
System.Net.Mail.SmtpClient.Send（MailMessage消息）
Email.Form1.Button1_Click（对象发件人，EventArgs的发送）在D:\研究\我PROJ \电子邮件\电子邮件\ Form1.vb的:第18行
System.Windows.Forms.Control.OnClick（级E）
System.Windows.Forms.Button.OnClick（级E）
System.Windows.Forms.Button.OnMouseUp（MouseEventArgs mevent）
System.Windows.Forms.Control.WmMouseUp（Messageamp米，MouseButtons按钮，Int32的点击）
& #160;System.Windows.Forms.Control.WndProc（Messageamp米）
 0; System.Windows.Forms.ButtonBase.WndProc（Messageamp米）
& #160; System.Windows.Forms.Button.WndProc（Messageamp米）
System.Windows.Forms.Control.ControlNativeWindow.OnMessage（Messageamp米）
System.Windows.Forms.Control.ControlNativeWindow.WndProc（Messageamp米）
在System.Windows.Forms.NativeWindow.Callback（HWND的IntPtr，Int32的味精，IntPtr的WPARAM，IntPtr的LPARAM）
**************加载的程序集**************{ BR}MSCORLIB
程序集版本:2.0.0.0
Win32版本:2.0.50727.3053（netfxsp.050727 3000）
的CodeBase:文件:/ / / C:/ WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------{ BR}电子邮件
程序集版本:1.0.0.0
Win32版本:1.0.0.0
的CodeBase:文件:/ / / E:/ DOTNET /电子邮件和短信/电子邮件/电子邮件/ BIN /调试/ Email.exe
----------------------------------------{ BR}Microsoft.VisualBasic
程序集版本:8.0.0.0
& #160; Win32版本:8.0.50727.3053（netfxsp.050727 3000）
  ; 的CodeBase:----------------------------------------{ BR}系统
程序集版本:2.0.0.0
Win32版本:2.0.50727.3053（netfxsp.050727 3000）
的CodeBase:文件:/ / / C:/ WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------{ BR}System.Windows.Forms的
程序集版本:2.0.0.0
Win32版本:2.0.50727.3053（netfxsp.050727 3000）
的CodeBase:----------------------------------------{ BR}System.Drawing
程序集版本:2.0.0.0
Win32版本:2.0.50727.3053（netfxsp.050727 3000）
 0; 的CodeBase:文件:/ / / C:/ WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------{ BR}System.Configuration
程序集版本:2.0.0.0
Win32版本:2.0.50727.3053（netfxsp.050727 3000）
的CodeBase:----------------------------------------{ BR}System.Xml的
& #160;程序集版本:2.0.0.0
Win32版本2.0.50727.3053（netfxsp.050727 3000）
的CodeBase:文件:/ / / C:/ WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------{ BR}System.Runtime.Remoting
程序集版本:2.0.0.0
&# 160; Win32版本:2.0.50727.3053（netfxsp.050727 3000）
的CodeBase:----------------------------------------{ BR}
************** JIT调试**************{ BR}为了让刚刚在时间（JIT）调试，
。config文件应用程序或计算机（Machine.config）中必须有
jitDebugging值设置在System.Windows.Forms的部分。
应用程序还必须编译与调试
启用。

例如:

LT; configurationgt;
LT System.Windows.Forms的jitDebugging ="真"/ GT
LT / configurationgt;

启用JIT调试后，任何未处理的异常
将被发送到在计算机上注册的JIT调试器，
而不是处理此对话框
评论会员：。GriffinPeter 时间：2012/01/25
这是因为你的电脑在一个代理..我建议你​​按下"F1"和去smtpclient类的MSDN帮助，因为答案是obivious，我不会打扰在这里把它..有一个挑战
评论会员：？丹尼斯Micheelsen 时间：2012/01/25
和工程只到印度的数字
评论会员：kalyankrishna1 时间：2012/01/25
很差的例子和执行
评论会员：balaji2525 时间：2012/01/25
如果任何更好的主意，只是告诉我，我们。 ..