Outlook.com 问题

我们使用翻译服务协助我们的用户。请原谅语法错误。

这是您需要添加的代码，将值复制到单元格，然后检查它，这样您就不会多次发送消息

对于范围内的每个单元格（“J2：J”&lastrow）

'如果已经发送了电子邮件，则跳过
如果 Range("K" & cell.Row).Value = cell.Value 则
如果结束

如果 cell.Value = "Expiration" 或 cell.Value = "Reminder" 则

'将值复制到下一个单元格，这样你就知道电子邮件已发送
范围（“K”&cell.Row）.值=cell.值

设置 xOutApp = CreateObject("Outlook.Application")

我们使用翻译服务协助我们的用户。请原谅语法错误。

我测试过的完整宏的文本文件在这里 - https:\www.slipstick.com\files\QQmail-macro.txt

因为公式设置的是 J 列的值，所以不需要使用 lcase。复制并粘贴公式中的单词即可确保结果准确。

我没有添加将值复制到新单元格并进行比较的代码。

我更换了

' 设置目标列（J列 = 第10列）
如果 Target.Column = 10 则
对于目标中的每个单元格
如果 LCase(cell.Value) = "Expiration" 或 LCase(cell.Value) = "Reminder" 则

有了这个：

' 查找已使用的范围
lastrow = Cells(Rows.Count，1).End(xlUp).Row
' 检查 J 列
对于范围内的每个单元格（“J2：J”&lastrow）
如果 cell.Value = "Expiration" 或 cell.Value = "Reminder" 则
rowNumber = Range(cell.Address).Row

并使用它从电子表格中获取值以包含在电子邮件中
xMailBody = "提醒：" & vbNewLine & _
"工作表：" & Me.Name & vbNewLine & _
"位置：" & Range("C" & cell.Row).Value & vbNewLine & _
“内容：”&cell.Value&vbNewLine&_
“时间：” & 格式（现在，“yyyy-mm-dd hh:mm:ss”） & vbNewLine

大神您好，代码是上一位大神设置的，俺不懂这些，您可不以把完整代码发一份试用下.....谢谢!

我们使用翻译服务协助我们的用户。请原谅语法错误。

如果您想自动化该过程，则需要使用不同的方法 - 自动打开宏或手动运行宏来检查日期以查看日期是否已过期或提醒。

你可以像这样：

设置 myrange = Range("A1").End(xlDown)

lastrow = myrange.Row

对于 Range("I2:I" & lastrow) 中的每个单元格

如果 cell.Value = Date - 1 或 cell.value = date - 2 则
' 获取行并使用它来生成电子邮件。
' 使用它来获取电子邮件 Range("C" & cell.Row).Value 的单元格值

如果您检查第 10 列的值，则会为所有商品生成一封电子邮件，而不仅仅是新标记为过期的商品。因此，您需要检查包含日期的单元格。

另一个选项是添加已发送电子邮件的列，并让宏在发送电子邮件时将第 10 列的值复制到该列，然后检查该列中是否存在该值。如果存在，则跳过。

大神您好，单元格值是取IF函数的，是不是称为引用单元格鸭....