vb 发邮件

vb 发信，代码如下

Dim sFileName
Dim formText
Dim toText

Sub SendMail()
Dim MailObject
Dim att_file
Dim f_name
Set MailObject = CreateObject("CDONTS.NewMail") '通过vb发信组件发信

att_file = "C:\MBSTimingJobs\DayStatistc\" + sFileName + ".csv"
f_name = sFileName + ".csv"
'发件人地址
MailObject.From = "[e-mail]"
'收件人地址
MailObject.To = "[e-mail]"
'MailObject.Cc="[e-mail]" 抄送   'MailObject.Bcc="[e-mail]" 密送

'邮件标题
MailObject.Subject = "発行通知"
'邮件内容
MailObject.Body = "いつも大変、お世話になっております。本日発行したアカウントをご連絡いたします。よろしくお願いいたします。==============================株式会社シルクロード〒135‐0001 江東区毛利1‐12‐10‐1102電話：03‐5624‐5805Fax ：03‐5624‐580=============================="
'为了邮件内容保持格式
MailObject.MailFormat = 0
MailObject.BodyFormat = 0
'增加附件
MailObject.AttachFile att_file, f_name
'发信
MailObject.Send
'清空对象
'Set MailObject = Nothing
End Sub

Private Sub Form_Load() '窗口打开时运行
sFileName = Format(DateTime.Now, "yy-MM-dd") '日期格式化
SendMail   '调用sendmail方法
MsgBox "OK" '提示信息 ok
Unload Me   '关闭窗口
End Sub

如果不能发信，报错在 Set MailObject = CreateObject("CDONTS.NewMail") ，那么可能是缺少发信组件  xp系统里，下载cdonts.dll拷贝到c:\windows\system32  ，运行 里输入 Regsvr32 cdonts.dll 注册组件
发信要用到iis ， 所以没有装iis 赶紧装 或没启动的启动下，
发信中附件是指定的文件，要注意路径是否正确，
具体可打出信息反映出来 
下面提供 vb源码 ,cdonts.dll以供参考 iis 5.1 有点大11.2 MB 可网上下载