Jmail附件无限发送

Set Jmail = CreateObject("jmail.Message")       

 For ix = 1 To Label6
         If Text10(ix).Text <> "" Then Jmail.AddAttachment Text10(ix)  '附件无限发送
         Next ix