RE: How to save message before the spelling start ?

From: Eric Legault [MVP - Outlook] (elegaultZZZ_at_REMOVEZZZmvps.org)
Date: 03/08/05 

Date: Tue, 8 Mar 2005 07:37:07 -0800

As I said, you cannot automate spell checking in any way, other than trapping
when the user clicks the Spelling menu item or command bar button, and there
is where you can cancel the spell check. However, you cannot interact with
any of the spell check dialogs with the Outlook Object model. You can try
using the VBA SendKeys function to mimic clicking some of the buttons on that
dialog, but SendKeys is always hit and miss.

The bigger issue is why your Outlook installations are crashing during spell
check. Some points:

- upgrade to Office 2000 SP 3
- are you using custom dictionaries?
- does this apply:
http://support.microsoft.com/default.aspx?scid=kb;en-us;241485
- consider opening an incident with MS Product Support

Once your spell check issues are resolved, then you can reliably save the
message with code before sending. 

--
Eric Legault - B.A, MCP, MCSD, Outlook MVP
--------------------------------------------------
{Private e-mails ignored}
Job: http://www.imaginets.com
Blog: http://blogs.officezealot.com/legault/
"Bragu" wrote:
> Hi Eric,
> 
> I had already tryed what you suggest:  trap the send event, but this event 
> is rised after the spellchecking has runned so for me it's to late --> maybe 
> the outlook as already crashed.
> 
> As you say I could repaire my office installation but the problem exist on > 
> 100 PC of my Company so if I found a workround will be better.
> 
> Do you know if there is a way to Know the answer a the spellcheker question: 
> "The spelling check was stopped before it finished. Do you want to send 
> anyay?" when you stop the spell check?
> If I can trap this I resolve my problem using the code I posted and modifing 
> the function:
> 
> Function CheckSpelling()
> ' SpellChecker ID = 2
> 
>     Dim ctrl As CommandBarControl
> '    Set cbrMenuBar = Application.ActiveInspector.CommandBars '("Standard")
>  '   cbrMenuBar.FindControl(, 2).Execute
>     Set ctrl = Application.ActiveInspector.CommandBars.FindControl(, 2)
>     If ctrl.Enabled Then  
>          ctrl.Execute '==== How trap the spelling cancel button ?
>     End If
> End Function
> 
> 
> "Eric Legault [MVP - Outlook]" wrote:
> 
> > Outlook provides no hooks into the spell checking event.
> > 
> > If you want to ensure that messages are saved before sending, one way to do 
> > this without code is to turn on the AutoSave option in Advanced E-mail 
> > Options.
> > 
> > BTW, the Send event is firing after the spell check is run because the user 
> > has clicked Send, which runs spell check first if it is turned on.
> > 
> > If you must use code, simply trap the Send event for all new e-mails and 
> > call the Item.Save event.  See this article on how to hook into this:
> > 
> > Getting a Handle on Your E-mails with VBA: 
> > http://blogs.officezealot.com/legault/articles/2224.aspx
> > 
> > If Outlook is crashing with no code running because of the spell check, you 
> > might want to try running Detect and Repair in Office Setup.
> > 
> > --
> > Eric Legault - B.A, MCP, MCSD, Outlook MVP
> > --------------------------------------------------
> > {Private e-mails ignored}
> > Job: http://www.imaginets.com
> > Blog: http://blogs.officezealot.com/legault/
> > 
> > "Bragu" wrote:
> > 
> > > We have a problem: if we have setted the option to spell the mail before 
> > > sending the outlook, sometimes, crash and we lose the mail.
> > > 
> > > I want to write a macro that save the mail before sending, so if the 
> > > application crash we don't lose the mail.
> > > But the event send of MailItem is rised after the spelling it's runned.
> > > Is there any way to save it before the spelling start ?
> > > 
> > > I wrote a macro (copy from explamples on internet) that work we commandbars 
> > > button (see Sub SaveSpellSend attached ) but it's not a nice way because if 
> > > somebody stop the spell checking  the mail will be sended anyway.
> > > 
> > > Thank's for any help ... and sorry for my english
> > > 
> > > ps: Our system are w2k/ xp with office 2000 SR1 multilanguage pack with all 
> > > the last fix installed.
> > > 
> > > 
> > > 
> > > 
> > > Sub SaveSpellSend()
> > >     Dim objApp As Outlook.Application
> > >     Dim objInspector As Outlook.Inspector
> > >     Dim objItem As MailItem
> > >     Dim strRecipName As String
> > >     Dim flgErr As Integer
> > >     
> > >     flgErr = 0
> > >     On Error GoTo errHandler
> > >     Set objApp = CreateObject("Outlook.Application")
> > >     Set objInspector = objApp.ActiveInspector
> > >     If Not TypeName(objInspector) = "Nothing" Then
> > >        Set objItem = objInspector.CurrentItem
> > >        If objItem.Class = olMail And _
> > >           objItem.Sent = False Then
> > >             objItem.Save
> > >             flgErr = 1
> > >             If CheckSpelling Then
> > >                 objItem.Send
> > >              Else
> > >              MsgBox "Per poter eseguire il controllo ortografico il cursore 
> > > deve trovarsi nel body", vbExclamation
> > >             End If
> > >        End If
> > >     End If
> > >     Set objItem = Nothing
> > >     Set objInspector = Nothing
> > >     Set objApp = Nothing
> > >     Exit Sub
> > > errHandler:
> > >     Select Case flgErr
> > >     Case 1:
> > >         MsgBox "Il messaggio è stato salvato ma non è stato possibile 
> > > eseguire il controllo ortografico", vbInformation, "Check Mail"
> > >     Case 287:
> > >         MsgBox "Mail non spedito come da vostra scelta.", vbInformation, 
> > > "Check Mail"
> > >     Case Else
> > >         MsgBox "Errore : " & "(" & Err.Number & ")" & vbCrLf & 
> > > Err.Description, vbCritical, "Errore nel controllo/invio mail"
> > >     End Select
> > > 
> > > End Sub
> > > 
> > > 
> > > 
> > > 
> > >