vb 发邮件
vb 发信，代码如下Dim sFileNameDim formTextDim toTextSub SendMail()Dim MailObjectDim att_fileDim f_nameSet MailObject = CreateObject("CDONTS.NewMail") '通过vb发信组件发信att_file = "C:\MBSTimingJobs\DayStatistc\" + sFileName + ".csv"f_name = sFileName + ".csv"'发件人地址MailObject.From = "anxingyu@qq.com"'收件人地址MailObject.To = "axy_1984@qq.com"'MailObject.Cc="abc@abc.abc" 抄送 'MailObject.Bcc="def@def.def" 密送'邮件标题MailObject.Subject = "発行通知"'邮件内容MailObject.Body = "いつも大変、お世話になっております。本日発行したアカウントをご連絡いたします。よろしくお願いいたします。==============================株式会社シルクロード〒135‐0001 江東区毛利1‐12‐10‐1102電話：03‐5624‐5805Fax ：03‐5624‐580=============================="'为了邮件内容保持格式MailObject.MailFormat = 0MailObject.BodyFormat = 0'增加附件MailObject.AttachFile att_file, f_name'发信MailObject.Send'清空对象'Set MailObject = NothingEnd SubPrivate Sub Form_Load() '窗口打开时运行sFileName = Format(DateTime.Now, "yy-MM-dd") '日期格式化SendMail '调用sendmail方法MsgBox "OK" '提示信息 okUnload 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 可网上下载
页:
[1]