Untitled Attachment

[shin0bi]

Outlook 2k3/2k10, use macro :

Sub ForwardAsAttach() 
 
On Error Resume Next 
 
Dim objItem As Outlook.MailItem 
 
If Application.ActiveExplorer.Selection.Count = 0 Then
  MsgBox ("No item selected")
  Exit Sub 
 
End If 
 
For Each objItem In Application.ActiveExplorer.Selection 
 
Set objMsg = Application.CreateItem(olMailItem)
   With objMsg
       .Attachments.Add objItem, olEmbeddeditem
       .Subject = "doccy"
       .To = "doccy@domain.ru"
       .Send
   End With 
 
objItem.Delete 
 
Next 
 
Set objItem = Nothing 
 
Set objMsg = Nothing 
 
End Sub

Every time i get attachment email as "untitled attachment"



Can some1 help with it