http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=27765&replyID=&skin=1、
添加附件时使用了这个帖子的办法指添加，现在发邮件的时候批量添加的总是会提示有非法字符，手动添加的就正常，是什么原因呢
我的批量添加代码：
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
Dim fullname As String = FileSys.GetName(file)
Dim ext As String = fullname.Substring(fullname.IndexOf("."))
Dim name As String = right(fullname, 20)
Dim fdr = DataTables("综管").Find("服务执行单据记录表_申请号 + '.doc' = '" & Name & "'")
If fdr IsNot Nothing Then
Select Case ext
Case ".doc", ".docx"
If fdr("指令单文件").IndexOf(fullname) = -1 Then
fdr("指令单文件") &= fullname & vbcrlf
FileSys.CopyFile(file, DataTables("综管").DataCols("指令单文件").DefaultFolder & "\" & fullname, True)
End If
End Select
End If
Next
End If
邮件代码
Dim dr As Row = Tables("综管").current
Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.qq.com"
m.Account = "1336181618@qq.com"
m.Password = "123456"
m.From = "1336181618@qq.com"
m.AddReceiver(dr("备份邮箱"))
m.Title ="中兴(ZTE)备件管理服务---- " & dr("序号2") & " " & dr("月份营运报表_日期")& " " & dr("服务执行单据记录表_申请号") & " 【询问是否已收到货】 重要邮件,请勿更改主题直接回复此邮件,感谢您对我们工作的支持."
m.Content = m.Content & ln & "此邮件目的: 确认是否收到派给您的备件"
m.Content = m.Content & ln & " 您好,您于 " & dr("月份营运报表_日期") & " 申请的,申请号为 " & dr ("服务执行单据记录表_申请号") & " 的备件已经于 " & dr("派送时间")& " 通过 " & dr("派送方式") & " 为您派出,现与您确认是否收到派送备件,请回复邮件或电话告知我们,感谢您对我们工作的支持!"
m.Content = m.Content & ln & " 查询/联系: " & ("派送方式") & " " & dr("派送记录") & " / 李政桥 18275886166 "
m.Content = m.Content & ln & " 基本信息: " & vbcrlf & " 申请号: " & dr("服务执行单据记录表_申请号") & vbcrlf & " 申请人: " & dr("服务执行单据记录表_客户申请人及电话") & vbcrlf & " 交接人:" & dr("服务执行单据记录表_客户交接人及电话") & vbcrlf & " 派送地址: " & dr("月份营运报表_派送及取件详细地址") & vbcrlf & " 本次共派送:" & dr("派送件数") & " 件."
m.Content = m.Content & ln & " 更多信息请下载附件查看,祝工作愉快."
m.Content = m.Content & ln & " " & dr("客户沟通_是否收货邮件补充") & vbcrlf & " 指令单下载: " & dr("指令单")
m.Content = m.Content & ln & " 若您已收到对应备件,请及时更换并将旧件及时返回库房." & vbcrlf & " " & dr("合作快递1_公司") & " : " & dr("合作快递1_联系方式") & vbcrlf & " " & dr("合作快递2_公司") & " : " & dr("合作快递2_联系方式")
m.Content = m.Content & ln & " 如对我们及我们的供应商(如快递公司)的服务有任何不满的地方,请致电告知我们,感谢您对我们工作的支持." & vbcrlf & " 服务投诉: 0771-5346427"
m.Content = m.Content & ln & " 祝工作愉快!"
m.Content = m.Content & ln & " ZTE备件管理广西区配送中心"
m.AddAttachments("E:\管理系统\管理系统V5.0\文件管理\指令单\" & dr("指令单文件"))
m.SendAsync()
加好友 
发短信
Post By：2013/1/24 21:53:00 [只看该作者]
此主题相关图片如下：1.png