主题：[求助]計劃管理

看了幫助附上例子，請老師們費心幫忙。再次謝謝！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:mail_201403091700.zip

'生成模版

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

’发送生成的报表

Dim r As row = Tables("xxx").Current
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "初稿已经完成"
m.Content = "附件为初稿, 请您审阅!"
m.AddAttachments(fl) '生成的报表
if r.Isnull("附加档案1") = False Then
    m.AddAttachments(projectpath & "Attachments\" & r("附加档案1"))
End if
if r.Isnull("附加档案2") = False Then
    m.AddAttachments(projectpath & "Attachments\" & r("附加档案2"))
End if
m.SendAsync()