如果K1,L1,M1三個單遠格內容不等于"Check ok "則發郵件給AA,用VBA怎麼表達
时间: 2023-08-11 18:08:48 浏览: 31
您可以使用以下的VBA代码来实现这个功能:
```vba
Sub SendEmail()
Dim K1 As String
Dim L1 As String
Dim M1 As String
Dim recipient As String
Dim subject As String
Dim body As String
' 获取单元格的值
K1 = Range("K1").Value
L1 = Range("L1").Value
M1 = Range("M1").Value
' 检查条件是否满足
If K1 <> "Check ok" And L1 <> "Check ok" And M1 <> "Check ok" Then
recipient = "AA@example.com" ' 收件人邮箱地址
subject = "Check failed" ' 邮件主题
body = "Check failed in cells K1, L1, and M1" ' 邮件内容
' 创建Outlook应用程序对象
Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")
' 创建邮件对象
Dim outlookMail As Object
Set outlookMail = outlookApp.CreateItem(0)
' 设置邮件属性
With outlookMail
.To = recipient
.Subject = subject
.Body = body
.Send ' 发送邮件
End With
' 释放对象
Set outlookMail = Nothing
Set outlookApp = Nothing
End If
End Sub
```
请将代码中的"AA@example.com"替换为实际的收件人邮箱地址,并根据需要修改邮件主题和内容。此代码假定您已经安装了Outlook并且已经登录了您的邮箱账户。