vb 发邮件（VB发邮件）

本文目录

• VB发邮件
• 怎么用vb发电子邮件啊
• VB发送邮件
• 求VB发送邮件的方法
• 怎么用vb发电子邮件
• 如何用vb发邮件
• 用VB怎样实现发送邮件功能

VB发邮件

Visual Basic 6中发送邮件的新方法
用VB6编写发送邮件的程序，有多种E-mail组件可供选择，如MAPIMessages、IIS4.0附带的CDONTS（NTS Collaboration Data Objects）以及许多第三方厂商开发的Email软件等。本文介绍用CDONTS开发VB下的邮件程序方法。
1. 确认已安装SMTP服务器
首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一个名为cdonts.dll的文件。
2. 最简单的邮件发送程序
以下是一个最简单的邮件发送程序，它由me@hotmail.net向abc@263.net发出一封标题为“Title”、内容为“Hello”的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject(“CDFONTS.DLL“)
ObjMail.Send “me@hotmail.net “, “abc@263.net“,“Title“,“Hello“
Set objMail=nothing
End Sub
3. 发送邮件附件
如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject(“CDFONTS.DLL“)
With ObjMail
.From= “me@hotmail.net “
.To= “abc@263.net“
.Subject=“Title“
.Body=“Hello“
.AttachFile “c:\document\ sample.doc“,“sample.doc“
.Send
End With
Set objMail=nothing
End Sub
4. CDONTS组件常用属性和方法
CDONTS组件常用的属性和方法列举如下：
属性：
Version：返回CDONTS组件的版本号
MailFormat：邮件格式，1-普通文本类型；0-MIME类型
Cc：设置一个或多个参阅的邮件地址
From：邮件发送者的地址
To ：邮件接受者的地址
Subject：标题
Body：内容
BodyFormat：内容格式，1-普通文本；0-超文本
方法：
AttachFile：附加一个文件
AttachURL：附加一个地址
Send：发送邮件
5. 发送超文本格式的E-mail
你一定见到过许多使用超文本格式的E-mail，其中不但可以有图片、声音，甚至还可以嵌入动画。如果给你的朋友也发送一封这样的邮件，一定会带给他（她）意外的惊喜，因为这用一般的邮件发送程序是无能为力的。以下使用CDONTS组件发送一个HTML格式的邮件，其中包含有一幅名为sample.gif的图片，程序如下：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject(“CDFONTS.DLL“)
Dim strHTML as String
StrHTML=““
StrHTML= StrHTML+““
StrHTML = StrHTML +“
用CDONTS发送Email的例子“
StrHTML= StrHTML+“
“
StrHTML= StrHTML+“
以上例子嵌入了图片sample.gif
“
StrHTML= StrHTML+““
With ObjMail
.From= “me@hotmail.net “
.To= “abc@263.net“
.Subject=“Title“
.Body=strHTML
.AttachURL “c:\mydata\sample.gif“,“sample.gif“
.BodyFormat=0
.EmailFormat=0
.Send
End With
Set objMail=nothing
End Sub
到这里，相信大家一定发现SMTP邮件处理的一个缺陷了。SMTP服务器接收你的输出消息，但并不做发送者名字和地址的验证，这本是由SMTP的异步发送机制所决定的，但有人可能别有用心地用它来假扮别人发送邮件！本文强烈建议各位切勿轻易试用，一旦让ISP知道你的行径，你的帐号极可能会被立即删除。
参考资料：http://topic.csdn.net/t/20020903/08/991274.html

怎么用vb发电子邮件啊

Private Sub Command1_Click()
Dim cm As New CDO.Message ’CDO.message是一个发送邮件的对象
’Set cm = CreateObject(“CDO.Message“) ’创建对象 ’引用路径：C:\Windows\system32\cdosys.dll’这个是要引用的，如果不引用，可以用这句也行
cm.From = “30687724@qq.com“ ’设置发信人的邮箱“
cm.To = “suxg@eshinetech.com“ ’设置收信人的邮箱
cm.Subject = “主题:邮件发送试验“ ’设定邮件的主题
’cm.TextBody =  ’邮件正文，使用文本格式发送邮件，如果太复杂了就不行了，要用下面这种
cm.HtmlBody = “邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^“ ’使用html格式发送邮件
cm.AddAttachment “D:\1.txt“ ’发的附件名与地址
stUl = “

VB发送邮件

Sub
SendMail(Optional
ByVal
sSubject
As
String,
_
Optional
ByVal
sBody
As
String,
_
Optional
ByVal
sFileName
As
String)
Dim
jmail
Set
jmail
=
CreateObject(“jmail.Message“)
jmail.Charset
=
“gb2312“
jmail.Priority
=
1
’邮件状态,1-5
1为最高
jmail.MailServerUserName
=
“c55c55“
’Email帐号
jmail.MailServerPassWord
=
“XXXXX“
’Email密码
’jmail.FromName
=
“hu“
’发信人姓名
jmail.From
=
“c55c55@163.com“
’发邮件地址地址
jmail.Subject
=
“来信了“
’主题
jmail.AddRecipient
“c44c44@163.com“
’收信人地址
jmail.Body
=
sBody
’信件正文
jmail.AddAttachment
(“I:\远程监控V1.0\Client\wj.jpg“)‘附件
jmail.Send
(“smtp.163.com“)
Set
jmail
=
Nothing
End
Sub
注意：发件人邮箱必须是07年11月以前申请的，而且必须是升过级的才行，126的也是一样。上面两个邮箱都是我的，我将两个邮箱互换就不行了。
邮件收发很麻烦，别说你只50分，你就是拿500块钱，也未必会有人告诉你，估计知道的人不多，而且知道的不一定会告诉你。
我至今也只能发送邮件，接收带附件的邮件我至今也没搞好

求VB发送邮件的方法

Private Sub Command1_Click()
Dim Email
Set Email = CreateObject(“CDO.Message“)
Email.From = “本地址“
Email.To = “目的地址“
Email.Subject = “标题“
Email.Textbody = text1.Text
Email.Send ’发送
End Sub
我没试，不知有没有用。

怎么用vb发电子邮件

Private Sub Command1_Click()
Dim cm As New CDO.Message ’CDO.message是一个发送邮件的对象
’Set cm = CreateObject(“CDO.Message“) ’创建对象 ’引用路径：C:\Windows\system32\cdosys.dll’这个是要引用的，如果不引用，可以用这句也行
cm.From = “30687724@qq.com“ ’设置发信人的邮箱“
cm.To = “suxg@eshinetech.com“ ’设置收信人的邮箱
cm.Subject = “主题:邮件发送试验“ ’设定邮件的主题
’cm.TextBody = ’邮件正文，使用文本格式发送邮件，如果太复杂了就不行了，要用下面这种
cm.HtmlBody = “邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^“ ’使用html格式发送邮件
cm.AddAttachment “D:\1.txt“ ’发的附件名与地址
stUl = “http://schemas.microsoft.com/cdo/configuration/“ ’微软服务器网址，固定的，不用改的
With cm.Configuration.Fields
.Item(stUl & “smtpserver“) = “smtp.qq.com“ ’SMTP服务器地址
.Item(stUl & “smtpserverport“) = 25 ’SMTP服务器端口
.Item(stUl & “sendusing“) = 2 ’发送端口
.Item(stUl & “smtpauthenticate“) = 1 ’需要提供用户名和密码，0是不提供 ’
.Item(stUl & “sendusername“) = “30687724“ ’发送方邮箱名称，不用输入@后面的东西
.Item(stUl & “sendpassword“) = “suxi87724“ ’发送方邮箱密码
.Update
End With
cm.Send ’最后当然是执行发送了
Set cm = Nothing
’发送成功后即时释放对象
End Sub

如何用vb发邮件

调用jmail吧，比较省事
先安装jmail或注册DLL
然后VB代码如下:
Private Sub Command1_Click()
SendMail “测试“, “我爱你“, “这里填附件地址“
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
Dim jmail
Set jmail = CreateObject(“jmail.Message“)
If sFileName 《》 “\“ Then
jmail.Charset = “gb2312“
jmail.Silent = False
jmail.Priority = 1 ’邮件状态,1-5 1为最高
jmail.MailServerUserName = “XXX“ ’Email帐号
jmail.MailServerPassWord = “XXX“ ’Email密码
jmail.FromName = ““ ’发信人姓名
jmail.From = “XXX@XXX.XXXX“ ’发邮件地址地址
jmail.Subject = ““主题
jmail.AddRecipient “XXX@XXX.XXXX“ ’收信人地址
jmail.body = ““’信件正文
jmail.Send (“smtp.163.com“) ’SMTP服务器，如smtp.sohu.com
Set jmail = Nothing
End If
End Sub

用VB怎样实现发送邮件功能

用这个方法可以不通过OutLook 直接用 vb 发送邮件:\’Wait 为延时你可用API或自己做!不延时时发送可能不成功的!\’strFrom :谁发的\’strTo :发给谁\’strSubject :主题\’strBody :内容\’wsk : Winsock控件Public Sub SendMail(strFrom As String, strTo As String, strSubject As String, strBody As String, wsk As Winsock)Dim intCount As IntegerWait 0.5wsk.SendData “EHLO “ & wsk.LocalIP & vbCrLfwsk.SendData “MAIL FROM:“ & strFrom & vbCrLfWait 0.5wsk.SendData “RCPT TO:“ & strTo & vbCrLfwsk.SendData “DATA“ & vbCrLfWait 0.5wsk.SendData “MIME-Version: 1.0“ & vbCrLfwsk.SendData “From: “ & ExtractArgument(1, strFrom, “@“) & “ 《“ & strFrom & “》“ & vbCrLfwsk.SendData “To: 《“ & strTo & “》“ & vbCrLfwsk.SendData “Subject: “ & strSubject & vbCrLfwsk.SendData “Content-Type: multipart/mixed;“ & vbCrLfwsk.SendData “ boundary=Unique-Boundary“ & vbCrLf & vbCrLfwsk.SendData “ “ & vbCrLf & vbCrLfwsk.SendData vbCrLf & “--Unique-Boundary“ & vbCrLfwsk.SendData “Content-type: text/plain; charset=US-ASCII“ & vbCrLf & vbCrLfwsk.SendData strBody & vbCrLf & vbCrLfwsk.SendData vbCrLf & “.“ & vbCrLfWait 0.5