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