Dim Parts() As String = CurrentTable.Current("文档").Replace(vbcr,"").Split(vblf)For i As Integer = 0 To Parts.Length - 1 m.AddAttachments(Parts(i))Next