Outlook.com 问题

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

你好，我是黛安，今天很高兴能帮助你。

看起来，当第 10 列中的任何值发生更改时（在您按 Tab 键退出或单击其他字段后），该宏应该在所有单元格上运行。然后，它应该在该列中包含值的所有行上运行。

但是只有单击 J10 时它才有效，单击其他单元格时它不会运行？

让我知道进展如何，如果需要的话，我会在这里为您提供进一步的帮助。

-- 黛安

大神您好，是的，只有单击J10 时它才有效自动触发邮件提醒功能，想不去单击J10单元格也能

自动触发邮件提醒功能，怎么实现这个功能，该怎么办.....恳请大神帮助指点.....谢谢.....顺祝你开心快乐每一天！

！

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

当您在列中的任何单元格中输入值并制表时，它应该运行。

你能把代码复制粘贴到帖子里吗？我会在这里测试一下。

好的，大神以下是代码

Private Sub Worksheet_Change(ByVal Target As Range)

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  

' 设置目标列（J列 = 第10列） 

If Target.Column = 10 Then 

    For Each cell In Target 

        If LCase(cell.Value) = "到期" Or LCase(cell.Value) = "提醒" Then 

            Set xOutApp = CreateObject("Outlook.Application") 

            Set xMailItem = xOutApp.CreateItem(0)  

            xMailBody = "提醒：" & vbNewLine & \_ 

                        "工作表：" & Me.Name & vbNewLine & \_ 

                        "位置：" & cell.Address(False, False) & vbNewLine & \_ 

                        "内容：" & cell.Value & vbNewLine & \_ 

                        "时间：" & Format(Now, "yyyy-mm-dd hh:mm:ss") & vbNewLine & \_ 

                        "用户：" & Environ$("username")  

            With xMailItem 

                .To = "收件人邮箱@example.com" 

                .Subject = "【Excel提醒】任务到期提醒！" 

                .Body = xMailBody 

                .Display  '改为.Send 可自动发送 

            End With  

            Set xMailItem = Nothing 

            Set xOutApp = Nothing 

        End If 

    Next cell 

End If  

Application.DisplayAlerts = True 

Application.ScreenUpdating = True 

End Sub

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

测试之前我注意到的第一件事就是这一行。
如果 LCase(cell.Value) = "Expiration" 或 LCase(cell.Value) = "Reminder" 则

您使用了 lcase，但要匹配的单词却是大写。通常情况下，您应该使用小写字母。或者，请移除大小写检查。