Automatización Outlook Access

Estimado Experto:

Recurro a su ayuda por el siguiente motivo: A través del foro de Access, http://www.mvp-access.es/buho/tematico.asp?topico=email. encuentro un aplicación de ejemplo creada por el Señor Juan Cots, en el que es posible automatizar las entradas de Tareas, Citas y Notas desde Access a Outlook. El siguiente código que le voy a mostrar se encuentra dentro en un botón en un formulario que exporta de manera automática las tareas desde Access a Outlook.

Private Sub cmdAddAppt_Click()
On Error GoTo Add_Err
'Sabe record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.Start = Me!ApptStartDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
Set objRecurPattern = .GetRecurrencePattern
With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1
'Once per week
' .PatternStartDate = #12/19/2003#
.PatternStartDate = Me!ApptStartDate
'You could get these values
'from new text boxes on the form.
' .PatternEndDate = #7/23/2003#
.PatternEndDate = Me!ApptEndDate
End With
.Sabe
.Close (olSave)
End With
'Release the AppointmentItem object variable.
Set objAppt = Nothing
End If
'Release the Outlook object variable.
Set objOutlook = Nothing
'Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub

El tema es el siguiente: Este código exporta a outlook, sólo el registro que tenemos activo. ¿Es posible que exporte de una sola vez todos los registros de la tabla Tareas, y que se encuentre en un Módulo en vez del propio Formulario?

Muchas Gracias

Saludos