How to add an appointment in outlook plus 24hrs from when activated

  • Thread starter Thread starter Billy Banter
  • Start date Start date
B

Billy Banter

I have the following code which enters an appointment in outlook. What I
want to do now is add the appointment exactly 24hrs ahead when the code was
activated.

Regards Billy
Private Sub Command3_Click()

Dim olApp As Outlook.Application
Dim olNewMeeting As Outlook.AppointmentItem

Set olApp = New Outlook.Application
Set olNewMeeting = olApp.CreateItem(olAppointmentItem)
strDate = Date + 1
strRego = Me.Rego
strClaim = Me.ClaimNumber
strRef = Me.ReferenceNo

With olNewMeeting
.Recipients.Add "(e-mail address removed)"
.Start = strDate
.Duration = 30
.Importance = olImportanceHigh
.Subject = strRego & Chr(32) & strClaim & Chr(32) & strRef
.ReminderMinutesBeforeStart = 1
.Save

End With


End Sub
 
Back
Top