首页 相关文章 VB中用Winsock控件发信Email

VB中用Winsock控件发信Email

  使用控件有:Winsock控件,CommandButton 控件,TextBox 控件

  编程步骤如下:

  1.声明变量

  2.把如下代码加到Command1的Command1_Click事件:

  Private Sub Command1_Click()

  Winsock1.LocalPort = 0 '设置本地使用的端口

  Winsock1.Protocol = sckTCPProtocol '设置Winsock控件使用的协议,TCP或UDP。

  Winsock1.RemoteHost="smtp.21cn.com" '设置发送Email的服务器

  Winsock1.RemotePort = 25 '设置要连接的远程端口号

  Winsock1.Connect '返回与远程计算机的连接。

  End Sub

  这里要注意的是:Winsock1.RemotePort的值,80为HTTP,21为FTP,25为SMTP。   

  3.把如下代码加到Win...[ 查看全文 ]

2016-02-19 标签:

VB中用Winsock控件发信Email的相关文章

手机页面
收藏网站 回到头部