如何实现邮箱或微信提醒

您好，电晕你

代码运行之后有出现什么报错吗，还是字段更改了之后不会触发Outlook的邮件发送呢？该代码是识别特定列的字段更改，例如出现“到期”就会触发邮件发送的行为。

如果可以的话，分享下这些细节🙂

你好，电晕你

欢迎来微软社区。

看你的截图，你是想搞安卓上面的Excel设置提醒吗？安卓上面的Excel是做不到的，安卓上的Excel不比Windows，很多功能都受到了限制，比如安卓端就不支持VBA。

如果需要实现你的功能，只能用一些三方的软件，像微软的你可以用Microsoft ToDo，其他的工具比如Zapier或者IFTTT。

不过如果你想要的是Windows上面的邮件提醒，我可以帮你设计🙂

期待你的回复。

最美好的祝愿

Aiden.C - MSFT |微软社区支持专家

你好，电晕你

很久没联系了，问题咋样了呢？如果有问题，可以在回复中提出。

期待你的回复。

最美好的祝愿

Aiden.C - MSFT |微软社区支持专家

你好，电晕你

可以使用这行代码：

按住Alt+F11，打开VBA编辑器，然后找到你的工作表（比如Sheet1），双击打开，然后输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OutlookApp As Object
    Dim MailItem As Object
    Dim cell As Range

    ' 检查是否是J列，如果你是在别的列输入，直接代码里更改即可
    If Not Intersect(Target, Me.Columns("J")) Is Nothing Then
        For Each cell In Target
            If cell.Value = "提醒" Then
                ' 创建Outlook应用对象
                Set OutlookApp = CreateObject("Outlook.Application")
                Set MailItem = OutlookApp.CreateItem(0)

                ' 设置邮件属性，下面输入你的outlook具体邮箱
                With MailItem
                    .To = "[email protected]"
                    .Subject = "提醒通知"
                    .Body = "J" & cell.Row & "单元格已输入提醒"
                    .Send
                End With
            End If
        Next cell
    End If
End Sub

希望以上信息能对您有所帮助。如果您需要进一步帮助，请随时发送信息。

最美好的祝愿

Aiden.C - MSFT |微软社区支持专家

大神您好，想要Windows上面的邮件或微信提醒，期待您的帮助，谢谢！