如何实现邮箱或微信提醒

大神您好，有了微软365的OUTLOOK邮箱，还要不要注册outlook2016的邮箱，尝试了您给的方案去操作还是不行，不知问题出在哪.....期待您的再次帮助或者远程帮助设置.....谢谢！

您好，电晕你

下午好，这个流程是可能的，仅当您将Outlook用作电子邮件程序时，并且配置QQ邮箱/Outlook邮箱。Aiden.C已退休，当前他无法收到您的问题，此外社区为了保护您的安全，不建议在此处寻求他人的远程协助。目前这个流程我在第三方的博文中看到有人进行了研究。VBA代码是可能的，请参考：

📕-<如果在Excel中修改了某个单元格，该如何发送电子邮件？>

注：这是非微软网站。该页面似乎提供了准确、安全的信息。注意网站上的广告，这些广告可能会宣传经常被归类为PUP(潜在有害产品)的产品。在决定下载和安装之前，请彻底研究网站上广告的任何产品。

请注意在修改代码的时候需要将.To = "Email Address"的Email Address修改成收件人。

此外，我尝试测试并稍微地修改了下，试了下结果。如图：

不知道您指的“Microsoft365的excel工作表中某空列输入“到期”，是否需要指明特定列？此处我测试的是J列，如果您是需要识别特定关键词语“到期”，并且是J列，可以参考下方的代码。如果您有其他需要补充的细节，请与我分享🙂

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 

🔧 使用说明：

• 打开你的 Excel 文件
• 按 Alt + F11 打开 VBA 编辑器
• 在左侧找到目标工作表（例如“工作登记表”）→ 双击
• 粘贴上方代码，一些修改建议，我配合了图片标注了，请参考：

.To = "收件人邮箱@example.com" → 换成你自己的邮箱地址

.Display → 可改为 .Send 实现自动发邮件（不弹出预览）

另外，建议您申请一个Outlook账户。然后使用账户密码就可以直接登录配置到Outlook 2016了，以此可以每次表格发生变动后，就可以实现Outlook发送邮件给您的QQ邮箱（只需要i将收件人邮箱@example.com更换成您的QQ邮箱就行）具体的配置步骤，请参考：添加 Outlook.com 或 Microsoft 365 账户 - Microsoft 支持

ChandyL

大神您好，问题未解决，您可不可以远程协助.....期待您的再次帮助，谢谢！

您好，按您的指导操作，提示未

1.启用VBA宏

2. Set MailItem = OutlookApp.CreateItem(0)这个有错误

3.提示还要登录OUTLOOK 2016版的，用QQ邮箱去登陆不了

大神，请教您该怎么办，期待您的帮助，谢谢！

大神，谢谢指导俺研究了好久都不行，您可不可以电话指导下，谢谢！