以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  邮件发送附件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105113)
--  作者：huhu
--  发布时间：2017/8/11 16:01:00
--  邮件发送附件
If vars("ljwjj") = "" Then
    Dim ftp As New FtpClient
    ftp.Host="124.74.246.244"
    ftp.Account = "BUG"
    ftp.Password = "BUG"
    
    
    ftp.ChangeDir("/")
    Dim lj As String = "/" & Tables("BUG录入表").current("BUG_ID")
    If ftp.DirExists(lj) = False Then   \'不存在临时版本编号目录时先创建临时版本编号目录
        ftp.MakeDir(lj)
    End If
    Dim ml As String = lj  & "/" & Format(Date.now, "yyyy-MM-dd HH-mm-ss")
    If ftp.DirExists(ml) = False Then  \'按照系统时间来创建时间目录
        ftp.MakeDir(ml)
    End If
    Tables("BUG录入表").current("附件目录") = ml
    vars("ljwjj") = ml   
    
    ftp.Close
Else
    vars("ljwjj") = Tables("BUG录入表").current("附件目录")
    
    Functions.Execute("BUGlistview")
End If

我的附件目录是ml。
发送邮件希望把ml下的文件作为邮箱的附件。
m.AddAttachments(r("附件目录"))-----这个怎么写？
--  作者：有点甜
--  发布时间：2017/8/11 16:22:00
--  

 你要先下载ftp上的文件到本地 d:\\test.txt

 

 然后才能设置 AddAttachments 的。
--  作者：huhu
--  发布时间：2017/8/11 16:54:00
--  
那一个目录里面有4个文件，都要作为附件呢。要一个一个指定文件名，还是给一个目录就可以了，自动把目录下的所有文件作为附件。
--  作者：有点甜
--  发布时间：2017/8/11 17:26:00
--  

要循环文件夹的所有文件，一个一个的 AddAttachments 才行。