忘れっぽいので、↓こんなの作ってた。
(defun my-add-popup-timer (mes time) (interactive "sMessage: \nsTime: ") (run-at-time time nil (function (lambda (x) (start-process "popup-message" nil "wscript" "c:/aaa.vbs" x))) mes))
c:/aaa.vbs
Set args = Wscript.Arguments Dim str For Each c in args str = str & c & vbCRLF Next MsgBox str
M-x my-add-popup-timer としてから、Message で入れたメッセージが、Time: 1min とか指定すると、1 分後にポップアップしてくれるというそれだけのもの。2000 以降限定かも。