Attachments - unable to open

Hello, I've created a form that sends out an email with an
attachment, however when I receive the email, I'm unable
to open the attachment. Here is the part of a function
that creates an attachment:
*********************
AssignedItem.save
Set myItem = Application.CreateItem(0)
myItem.Subject = "Assigned Help Task at " & Now()
myItem.Body = "There is a Help Desk task for you at " & chr
(13)

On Error Resume Next
myItem.To = item.userProperties.find("AssignedTo").Value
Set myAttachments = myItem.Attachments
myAttachments.Add AssignedItem, 4
myItem.Send
If err Then
********************

Thank you in advance