[已解决]excel判断单元格为数值小于O，则自动发送邮件给指定邮箱地址

czhlh

请哪位大虾，帮一个宏，excel中判断C列的数据如果小于O，则系统自动发送D列对应的邮箱地址，可以是每天自动发送或者是手工群发送邮件。附件是源文件和截图

最佳答案

月排行榜 / 总排行榜

L50814026

2015-11-30 14:46

1. Sub SendMail1()
   
2.     Dim OutlookApp As Object
   
3.     Dim MailItem As Object
   
4.     Option1 = MsgBox("是否自动发送？点击确认自动发送，取消则手动群发!", vbOKCancel, "群发&手动")
   
5.    
   
6.     If Option1 = 1 Then
   
7.         For i = 2 To [a65536].End(xlUp).Row
   
8.             If Cells(i, 3) < 0 Then
   
9.                 Set OutlookApp = CreateObject("Outlook.Application")
   
10.                 Set MailItem = OutlookApp.CreateItem(olMailItem)
    
11.                 With MailItem
    
12.                     .To = Cells(i, 4)
    
13.                     .Subject = "自动发送"
    
14.                     .Body = "自动发送"
    
15.                     .Send
    
16.                     '.Display
    
17.                 End With
    
18.                 Set OutlookApp = Nothing
    
19.                 Set MailItem = Nothing
    
20.             End If
    
21.         Next i
    
22.     Else
    
23.         For i = 2 To [a65536].End(xlUp).Row
    
24.             If Cells(i, 3) < 0 Then
    
25.                 receipt = Cells(i, 4) & ";" & receipt
    
26.             End If
    
27.         Next i
    
28.         Set OutlookApp = CreateObject("Outlook.Application")
    
29.         Set MailItem = OutlookApp.CreateItem(olMailItem)
    
30.         With MailItem
    
31.             .To = receipt
    
32.             .Subject = "自动发送"
    
33.             .Body = "自动发送"
    
34.             .Display
    
35.         End With
    
36.         Set OutlookApp = Nothing
    
37.         Set MailItem = Nothing
    
38.     End If
    
39. End Sub

复制代码

跳转到最佳答案楼层

czhlh

附件，谢谢

fjmxwrs

不是要群发垃圾邮件吧

czhlh

那不是，针对不同的人，上面是举例说明

L50814026

1. Sub SendMail1()
   
2.     Dim OutlookApp As Object
   
3.     Dim MailItem As Object
   
4.     Option1 = MsgBox("是否自动发送？点击确认自动发送，取消则手动群发!", vbOKCancel, "群发&手动")
   
5.    
   
6.     If Option1 = 1 Then
   
7.         For i = 2 To [a65536].End(xlUp).Row
   
8.             If Cells(i, 3) < 0 Then
   
9.                 Set OutlookApp = CreateObject("Outlook.Application")
   
10.                 Set MailItem = OutlookApp.CreateItem(olMailItem)
    
11.                 With MailItem
    
12.                     .To = Cells(i, 4)
    
13.                     .Subject = "自动发送"
    
14.                     .Body = "自动发送"
    
15.                     .Send
    
16.                     '.Display
    
17.                 End With
    
18.                 Set OutlookApp = Nothing
    
19.                 Set MailItem = Nothing
    
20.             End If
    
21.         Next i
    
22.     Else
    
23.         For i = 2 To [a65536].End(xlUp).Row
    
24.             If Cells(i, 3) < 0 Then
    
25.                 receipt = Cells(i, 4) & ";" & receipt
    
26.             End If
    
27.         Next i
    
28.         Set OutlookApp = CreateObject("Outlook.Application")
    
29.         Set MailItem = OutlookApp.CreateItem(olMailItem)
    
30.         With MailItem
    
31.             .To = receipt
    
32.             .Subject = "自动发送"
    
33.             .Body = "自动发送"
    
34.             .Display
    
35.         End With
    
36.         Set OutlookApp = Nothing
    
37.         Set MailItem = Nothing
    
38.     End If
    
39. End Sub

复制代码

czhlh

L50814026 发表于 2015-11-30 14:46

你好，非常感谢您的的帮忙！
实际操作中，我点击手动发送是可以实现的，但采用自动发送后，程序跑步下去了，是不是我是自动发送邮箱还要再设置一下？
附件是源文件，可否再帮详细分解下，谢谢
因我是菜鸟，请帮忙，谢谢

L50814026

czhlh 发表于 2015-12-1 10:42
你好，非常感谢您的的帮忙！
实际操作中，我点击手动发送是可以实现的，但采用自动发送后，程序跑步下去 ...

我测试没有问题，你是断在哪里？

czhlh

L50814026 发表于 2015-12-1 11:50
我测试没有问题，你是断在哪里？

见图片，谢谢

alooneee

学习一下

346557274

手动发送是可以实现的，但采用自动发送后运行错误：运行时错误287，应用程序定义或对象定义错误