用VBA做的“发送邮件不同附件”

oldalbum

lhdcxz 发表于 2013-12-13 16:40
ALT+F11看代码。在PASS2里面
还可以参考
http://club.excelhome.net/thread-665669-1-1.html

谢谢楼主，找到了，
另外，不用qq邮箱，不是smtp的，是exchange服务器怎么设置啊

lhdcxz

oldalbum 发表于 2013-12-17 10:37
谢谢楼主，找到了，
另外，不用qq邮箱，不是smtp的，是exchange服务器怎么设置啊

不好意思。没有研究过。

m_n_j001

非常感谢楼主！
以前用CDO发邮件的时候，少还没什么，要是连续发多了，就会出错。找了下，说是为防止垃圾邮件的机制限制到了。不知道楼主有这个问题不？是如何处理的？谢谢！

恒＆★

怎么都这么厉害？

zjuzhaohua

很好用！只是邮件中的“阁下”如何去掉呢？谢谢！

lhdcxz

zjuzhaohua 发表于 2014-2-27 08:33
很好用！只是邮件中的“阁下”如何去掉呢？谢谢！

ALT+F11看代码，把“阁下”2个字改为你自己需要的字。

andrewyang

qdchyq 发表于 2011-1-29 08:16
在lhdcxz 老师的基础上修改的，希望有所帮助

[ 本帖最后由 qdchyq 于 2011-2-8 19:59 编辑 ]

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
  Set Email = CreateObject("CDO.Message")
  Email.From = Sheet1.Range("l1")  '发件人QQ邮箱
  If (Err.Number = 0) Then
    Email.To = Sheet1.Range("d" & j) '要发往的地址
    Email.Subject = Sheet1.Range("e" & j) '标题
    Email.Textbody = Sheet1.Range("a" & j) & Sheet1.Range("c" & j) & "  阁下 " & Sheet1.Range("f" & j) '正文
    Email.AddAttachment mypath & "\" & MyFile '附件
    With Email.Configuration.Fields
     .Item(NameSpace & "smtpusessl") = 1
     .Item(NameSpace & "sendusing") = 2
     .Item(NameSpace & "smtpserver") = Sheet1.Cells(1, 13) '发送邮件服务器
     .Item(NameSpace & "smtpserverport") = "465"
     .Item(NameSpace & "smtpauthenticate") = 1
     .Item(NameSpace & "sendusername") = Sheet1.Range("l1") '发件人QQ邮箱
     .Item(NameSpace & "sendpassword") = Sheet1.Range("l2") '发件人QQ密码
     .Update
    End With
    Email.send ''发送


NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
  Set Email = CreateObject("CDO.Message")
这2句是啥意思呀？ 这个发邮件的方法好特别 能否 请高人解释下  谢谢了

kvs888

感谢，下来试试！！~~

CJXUEHAO

为什么我试完总是出错的？

linyh1742595842

我的也出错，不知道是哪里的问题。