如何按照设定的条件自动发送邮件

hxwhccmjl

大家好！问题见附件。谢谢！

闻启学

请测试

1. Sub sendEmail()
   
2.     Dim myolApp As Object
   
3. 
   
4.     Dim endRowNo As Long
   
5. 
   
6.     Dim objMail As Object
   
7.     Set myolApp = CreateObject("outlook.application")
   
8. 
   
9.     endRowNo = Sheet1.Cells(4, 4).CurrentRegion.Rows.Count
   
10. 
    
11.     For rowCount = 5 To 4 + endRowNo - 1
    
12. 
    
13.         If Sheet1.Cells(rowCount, 4) <= 30 Then
    
14. 
    
15.             '创建objMail为一个邮件对象
    
16. 
    
17.             Set objMail = myolApp.CreateItem(0)
    
18. 
    
19.             With objMail
    
20. 
    
21.                 '设置收件人地址（从通讯录表的'E-mail地址'字段中获得）
    
22. 
    
23.                 .To = Cells(rowCount, "E")
    
24. 
    
25.                 '设置邮件主题
    
26. 
    
27.                 .Subject = Sheet1.Cells(rowCount, "G")
    
28. 
    
29.                 '设置邮件内容（从通讯录表的'内容'字段中获得）
    
30. 
    
31.                 .Body = Sheet1.Cells(rowCount, "G")
    
32. 
    
33.                 '设置附件（从通讯录表的'附件'字段中获得）
    
34. 
    
35.               '//  .Attachments.Add Cells(rowCount, 4)
    
36. 
    
37.                 '自动发送邮件
    
38. 
    
39.                 .Send
    
40. 
    
41.             End With
    
42. 
    
43. 
    
44.         End If
    
45.     Next
    
46. 
    
47. 
    
48. 
    
49. End Sub

复制代码

hxwhccmjl

闻启学 发表于 2014-9-2 06:02
请测试

老师，你好！我复制了你的代码，但是没执行，不知咋回事，请再仔细看看。谢谢！

闻启学

hxwhccmjl 发表于 2014-9-3 11:10
老师，你好！我复制了你的代码，但是没执行，不知咋回事，请再仔细看看。谢谢！

无可能的 我测试过才给你的 提示什么错误