主题：[求助]何发送的邮件附件打不开？

        m.Host = dr0("发件服务器")                                             'qq邮箱域名
        m.EnableSsl = True                                                     '使用安全套接字层 (SSL) 加密连接,必须将属性设置为True
        m.Account = Forms("公司").Controls("ComboBoxSendEmail").Text           '登录邮件服务器的帐号,自己邮箱
        m.Password = dr0("授权码")                                             '登录邮件服务器的授权码,不是密码
        m.From = Forms("公司").Controls("ComboBoxSendEmail").Text              '发件人邮箱
        m.To = Forms("公司").Controls("TextBoxReceiveEmail").Text              '收件人邮箱
        m.Title = Forms("公司").Controls("ComboBoxEmailText").Text             '邮件标题
        m.Content = Forms("公司").Controls("TextBoxText").Text                 '邮件的正文内容
        m.AddAttachments("Attachments\邮件附件\" & Forms("公司").Controls("CheckedComboBoxMaterialSort").Text)              '添加附件，文本框内容对应附件文件
        m.SendAsync()