邮件群发（outlook）

世界Emma

这个邮箱是正确的

希望通过正确的称谓将问候邮件发送出去（如王小姐、刘先生、吴先生、Cathy）

如果英文的不能发 到时可以调 当然 最希望是能一起发了

lhdcxz

你得查查你的邮箱提供不提供smtp发送服务、端口是什么。再说我也没有办法用你的邮箱实验啊。其他都可以实现。

世界Emma

查了 邮箱能提供 outlook用的就是smtp这个服务器，只是还是提示发件人邮箱或密码错误，这个问题倒不大，重点在称谓上，不知道解决呢？

删除阁下两字

lhdcxz

你得查查你的邮箱提供不提供smtp发送服务、端口是什么。再说我也没有办法用你的邮箱实验啊。其他都可以实现。另外。可以试试
1、你可以把sheet2里面的A、B列的数据改为你自己的公司的邮箱和密码
2、把代码  .Item(NameSpace & "smtpserver") = "smtp.qq.com" '发送邮件服务器  改为 .Item(NameSpace & "smtpserver") = "mail.hr-benchmark.com"
3、把代码   Email.Textbody = Sheet1.Range("a" & j) & Sheet1.Range("c" & j) & "  阁下 " & Sheet1.Range("f" & j) '正文   的   阁下  去掉，只留一个空格

lhdcxz

如果没有邮件附件，就把

'查找附件
  mypath = ThisWorkbook.Path '本工作簿所在文件夹
  MyFile = Dir(mypath & "\*.*", vbNormal)  'Dir返回匹配的第一个文件名包含后缀
  Do '循环
    File = Left(MyFile, InStrRev(MyFile, ".") - 1) '文件名称
    If File = "" & Sheet1.Range("g" & j) Then GoTo 100 '得到附件文件就转到发送（ "" & 是避免用数字作为文件名）
    MyFile = Dir    '再一次调用Dir，得到其它匹配的文件名
  Loop Until MyFile = "" '直到文件名为空

'''发送
100:

不要

lhdcxz

希望通过正确的称谓将问候邮件发送出去（如王小姐、刘先生、吴先生、Cathy）
就把B列的  邮件接收人职务 改为 称谓 直接写上 小姐、先生、Cathy  等

lhdcxz

要不你就给我申请一个你们公司的邮箱，把密码告诉我，我用于调试代码。通过后你把这个邮箱删除。

世界Emma

不好意思 那天太忙没来得及回你的信息  非常感谢   申请邮箱估计有点困难 我先用我的试下 不行的话你直接用我的去看

世界Emma

找了很久 没找到代码所在地    我太应该恶u补EXCEL了

lhdcxz

alt+f11看代码。