email - Outlook 2010 VBA Task with attachments

Outlook 2010 VBA, I want to create a task when send an email, but I want to add to the task all the attachments from the email, the code works good but It not add the attachment, I try to use .Attachments.Add (is not supported), .Attachments = item.Attachments return propierty is read only

it is possible? or how can I attach the hole email to the task?

thx

here is the code

Public WithEvents myOlApp As Outlook.Application

Private Sub Application_MAPILogonComplete()

End Sub

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
Dim att As MailItem
Dim objMail As Outlook.MailItem

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

    .Body = item.Body
    .Subject = item.Subject
    .StartDate = item.ReceivedTime
    .ReminderSet = True
    .ReminderTime = DateSerial(Year(Now), Month(Now), Day(Now + 1)) + #8:00:00 AM#
    **.Attachments.Add (item.Attachments)**
    .Save
End With

Cancel = False


End If

Set objTask = Nothing

End Sub