Microsoft Office Tutorials and References
In Depth Information
Creating Reminders Automatically
ErrorHandler:¶
'Critical error¶
MsgBox Err.Number & "-" & Err.Description, _¶
vbOKOnly + vbExclamation, "Error"¶
GoTo ExitSub¶
End Sub¶
Change the file in the body of the task to whatever file is desired and set the
time and the recurring period to appropriate values.
This macro is triggered by the recurring task.
Creating Reminders Automatically
This application shows how to create Task Items, such as eBay auctions,
automatically.
Out
Scenario: EBay auctions expire at a set time. In order to
check an auction for the final bid, a reminder can be set in
Outlook to inform the user that the auction is nearing the
end. While eBay may send you an e-mail hours in advance,
Outlook has the added advantage of being able to provide a
sound notification when a reminder goes off.
View the Appendix to learn how to store this procedure
in a Standard module.
Option Explicit¶
' * * * * *¶
'API Declaration¶
Private Declare Function GetTempPath Lib "kernel32" _¶
Alias "GetTempPathA" (ByVal nSize As Long, _¶
ByVal lpBuffer As String) As Long¶
Private Declare Function URLDownloadToFile Lib "urlmon" _¶
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _¶
ByVal szURL As String, ByVal szFileName As String, _¶
ByVal dwReserved As Long, ByVal lpfnCB As Long) _¶
As Long¶
Private Declare Function InternetOpen Lib "wininet" _¶
Alias "InternetOpenA" (ByVal sAgent As String, _¶
ByVal lAccessType As Long, _¶
ByVal sProxyName As String, _¶
ByVal sProxyBypass As String, _¶
 
Search JabSto ::




Custom Search