unable to save attachment

[sd]

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

 

[Ken Slovak - [MVP - Outlook]]

Other than adding try...catch blocks to trap any failures like that I have

nothing to advise on that problem.

"sd" <dshubhangi@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