win7旗舰版下：VBA代码无法发送QQ邮件（附件），折腾我几天未决，大侠救我

weiyingde

在win7旗舰版下，我用VBA代码通过QQ发送邮件，遇到问题，花了两天时间，查阅了大量资料，做了大量尝试，仍然没有成功，故在此向各位老师、特别是精于网络的大仙求救。
我的代码是：
Sub 邮件发送()
    Dim cm As New CDO.Message
    Set cm = CreateObject("CDO.Message")    '创建对象 '引用路径：C:\Windows\system32\cdosys.dll
    cm.From = "542420482@qq.com"    '发信人的邮箱"
    cm.To = "2144246934@qq.com"    '收信人的邮箱
    cm.Subject = "主题:邮件发送试验"
    cm.TextBody = "邮件发送试验" '邮件正文，使用文本格式发送邮件
    'cm.HTMLBody = "邮件发送试验" '使用html格式发送邮件
    cm.AddAttachment ThisWorkbook.Path & "/a.xls"
    STUl = "http://schemas.microsoft.com/cdo/configuration/"    '微软服务器网址
    With cm.Configuration.Fields
        .Item(STUl & "smtpserver") = "smtp.qq.com"         'SMTP服务器地址
        .Item(STUl & "smtpserverport") = 25                  'SMTP服务器端口
        .Item(STUl & "sendusing") = 2                        '发送端口
        .Item(STUl & "smtpauthenticate") = 1      '需要提供用户名和密码，0是不提供           '
        .Item(STUl & "sendusername") = "542420482@qq.com"                '发送方邮箱名称
        .Item(STUl & "sendpassword") = "123456789"                  '发送方邮箱密码,此处代码为假的
        .Update
    End With
    cm.Send
    Set cm = Nothing
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & vbCrLf & Err.Description
End Sub
附件如下弹出如下的对话框：

weiyingde

附件如下，请大侠试一试：

weiyingde

我用的是win7旗舰版，未解决这个问题，我广泛百度，先后做了以下的准备工作：
1、使用前先前下载jmail.dll文件，并放到c:\windows\system32下，再打开“运行”，输入regsvr32 jmail.dll注册。
2、通过“控制面板—程序和功能—打开或关闭windows功能”然后开通了以下服务：
见下面图片：

weiyingde

3、对QQ邮箱进行了设置：“邮箱设置——账户”开通了POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务
见图

weiyingde

4、试验没有效果，还是弹出上面的对话框，于是“控制面板——管理工具”发现“Internet 信息服务(IIS) 6.0 管理器”下是空的，而“Internet 信息服务(IIS)管理器”中没有“SMTP电子邮件”，图如下：

weiyingde

而正常的界面如图，请看：

weiyingde

综上情况，请大侠支招，我该怎样解决这个难题？
在下折腾两天无计可施，只好求助了，希望得到好心人士的热情答复。

weiyingde

我查了一下：
一种说法是说，很遗憾的说，windows7不带SMTP服务器，见https://zhidao.baidu.com/question/329558359.html
http://stackoverflow.com/questio ... orking-in-windows-7
一种说法是：https://www.cnblogs.com/rentians ... /03/31/2000881.html
到底win7带不带“SMTP服务器”？
请内行人士指教。

weiyingde

可是我的win7并没有
https://www.cnblogs.com/rentians ... /03/31/2000881.html
的界面，也不能进行相关的设置？
请问如何调出来呢？

weiyingde

请大侠支招，给予指教，又尝试了一天，劳而无功，甚是苦恼。