excel - Excel 中的 VBA 宏
问题描述
我试图通过使用下面的代码来提醒我自己的截止日期。在我运行后,它会向我发送电子邮件,用于所有达到日期的情况,但是当我设置另一个截止日期时,如果我不再次运行它就不起作用。请我需要一些帮助。
Option Explicit
Sub email()
Dim r As Range
Dim cell As Range
Set r = Range("A361:A370")
For Each cell In r
If Date - cell.Value = 30 Then
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "Reminder"
Email_Send_From = "rdube02@gmail.com"
Email_Send_To = "rdube02@gmail.com"
Email_Cc = ""
Email_Bcc = ""
Email_Body = "Please remind "
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
End If
Next
Exit Sub
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub
解决方案
推荐阅读
- python - 无法在 Windows 上从 pip 安装 ovirt-engine-sdk-python
- database - 为最大可搜索性建模数据
- mysql - SPATIAL 索引的所有部分都必须为 NOT NULL
- excel - 用于在字符串中查找文本的 Excel 公式,以从同一行中的单元格返回文本
- salesforce - 自定义按钮转到 Salesforce 中的批准/拒绝页面
- http - 使用 GET HTTP 请求多个项目数据
- azure - C# Azure 函数可以创建另一个线程吗?
- node.js - 重定向到另一个页面时 Do..While() 问题 - Puppeteer [NODE.JS]
- javascript - 自定义 javascript 匹配不适用于特定变量
- c# - 我想创建一组场景索引并在需要时使用它。问题是我不知道如何创建数组本身