Outlook 2k3/2k10, use macro :
Every time i get attachment email as "untitled attachment"
Can some1 help with it
Code:
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