Redemption insert text - Run-time error '-2147467259 (80004005)' Unspecified Error

  • Thread starter Thread starter JW
  • Start date Start date
J

JW

Hi,

Outlook 2003 SP3, Windows XP Pro SP2.

I've written the VBA code below to remove attachments from the
selected email(s) and insert a list of the filenames removed at
the top of the message using the Redemption SafeMailItem and
SafeInspector objects. However it crashes at the line:

olSInsp.SelText = sText

With the error:

Run-time error '-2147467259 (80004005)':
Unspecified Error

If I then click Help it says 'Automation error (Error 440)'.

The program works fine if I step through it in the VBA debugger,
or if I display a message box before the line, i.e. MsgBox ""

Any ideas where I'm going wrong and how to fix it?

Many thanks.

--------------- Start of code -----------------
Option Explicit

Sub Remove_Attachments()
Dim olMailItem As Outlook.MailItem
Dim olSMailItem As Redemption.SafeMailItem
Dim olAttachments As Outlook.Attachments
Dim sText As String
Dim i As Integer

Const removeAttachments As Boolean = False

Set olSMailItem = New Redemption.SafeMailItem

For Each olMailItem In ActiveExplorer.Selection

If olMailItem.Class = olMail Then

olSMailItem.Item = olMailItem
Set olAttachments = olSMailItem.Attachments

If olAttachments.Count > 0 Then

sText = Now() & " removed attachments:" &
vbNewLine & " " & vbNewLine

If removeAttachments Then

'Delete each attachment and create the text
string to insert in the message

While olAttachments.Count > 0
sText = sText & olAttachments(1).fileName
& vbNewLine
olAttachments(1).Delete
Wend

Else

'Testing only. Don't delete attachments -
just create the text string to insert in the message

For i = 1 To olAttachments.Count
sText = sText & olAttachments(i).fileName
& vbNewLine
Next
End If

olSMailItem.Display

InsertText olSMailItem, sText

olSMailItem.Close olSave

End If
End If
Next

End Sub

Private Sub InsertText(olSMailItem As Redemption.SafeMailItem,
sText As String)
Dim olSInsp As Redemption.SafeInspector
Dim olEditButton As Office.CommandBarButton

'On Error Resume Next

'Edit message

Set olEditButton =
Application.ActiveInspector.CommandBars.FindControl(, 5604)
olEditButton.Execute

Set olSInsp = New Redemption.SafeInspector
olSInsp.Item = olSMailItem.GetInspector

'The next line crashes with:
' Run-time error '-2147467259 (80004005)':
' Unspecified Error
'Click Help and it says 'Automation error (Error 440)'
olSInsp.SelText = sText

Set olEditButton = Nothing
Set olSInsp = Nothing

End Sub
--------------- End of code -----------------
 
Hi,

It's called manually by me clicking Tools - Macro and running
Remove_Attachments.

When I run it, the only Outlook window open is the main Outlook
window.

Thanks,
 
Which is why Redemption returns an error - the inspector simply doesn ot
exist as a window when you call olSMailItem.GetInspector

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
It isn't crashing at olSMailItem.GetInspector. It's crashing at
olSInsp.SelText = sText

In any case, I call olSMailItem.Display which opens the mail
message before inserting the text, so the inspector does exist as
a window when I call olSMailItem.GetInspector. I took your
question to mean what windows are open before running the macro.

I can examine olSMailItem in the debugger and all its properties
are there.

Why does it work successfully if I set a breakpoint at

olSInsp.SelText = sText

step through that one line in the debugger? And why does it work
if put MsgBox "" before the olSInsp.SelText line and run it
without breaking into the debugger? This looks like a timing
issue with automation objects to me. I know nothing about
automation so I'm just guessing here.

Any other thoughts/ideas would be much appreciated.

thanks,
 
Correct, the Inspector COM object exists, but hte window (HWND in Win32
language) either does not exist or is invisible by the time you set SelText.
Display is asynchronous, so calling it is not enough, you need to wait a bit
after calling it it.
Are you using the Word editor? Can you turn it off in Tools | Options | Mail
Format?
If you are using a built-in editor, Redemption won't need to search for a
window since inspectors expose the IOleWindow interface (Word editor window
does not).

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Yes, Outlook is using the Word 2003 editor. I turned it off as
you said, however exactly the same error still occurs at:

olSInsp.SelText = sText

Your mention of asynchronous gave me the idea of putting DoEvents
before that line and .....success!! It now inserts the text and
runs to completion.

One slight issue however, is that the inserted text is in the
same font as the first line of the email message. I will
research this problem and in the meantime if you know how to
insert the text or otherwise change its font so that it's always
in Arial 10 I would be very grateful. These emails are in HTML
format. Obviously this issue doesn't arise for plain text
emails.

Thanks for all your help.
 
I've now got the olHTMLEditor part working, but the olRTFEditor
part (using Redemption RTFEditor) isn't inserting any text. This
case statement is arrived at when processing a message created
using Rich Text format (not using Word editor).

Here's the code:

Private Sub InsertLines(olSMailItem As Redemption.SafeMailItem,
sLines() As String)
Dim olEditButton As Office.CommandBarButton
Dim olSInsp As Redemption.SafeInspector
Dim olRTFEditor As Redemption.RTFEditor
Dim wdDoc As Word.Document 'Requires
Microsoft Word Object Library reference
Dim mDoc As MSHTML.HTMLDocument 'Requires
Microsoft HTML Object Library reference
Dim mElement As MSHTML.IHTMLElement

'On Error Resume Next

Set olSInsp = New Redemption.SafeInspector
olSInsp.Item = olSMailItem.GetInspector

Select Case olSInsp.EditorType

Case olEditorHTML

'Edit message

Set olEditButton =
Application.ActiveInspector.CommandBars.FindControl(, 5604)
olEditButton.Execute

DoEvents

Set mDoc = olSInsp.HTMLEditor
Set mElement = mDoc.Body.all(0)

mElement.insertAdjacentHTML "beforeBegin", _
"<P style=""font-family: Arial; font-size: 10pt;
color: blue"">" & _
Join(sLines, "<BR>") & _
"</P>"

Case olEditorRTF

'-- This correctly inserts the text lines in default
font (Arial 10pt black), but I want them to be in
'-- Arial 10pt blue
'olSInsp.SelText = Join(sLines, vbNewLine) & " " &
vbNewLine

'-- Therefore use Redemption RTFEditor
'-- This should insert the text lines in Arial 10pt
blue, but it doesn't insert any lines
Set olRTFEditor = olSInsp.RTFEditor
olRTFEditor.RTFSelText = Join(sLines, vbNewLine) & "
" & vbNewLine
olRTFEditor.SelAttributes.Name = "Arial"
olRTFEditor.SelAttributes.Size = 12
olRTFEditor.SelAttributes.Color = vbBlue

Case olEditorText

olSInsp.SelText = Join(sLines, vbNewLine) & " " &
vbNewLine

Case olEditorWord

'-- UNTESTED
Set wdDoc = olSInsp.WordEditor
wdDoc.Characters(1).InsertBefore Join(sLines,
vbNewLine) & " " & vbNewLine

Case Else

MsgBox "Unrecognised EditorType: " &
olSInsp.EditorType & vbNewLine & vbNewLine & _
"Unable to insert text in message"

End Select

End Sub


Any ideas why the RTFEditor code above isn't inserting any lines?

Also, how do I create email messages in olEditorWord format to
test that? So far the 3 types of message format (HTML, RTF and
Plain Text) I've been able to create are handled by their
respective case statements.

thanks,
 
Does it work if you replace DoEvents with MsgBox?
Is that using the Word editor or the builtin editor?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
As I said, the case where olSInsp.EditorType = olEditorHTML is
working, so your question about replacing DoEvents in that part
of the code doesn't really apply. It's when VBA thinks the
EditorType is olEditorRTF and that part of the code is executed
that no lines are being inserted.

The messages are created in Rich Text format using the built-in
editor.
 
Ok, so olSInsp.SelText works, but olRTFEditor.RTFSelText does not, right?
Are you sure you have a valid RTF string? What is it? I do not see where you
set it in your code.
Why are you setting RTFSelText? You can set olSInsp.SelText, then just apply
the formatting like you already do.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Hi Dmitry,

I thought I had to use RTFSelText instead of SelText because it
seemed logical that RTFSelText goes with the RTFEditor, and the
one bit of example code from you I found at

http://groups.google.com/group/microsoft.public.outlook.program_vba/msg/1c40f1f6a7e188d8

also shows that.

But thanks to another clue this part's working now! Although you
say set olSInsp.SelText and then apply the formatting, it only
works if I do the opposite.

Code:

Case olEditorRTF

'Must set the text attributes first using Redemption
RTFEditor and then insert the text

Set olRTFEditor = olSInsp.RTFEditor
olRTFEditor.SelAttributes.Name = "Arial"
olRTFEditor.SelAttributes.Size = 10
olRTFEditor.SelAttributes.Color = vbBlue
olSInsp.SelText = Join(sLines, vbNewLine) & " " &
vbNewLine

sLines is an array of strings passed into this subroutine from
Remove_Attachments, similar to the subroutine I originally
posted. The strings just contain normal printable ASCII
characters - nothing fancy, no embedded control characters etc.

Does anyone know how to create an email message so that I can
test the case where olSInsp.EditorType = olEditorWord? So far
all the messages I've created using different combinations of the
compose message format (HTML, RTF or plain text) and the Outlook
editor (Word 2003 or built-in editor) are trapped by either
olEditorHTML, olEditorRTF or olEditorText. I want to ensure that
my program works correctly regardless of the email message format
or the user's Outlook - Tools - Options - Mail Format settings.

Thanks again,
 
You can check if SafeInspector.WordEditor is not null, and use it regardless
of anything else.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Do you mean like:

If Not olSInsp.WordEditor Is Nothing Then
Set wdDoc = olSInsp.WordEditor
wdDoc.Characters(1).InsertBefore Join(sLines, vbNewLine)
& " " & vbNewLine
End If

The trouble is, olSInsp.WordEditor is always nothing, in the same
way that olSInsp.EditorType is never olEditorWord.
 
You don't need to read the EditorType property. As long as WordEditor is not
null, you should be eable to use the Word Object Model to manipulate the
text.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Back
Top