unable to save attachment

hello
I've VSTO addin for Outlook 2003.I need to interrupt
MailItem_AttachmentAdd event , save the attachement in temp folder ,
add the filepath of

saved attachment as link in message body of mailitem and remove
Original attachment.below code works for Plain text/HTML format.But it
throws

exception when Rich Text format is selected and word is editor.

CurrentMailItem_AttachmentAdd()

strMyTmpFileName = Attachment.FileName 'throws exception however
Attachment.DisplayName works fine
strMyTmpFilePath = IO.Path.Combine(strMyTmpFilePath, strMyTmpFileName)
'strMyTmpFilePath is Temporary folder path
IO.File.AppendAllText(strMyTmpFilePath, "Uploading Original file... ,
this is a dummy file")
CurrentMailItem.Attachments.Add(strMyTmpFilePath)
IO.File.Delete(strMyTmpFilePath)

strTmpFilePath = IO.Path.Combine(strTmpFilePath, Attachment.FileName)
'strTmpFilePath is another Temporary folder path
Attachment.SaveAsFile(strTmpFilePath)
'throws exception Cannot save the attachment. Outlook cannot do this
action on this type of attachment.

strAttachmentURL = GetAttachmentURL(strTmpFilePath)
CurrentMailItem.Body += vbNewLine + strAttachmentURL

Dim mydeleteThread As New Thread(AddressOf DeleteAttachment)
mydeleteThread.Start(Attachment.FileName)
mydeleteThread = Nothing

Sub DeleteAttachment(ByVal strFilePath As Object)
If CurrentMailItem IsNot Nothing AndAlso bMsgSent = False Then
CurrentMailItem.Attachments
(strFilePath.ToString).Delete()
' throws "Operaion failed" exception When Word is not editor and Rich
text is message format
End If

Besides this it also throws "catastrophic failure" after running
CurrentMailItem_AttachmentAdd() event.
What am I missing?

Thanks

Other than adding try...catch blocks to trap any failures like that I have
nothing to advise on that problem.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"sd" <dshubhangi.DeleteThis@gmail.com> wrote in message
news:0395dd64-326c-4dfa-9a06-ded15226855e@u39g2000pru.googlegroups.com...
> hello
> I've VSTO addin for Outlook 2003.I need to interrupt
> MailItem_AttachmentAdd event , save the attachement in temp folder ,
> add the filepath of
>
> saved attachment as link in message body of mailitem and remove
> Original attachment.below code works for Plain text/HTML format.But it
> throws
>
> exception when Rich Text format is selected and word is editor.
>
> CurrentMailItem_AttachmentAdd()
>
> strMyTmpFileName = Attachment.FileName 'throws exception however
> Attachment.DisplayName works fine
> strMyTmpFilePath = IO.Path.Combine(strMyTmpFilePath, strMyTmpFileName)
> 'strMyTmpFilePath is Temporary folder path
> IO.File.AppendAllText(strMyTmpFilePath, "Uploading Original file... ,
> this is a dummy file")
> CurrentMailItem.Attachments.Add(strMyTmpFilePath)
> IO.File.Delete(strMyTmpFilePath)
>
> strTmpFilePath = IO.Path.Combine(strTmpFilePath, Attachment.FileName)
> 'strTmpFilePath is another Temporary folder path
> Attachment.SaveAsFile(strTmpFilePath)
> 'throws exception Cannot save the attachment. Outlook cannot do this
> action on this type of attachment.
>
> strAttachmentURL = GetAttachmentURL(strTmpFilePath)
> CurrentMailItem.Body += vbNewLine + strAttachmentURL
>
> Dim mydeleteThread As New Thread(AddressOf DeleteAttachment)
> mydeleteThread.Start(Attachment.FileName)
> mydeleteThread = Nothing
>
> Sub DeleteAttachment(ByVal strFilePath As Object)
> If CurrentMailItem IsNot Nothing AndAlso bMsgSent = False Then
> CurrentMailItem.Attachments
> (strFilePath.ToString).Delete()
> ' throws "Operaion failed" exception When Word is not editor and Rich
> text is message format
> End If
>
> Besides this it also throws "catastrophic failure" after running
> CurrentMailItem_AttachmentAdd() event.
> What am I missing?
>
> Thanks