急！急！急！用VB 发指定文件到指定邮箱！

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:33:26
只要按下按纽就会发送指定文件到指定邮箱！
用户看不到发送过程（是隐藏的，不被用户发现）！
用最简单的方法做哦！
最好有源程序发给我！
如果好的话，有追加分哦！
谢谢！！！
越快越好！！！！！

下面代码在WIN2000和VB6测试通过， 自己分析吧！！！

If chkAttachment.Value And txtAttachment.Text = "" Then
MsgBox "请选择输入附件的完整的路径和文件名称。", , Me.Caption
Exit Sub
End If
lblInfo.Caption = "正在发送邮件, 请等待 ... ..."
Call SendHtmlMail

Private Sub SendHtmlMail()
On Error GoTo ErrorHandle

Dim i As Integer
If ListView1.ListItems.Count < 1 Then 'ListView1中是收件人名、邮箱地址及其他
Exit Sub
End If

Dim objSession As CDONTS.Session'安装邮件服务后，才可用

' error handling ...
Set objSession = CreateObject("CDONTS.Session")