Access to Outlook Calendar for Alert Message Reminders (1 Viewer)

Sippy

New member
Joined
Sep 10, 2013
Messages
2
I have a form which updates a table containing employee names and email addresses. The form contains employees with different training certificates and includes the date of issue and expiry date. The form is filled in after an employee has taken training and sends an MS Outlook Calendar reminder to my computer with a 6-week notice before the expiry date so re-training can be scheduled. I cannot figure out how to alter the VBA code so it sends the outlook reminder to the employee via their email address entered in the table and not to my computer. Any ideas? Here’s my code:
Code:
Private Sub SendOutlookReminder_Click()
' Save record first to be sure required fields are filled.
Me.Dirty = False
' Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment already added to Microsoft Outlook"
Exit Sub
' Add a new appointment.
Else
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = Me!ExpiryDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!CertificateName
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!SchoolName) Then .Location = _
Me!SchoolName
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
.Save
End With
End If
' Release the Outlook object variable.
Set outobj = Nothing
' Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
Me.Dirty = False
MsgBox "Appointment Added!"
Exit Sub
AddAppt_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub
 

Users Who Are Viewing This Thread (Users: 0, Guests: 1)

Top Bottom