VB中用Winsock控件发信Email

星12345

星12345

2016-02-19 21:48

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享VB中用Winsock控件发信Email,希望可以对大家能有小小的帮助。

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

  编程步骤如下:

  1.声明变量

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

  Private Sub Command1_Click()

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  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.把如下代码加到Winsock1的Connect事件:

  Private Sub Winsock1_Connect() ''当一个 Connect 操作完成时发生

  first = "mail from:" + Chr(32) + "yingzi007@21cn.com" + vbCrLf '发信人地址

  Second = "rcpt to:" + Chr(32) + "yingzi007@21cn.com" + vbCrLf '收信人地址

  DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  Third = "Date:" + Chr(32) + DateNow + vbCrLf '开始发信时间

  Fourth = "From:" + Chr(32) + "VB 小园" + vbCrLf '发信人姓名

  Fifth = "To:" + Chr(32) + "Jimven"+ vbCrLf '收信人姓名

  Sixth = "Subject:" + Chr(32) +"VB 小园更新通知" + vbCrLf '发信的主题

  Seventh = "VB 小园已经更新" + vbCrLf '发信的内容

  Ninth = "X-Mailer: EBT Reporter v 2.x" + vbCrLf

  Eighth = Fourth + Third + Ninth + Fifth + Sixth

  Winsock1.SendData ("HELO www.21cn.com" + vbCrLf) '开始发送

  Winsock1.SendData (first)

  Winsock1.SendData (Second)

  Winsock1.SendData ("data" + vbCrLf)

  Winsock1.SendData (Eighth + vbCrLf)

  Winsock1.SendData (Seventh + vbCrLf)

  Winsock1.SendData ("." + vbCrLf)

  Winsock1.SendData ("quit" + vbCrLf)

  End Sub  

  4.把如下代码加到Winsock1的DataAmival事件:

  Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接受数据时产生

  On Error Resume Next '在错误处理程序结束后,恢复原有的运行

  Dim webData As String

  Winsock1.GetData webData, vbString '取得发信后的反馈信息,可以检查是否错误

  Text1.Text = Text1.Text + webData

  'Debug.Print Text1.Text

  End Sub

展开更多 50%)
分享

猜你喜欢

VB中用Winsock控件发信Email

编程语言 网络编程
VB中用Winsock控件发信Email

你也可以YAI--VB5中Winsock控件的使用

编程语言 网络编程
你也可以YAI--VB5中Winsock控件的使用

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VB中用API实现文件拖放

vb
VB中用API实现文件拖放

VB中Winsock控制的UDP协议的使用

编程语言 网络编程
VB中Winsock控制的UDP协议的使用

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

利用Winsock控件实现局域网通信

编程语言 网络编程
利用Winsock控件实现局域网通信

vb Frame 控件的使用

编程语言 网络编程
vb Frame 控件的使用

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

关于PHP接口的学习

关于PHP接口的学习

Windows XP系统下安装apache+php+mysql

Windows XP系统下安装apache+php+mysql
下拉加载更多内容 ↓