用VBA代码编写当A1格不为空时发送邮件给小明,当A2格不为空时发送邮件给闪闪,当A3格不为空时发送邮件给弟弟,当A4格不为空时发送邮件给菲菲
时间: 2024-05-12 17:19:13 浏览: 26
以下是用VBA代码编写当A1格不为空时发送邮件给小明,当A2格不为空时发送邮件给闪闪,当A3格不为空时发送邮件给弟弟,当A4格不为空时发送邮件给菲菲的示例代码:
```
Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strTo As String
Dim strSubject As String
Dim strBody As String
'检查A1格是否为空,如果不为空则发送邮件给小明
If Range("A1") <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strTo = "xiaoming@example.com"
strSubject = "关于" & Range("A1").Value & "的事情"
strBody = "您好," & vbCrLf & vbCrLf & _
"这是关于" & Range("A1").Value & "的一些信息。" & vbCrLf & vbCrLf & _
"谢谢!"
With OutMail
.To = strTo
.Subject = strSubject
.Body = strBody
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
'检查A2格是否为空,如果不为空则发送邮件给闪闪
If Range("A2") <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strTo = "shanshan@example.com"
strSubject = "关于" & Range("A2").Value & "的事情"
strBody = "您好," & vbCrLf & vbCrLf & _
"这是关于" & Range("A2").Value & "的一些信息。" & vbCrLf & vbCrLf & _
"谢谢!"
With OutMail
.To = strTo
.Subject = strSubject
.Body = strBody
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
'检查A3格是否为空,如果不为空则发送邮件给弟弟
If Range("A3") <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strTo = "didididi@example.com"
strSubject = "关于" & Range("A3").Value & "的事情"
strBody = "您好," & vbCrLf & vbCrLf & _
"这是关于" & Range("A3").Value & "的一些信息。" & vbCrLf & vbCrLf & _
"谢谢!"
With OutMail
.To = strTo
.Subject = strSubject
.Body = strBody
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
'检查A4格是否为空,如果不为空则发送邮件给菲菲
If Range("A4") <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strTo = "feifei@example.com"
strSubject = "关于" & Range("A4").Value & "的事情"
strBody = "您好," & vbCrLf & vbCrLf & _
"这是关于" & Range("A4").Value & "的一些信息。" & vbCrLf & vbCrLf & _
"谢谢!"
With OutMail
.To = strTo
.Subject = strSubject
.Body = strBody
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
```
注意:在使用该代码前,需要在VBA编辑器中打开“工具”菜单,选择“引用”,勾选“Microsoft Outlook Object Library”。同时,需要将邮件地址和邮件内容修改为实际情况。