Hi, I wonder whether someone may be able to help me please.

Using this link http://www.slipstick.com/developer/c...nding-message/
I've been able to put together the folllowing script which allows me to send a task via an email to chosen recipients.

Public WithEvents myOlApp As Outlook.Application
Private Sub Application_Startup()
    Initialize_handler
End Sub
Public Sub Initialize_handler()
    Set myOlApp = CreateObject("Outlook.Application")
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim intRes As Integer
Dim strMsg As String
Dim objTask As TaskItem
Set objTask = Application.CreateItem(olTaskItem)
Dim strRecip As String
 strMsg = "Do you want to create a task for this message?"
 intRes = MsgBox(strMsg, vbYesNo + vbExclamation, "Create Task")

    If intRes = vbNo Then
      Cancel = False
    Else
    For Each recipient In Item.Recipients
        strRecip = strRecip & vbCrLf & recipient.Address
    Next recipient
With objTask
    .Body = strRecip & vbCrLf & Item.Body
    .Subject = Item.Subject
    .StartDate = Item.ReceivedTime
    .ReminderSet = True
    .ReminderTime = DateSerial(Year(Now), Month(Now), Day(Now)) + #7:23:00 AM#
    .Save
End With
    Cancel = False
    End If
Set objTask = Nothing
End Sub
What I'm now trying to do is amend this slightly so that the task is 'recurring' rather than a 'one off', creating a new task for every Friday at 1.00pm.

I've spent a number of days trying to find a tutorial or solution for this, but I've been unable to do so.

I just wondered whether someone could possibly look at this please and offer some guidance on how I may go about achieiving this.

Many thanks and kind regards