- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 当前行附件做邮件的附件，代码报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92789)
-- 发布时间：2016/11/13 10:32:00
-- 当前行附件做邮件的附件，代码报错
Dim smtp As New System.Net.Mail.SmtpClient(dz.Text,dk.Text)
smtp.Credentials = New System.Net.NetworkCredential(zh.Text,mm.Text)
Dim mail As New System.Net.Mail.MailMessage()
mail.Subject = zt.Text
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.From = New System.Net.Mail.MailAddress(fj.Text)
mail.Priority = System.Net.Mail.MailPriority.Normal
mail.IsBodyHtml = True
mail.Body = nr.Text
mail.To.Add(sj.Text)
Dim attachment As new System.Net.Mail.Attachment("d:\\sjk\\" & Tables("成本需求单").current("附件明细"), System.Net.Mime.MediaTypeNames.Application.Octet)
mail.Attachments.Add(attachment)
此主题相关图片如下：22.png
此主题相关图片如下：11.png
应该是这句代码报错："d:\\sjk\\" & Tables("成本需求单").current("附件明细"), 老师们帮忙看看，因为有时会带两个及两个以上的附件~~
-- 发布时间：2016/11/13 11:13:00
--
参考
For Each fname As String In Tables("成本需求单").current.DataRow.Lines("附件明细")
Dim attachment As new System.Net.Mail.Attachment("d:\\sjk\\" & fname, System.Net.Mime.MediaTypeNames.Application.Octet)
mail.Attachments.Add(attachment)
Next