以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  MailSender发邮件的时候怎么携带对应行的文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28274)

--  作者:冰31脚
--  发布时间:2013/1/23 23:05:00
--  MailSender发邮件的时候怎么携带对应行的文件

如图,每一行都有一个文件,怎么在发邮件的时候可以把它作为附件发送出去,请高手指导下,谢谢


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看


--  作者:lin_hailun
--  发布时间:2013/1/24 8:40:00
--  
 楼主,关键是要看你的文件的路径是否正确了。如果路径正确的话,直接赋值给mailsender的附件就行了。

 路径 = 该列的默认路径 + 单元格的值。

http://www.foxtable.com/help/topics/2043.htm

--  作者:冰31脚
--  发布时间:2013/1/24 11:37:00
--  

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.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()
    m.SendAsync()

 

文件位置是:E:\\管理系统\\管理系统V5.0\\文件管理\\指令单

这个怎么赋值?

[此贴子已经被作者于2013-1-24 18:22:47编辑过]

--  作者:lin_hailun
--  发布时间:2013/1/24 11:59:00
--  
 呃,什么问题,直接赋值不行?子表的多个文件?

m.AddAttachments("E:\\管理系统\\管理系统V5.0\\文件管理\\指令单\\" & dr("指令单文件"))

--  作者:冰31脚
--  发布时间:2013/1/24 12:05:00
--  
这个文件是在主表的,一列只有一个文件,但有多个文件列
--  作者:lin_hailun
--  发布时间:2013/1/24 12:08:00
--  
以下是引用冰31脚在2013-1-24 12:05:00的发言:
这个文件是在主表的,一列只有一个文件,但有多个文件列


多个文件列,就加多行呗。我还是不懂。

m.AddAttachments("E:\\管理系统\\管理系统V5.0\\文件管理\\指令单\\" & dr("指令单文件"))
m.AddAttachments("E:\\管理系统\\管理系统V5.0\\文件管理\\指令单\\" & dr("xxx"))
m.AddAttachments("E:\\管理系统\\管理系统V5.0\\文件管理\\指令单\\" & dr("xxxxx"))

--  作者:冰31脚
--  发布时间:2013/1/24 12:19:00
--  

提示路径中有非法字符,是不是因为有“、”

 52013-01-04 浦北电信刘金寿派送且回收DS20130104590593.doc


--  作者:冰31脚
--  发布时间:2013/1/24 12:28:00
--  
成了 字符问题,非常感谢
--  作者:冰31脚
--  发布时间:2013/1/24 15:39:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=27765&replyID=&skin=1

添加附件时使用了这个帖子的办法指添加,现在发邮件的时候批量添加的总是会提示有非法字符,手动添加的就正常,是什么原因呢


--  作者:冰31脚
--  发布时间:2013/1/24 15:52:00
--  

提示如图


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130124155218.png
图片点击可在新窗口打开查看