测试没问题
Dim m As New MailSenderm.Host = "smtp.qq.com"m.Account = "455189993@qq.com"m.Password = "helen6849338."m.From = "455189993@qq.com"m.To = "765427475@qq.com"m.Title = "初jkj完成"m.Content = "附件jkjkj为初稿, 请您审阅!"m.AddAttachments("d:\test.xls") m.AddAttachments("d:\11.xls") ''如何添加多个附件. 这样只看到最后一个附件而于m.Sendmsgbox(123)