Outlook.com 问题

匿名

大神们您好，QQ邮件现在会触发邮件发送行为了，但是不点击 10列的单元格下不会触发邮件发送的行为

每次都需要点击J10列有“提醒”的单元格了才会触发邮件发送的行为，單元格的“提醒”不是文本，是輸入函數轉換的自動填充的“提醒”，，該怎麼辦，期待您的再次幫助......謝謝.....祝您開心快樂每一天..

锁定的问题。此问题已从 Microsoft 支持社区迁移。你可投票决定它是否有用，但不能添加评论或回复，也不能关注问题。

0 个注释

32 个答案

匿名

2025-05-27T02:04:41+00:00

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

>>>
J10单元格的“提醒”值是函数的值，这个设置是什么代码....
>>>
所以公式把 lcase 放进去了，是不是意味着大小写应该总是正确的？我还是会试试从 if 语句中移除 lcase，看看是否有效。或者把 cell.value 和单词都用 lcase 包裹起来。
此答案是否有帮助?

0 个注释无注释
匿名

2025-05-27T01:59:11+00:00

大神您好，J10单元格的"提醒"值是函数取的值，这种设置什么代码.....恳请您的帮助!
此答案是否有帮助?

0 个注释无注释
匿名

2025-05-26T18:18:46+00:00

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

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

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

0 个注释无注释

匿名

好的，大神以下是代码

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

0 个注释

匿名

2025-05-25T14:28:51+00:00

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

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

你能把代码复制粘贴到帖子里吗？我会在这里测试一下。
此答案是否有帮助?

0 个注释无注释