Command button with timer

[email protected] · October 16th, 2009, 07:18 AM

Hi;

I have n button that executes the application obviously, but what I want to do is set a timer so that the timer
execute the application every 15 minutes. Iâve tried with this code but theLabel1 counts to 15 and then a error variable not defined pops up the Interval is set to a 1000 if I take the code out then the application is fine again i dont know what i am missing.

Option Explicit
Dim MinCount As Integer

Sub tmrMinute_Timer()
MinCount = MinCount + 1
Label1.Caption = MinCount
If (MinCount = 15) Then
Call cmdstart_Click
MinCount = 0
End If
End Sub

vb5prgrmr · October 16th, 2009, 09:22 PM

Okay, timer1 is set to an interval of 1000 which is one second. So your code is executing every 15 seconds. If you want to have this run every 15 minutes then you need to set the interval to 60000.

Good Luck

[email protected] · October 19th, 2009, 02:09 AM

Hi thanks for that it runs and then after 15 minutes it execute the cndstart button but then it throws out a variable not defined error âoleasMailItemâ but if I take the timer out and click the cmdstart button then the application runs fine with out errors.

Code:

Option Explicit
Dim MinCount As Integer

Private Sub cmdstart_Click()

If lblMsgA <= 1000 Then
Dim oleasApp As Outlook.Application
   Set oleasApp = CreateObject("Outlook.Application")

Dim oleasNs As Outlook.Namespace
   Set oleasNs = oleasApp.GetNamespace("MAPI")
   oleasNs.Logon

Dim oleasMail As Outlook.MailItem
   Set oleasMail = oleasApp.CreateItem(oleasMailItem)
oleasMail.To = [email protected]
oleasMail.Subject = "VB TEST"
   oleasMail.Body = _
        "Good Day Eason" & ", " & vbCr & vbCr & vbTab & _
        "Please note that your credit is all most finish ." & ", " & vbCr & vbCr & vbTab & _
        "Many Thanks"
   oleasMail.Send

MsgBox "All done...", vbMsgBoxSetForeground
   oleasNs.Logoff
   Set oleasNs = Nothing
   Set oleasMail = Nothing
   Set oleasApp = Nothing
End If
End Sub

Sub tmr_Minute_Timer()
MinCount = MinCount + 1
Label1.Caption = MinCount
If (MinCount = 15) Then
Call cmdstart_Click
MinCount = 0
End If
End Sub

vb5prgrmr · October 19th, 2009, 10:52 AM

Don't know why but from what you have posted, the variable is not defined anywhere...

Good Luck

[email protected] · October 20th, 2009, 02:25 AM

Thanks for the effort I got it sorted I did not have my MAPI reference in place.