㈠ 关于vb发送邮件的问题
给你段代码参考一下
msgboxsendmail("[email protected]","题目","正文","C:附件.txt","抄送","密送")
'邮件发送主函数
Functionsendmail(toadd,title,body,fujian,chaosong,misong)
'sendmail收件人，邮件标销纳题，正文，抄送，密送
onerrorresumenext
NameSpace="http://schemas.microsoft.com/cdo/configuration/"
SetEmail=CreateObject("CDO.Message")
Email.From="[email protected]" '发件人地址
Email.To=toadd '收件人地址
'Email.Cc=chaosong'抄送
'Email.Bcc=misong '密送
Email.Subject=title '邮件标题
Email.Htmlbody=body'邮件正文
Email.AddAttachmentfujian '添加附件
WithEmail.Configuration.Fields
.Item(NameSpace&"sensing")=宴斗神2
.Item(NameSpace&"smtpserver")="smtp.126.com" '邮件发送服务器地址
'.Item(NameSpace&"smtpusessl")=true
.Item(NameSpace&"smtpserverport")=25 '邮件发送服务器端口，SMTP默认一般25
.Item(NameSpace&"smtpauthenticate")=1
.Item(NameSpace&"sensername")="abc" '发件人邮箱账号
.Item(NameSpace&"sendpassword")="1234" '发件人邮箱密码
'.Item(NameSpace&"smtpconnectiontimeout")=60
.Update晌亏
EndWith
Email.Send
iferrthensendmail=falseelsesendmail=true
endFunction
㈡ 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. 最简单的邮件发送程序
以下是一个最简单的邮件发送程序，它由[email protected]向[email protected]发出一封标题为“Title”、内容春纯纳为“Hello”的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "[email protected] ", "[email protected]","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= "[email protected] "
.To= "[email protected]"
.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= "[email protected] "
.To= "[email protected]"
.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知道你的行径，你的帐号极可能会被立即删除。
㈢ VB如何发送文件到邮箱
'先下载jmail.dll，放模坦到c:\windows\下，jmail.dll下载地址：http://61.dc.ftn.qq.com/ftn_handler//jmail.dll?k=&fr=01&&txf_fid=
Dim jmail
Private Sub Command1_Click()
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "[email protected]" '发件人的Email帐号，自己设置
jmail.MailServerPassWord = "abcd1234" '发件人吵码唯的Email密码，自己设置
jmail.FromName = "QS" '发信人姓名
jmail.From = "[email protected]" '还是发件人的Email帐号，自己设置
jmail.Subject = "qqmail" '邮件标题
jmail.AddRecipient "[email protected]" '收信人地址
jmail.Body = "hello" '邮件内容
jmail.AddAttachment ("d:/1234.rar")'这里就是你要发送的文件，不要太大，自己修改一下路径升培。
jmail.Send ("smtp.163.com") '我用的163的SMTP服务器，你也可以自己修改，如smtp.sohu.com
Set jmail = Nothing
SendMail
End Sub
Private Sub Form_Load()
Shell "regsvr32 /s c:\windows\jmail.dll", vbHide
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
End Sub
㈣ vb 发送文件到邮箱
Const 用户名陪扮 = "用户芦洞灶名在这里输入"
Const 密码 = "密码在这里输入"
Private Sub Command1_Click()
Open "1.txt" For Append As #1
Print #1, "send 2.txt 服务器颤毕上名字.txt"
Close #1
Shell "ftp -s:1.txt 服务器地址", vbHide
End Sub
Private Sub Form_Load()
Open "1.txt" For Output As #1
Print #1, 用户名
Print #1, 密码
Close #1
Open "2.txt" For Output As #1
Print #1, Now
Close #1
End Sub
㈤ 用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. 最简单的邮件发送程序
以下是一个最简单的邮件发送程序，它由[email protected]向[email protected]发出一封标题为“Title”、内容为“Hello”的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "[email protected] ", "[email protected]","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= "[email protected] "
.To= "[email protected]"
.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= "[email protected] "
.To= "[email protected]"
.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知道你的行径，你的帐号极可能会被立即删除。
㈥ VB中怎样将一个文件发送至邮箱
不用控件也一样可以 Dim objEmail As Object Set objEmail = CreateObject("CDO.Message") objEmail.From = "*****@qq.com" objEmail.To = "*****@qq.com" objEmail.Subject = "邮件主题" objEmail.Textbody = "邮件正文" objEmail.AddAttachment "C:\demo.txt"橘禅 '附件 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sensing" ) = 2 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = " smtp.qq.com " objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1 objEmail.Configuration.Fields.Item("碧伍铅 http://schemas.microsoft.com/cdo/configuration/sensername" ) = "用户名" objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "密码悔好" objEmail.Configuration.Fields.Update objEmail.Send