vb发送邮件选择附件的问题

用CDOMessage吧！有一个属性可以直接添加附件！

比如：

cmAddAttachment "F:\学习资料\vba\axlsx"'发的附件名与地址

完整的写法为：

Sub 邮件发送()
Dim cm As New CDOMessage 'CDOmessage是一个发送邮件的对象
'Set cm =CreateObject("CDOMessage") '创建对象 '引用路径：C:\Windows\system32\cdosysdll'这个是要引用的，如果不引用，可以用这句也行
cmFrom = "3122287724@qqcom" '设置发信人的邮箱"
cmTo = "suxiong@eshinetechcom"'设置收信人的邮箱
cmSubject = "主题:邮件发送试验"'设定邮件的主题
'cmTextBody =  '邮件正文，使用文本格式发送邮件，如果太复杂了就不行了，要用下面这种
cmHtmlBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"'使用html格式发送邮件
cmAddAttachment "F:\学习资料\vba\axlsx"'发的附件名与地址
stUl =">