ThisWorkbook.Worksheets("check").Cells(2, 11).Value <> "Check ok" And Cells(2, 12).Value <> "Check ok" And Cells(2, 13).Value <> "Check ok"
时间: 2024-04-08 15:33:55 浏览: 14
你可以使用下面的 VBA 代码来根据你提供的条件发送邮件:
```vba
Sub SendEmail()
Dim ws As Worksheet
Dim OutlookApp As Object
Dim OutlookMail As Object
' 设置工作表
Set ws = ThisWorkbook.Worksheets("check") ' 替换为你想要使用的工作表名称
' 如果条件满足
If ws.Cells(2, 11).Value <> "Check ok" And ws.Cells(2, 12).Value <> "Check ok" And ws.Cells(2, 13).Value <> "Check ok" Then
' 创建 Outlook 应用对象
Set OutlookApp = CreateObject("Outlook.Application")
' 创建新邮件
Set OutlookMail = OutlookApp.CreateItem(0)
' 设置收件人、主题和内容
With OutlookMail
.To = "AA@example.com" ' 替换为你想要发送邮件的收件人邮箱地址
.Subject = "问题警报" ' 替换为你想要设置的邮件主题
.Body = "请注意,满足条件的单元格内容不等于 ""Check ok""" ' 替换为你想要设置的邮件内容
.Display ' 显示邮件
' 或者使用以下代码直接发送邮件
'.Send
End With
' 释放对象
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End If
End Sub
```
在上面的代码中,我使用了 `ThisWorkbook.Worksheets("check")` 来引用名为 "check" 的工作表。然后,我使用 `ws.Cells(2, 11).Value`、`ws.Cells(2, 12).Value` 和 `ws.Cells(2, 13).Value` 来获取相应单元格的值。你可以根据你的实际需求修改这些参数。
请记得将以下内容替换为你所需的信息:
- `check`:替换为你想要使用的工作表名称。
- `AA@example.com`:替换为你想要发送邮件的收件人邮箱地址。
- `"问题警报"`:替换为你想要设置的邮件主题。
- `"请注意,满足条件的单元格内容不等于 ""Check ok"""`:替换为你想要设置的邮件内容。
你可以将以上代码复制到 VBA 编辑器中,并在需要的时候运行宏。如果满足条件,将会弹出一个新的 Outlook 邮件窗口,你可以在其中进行进一步编辑和发送。如果你想要自动发送邮件,请取消注释 `.Send` 这一行代码,并注释掉 `.Display` 这一行代码。
相关推荐
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)