参考
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