KISS
Private
Sub
Application_NewMail()
Call
SaveSetting(
"myMailCounter"
,
"Counter"
,
"Counts"
,
CStr
(
CInt
(GetSetting(
"myMailCounter"
,
"Counter"
,
"Counts"
) + 1)))
End
Sub
Private
Sub
Application_Quit()
MsgBox GetSetting(
"myMailCounter"
,
"Counter"
,
"Counts"
)
End
Sub
Private
Sub
Application_Startup()
Call
SaveSetting(
"myMailCounter"
,
"Counter"
,
"Counts"
,
"0"
)
End
Sub