EXCEL里是否能做到提醒项后指定邮件提醒？

纳通赵建

详细的如附件

zpy2

formula

=HYPERLINK("mailto:email@example.com?subject=Mail from our Website","new")

or send by

=webservice("http://e.anyoupin.cn/eh3/?send2~zpy1_126@126.com~title remider~my workbook has been updatede.anyoupin.cn.")

=if(a2="New",webservice("http://e.anyoupin.cn/eh3/?send2~your email address~title remider~New message.","keep")


Outlook
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim KeyCells As Range

    Set KeyCells = Range("A1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _

           Is Nothing Then

If Range("A1") = "New" Or Range("A1") = "Exit/Term" Then

Dim MyEmail As MailItem

Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail

.To = "<type your recipient email address/ess here>"

.Subject = "<type the subject of your email here>"

.Body = "<type the email message text here>"

.BodyFormat = olFormatHTML

.Display

.Send

End With

End If

End If

End Sub

纳通赵建

zpy2 发表于 2024-3-2 15:07
formula

=HYPERLINK("mailto:email@example.com?subject=Mail from our Website","new")

大佬，能否描述下具体怎么整，小白

zpy2

纳通赵建 发表于 2024-3-2 17:50
大佬，能否描述下具体怎么整，小白

一种就是公式 webservice
另一种vba 调用outlook

闻启学

zpy2 发表于 2024-3-3 08:01
一种就是公式 webservice
另一种vba 调用outlook

亲  公式的 要高级版本才行吧

zpy2

闻启学 发表于 2024-3-3 12:55
亲  公式的 要高级版本才行吧

2013以上就可以了。。。