Outlook.com 问题

大神您好，应该怎么设置，您可不可以把设置好的代码发给我复制下使用......期待您的再次帮助......谢谢！

大神您好，9列也是函数公式值，不起作用怎么办......

大神您好，用以下代码都没任何提醒了

StartFragment

Public Sub RunMacroMarkSent()
Dim Target As Range
Application.DisplayAlerts = True

Dim xOutApp As Object
Dim xMailItem As Object
Dim cell As Range
Dim xMailBody As String
Dim KeyColumn As String
Dim CheckValue As String

'On Error Resume Next
'Application.ScreenUpdating = False
'Application.DisplayAlerts = False
' Set the target column (column J = column 10)

'If Target.Column = 10 Then

' find the used range
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

' check the date column
For Each cell In Range("J2:J" & lastrow)

'if already sent email, skip
If Range("K" & cell.Row).Value = cell.Value Then GoTo nextrow

If cell.Value = "Expiration" Or cell.Value = "Reminder" Then

'copy value to next cell so you know email sent
Range("K" & cell.Row).Value = cell.Value

Set xOutApp = CreateObject("Outlook.Application")

Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Reminder:" & vbNewLine & _
"Worksheet:" & Me.Name & vbNewLine & _
"Location: " & Range("C" & cell.Row).Value & vbNewLine & _
"Content: " & cell.Value & vbNewLine & _
"Time:" & Format(Now, "yyyy-mm-dd hh:mm:ss") & vbNewLine

With xMailItem
.To = "******@xxxx.xxx"
.Subject = "?Excel Reminder?Task due reminder!"
.Body = xMailBody
.Display 'Change to .Send to send automatically
.Save
End With

Set xMailItem = Nothing
Set xOutApp = Nothing

nextrow:
End If
Next cell

'Application.DisplayAlerts = True
'Application.ScreenUpdating = True
End Sub

EndFragment

大神您好，J列中的值通过IF函数公式更新了却不会触发自动QQ消息提醒......为什么？

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

宏会查找 J 列中的更改，但您需要运行它，它不是自动的。只要 J 列中的值通过公式更新，它就应该有效。

在我的视频中，我使用了一个简单的演示工作簿，在 J 列中有一个简单公式。我输入（或更改）一个日期来触发 J 列的更新。视频使用的是手动宏 - 您需要自行运行。

原始更改宏仅当通过键入更改 J 列时才有效。

如果需要自动执行，则需要观察输入数据范围内的变化，获取变化的行号并检查该行中的 J 列。