Outlook.com 问题

匿名

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

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

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

0 个注释

32 个答案

匿名

2025-05-31T02:53:58+00:00

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

>>
我需要编辑并插入两个宏吗？
>>

不。我用了两个宏来演示，如果字段没有变化，第一个宏会重新发送提醒。第二个宏演示了如何检查提醒是否已经发送。

你可以将它发送给我 - ******@slipstick.com
此答案是否有帮助?

1 个人认为此答案很有帮助。

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 个注释无注释
匿名

2025-05-25T13:35:02+00:00

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

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

！
此答案是否有帮助?

0 个注释无注释
匿名

2025-05-25T12:56:55+00:00

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

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

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

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

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

-- 黛安
此答案是否有帮助?

0 个注释无注释