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