Outlook Spellcheck (Outlook 2003)

[richardbarrett]

I've written an outlook macro which works beautifully. "Send & File" (code below) interrupts the Send process and asks the user to pick a folder for the sent message to be stored in. There's just one glitch.... although we have "always spellcheck before sending" turned on, spellcheck does not kick in when this code is used. I don't find any spellcheck method or spellchecked property for a mail item. Am I overlooking something, or is this how Outlook intends things to be?

Thanks, Richard Barrett

Sub SendAndFile()
Dim objNS As NameSpace
Dim objInBox As Outlook.MAPIFolder
Dim objFolder As MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objInBox = objNS.GetDefaultFolder(olFolderInbox)

Set objFolder = objNS.PickFolder
' Verifiy that a folder has been chosen and that it is a mail folder (0)
If TypeName(objFolder) <> "Nothing" And _
objFolder.DefaultItemType = 0 Then
If objFolder.StoreID <> objInBox.StoreID Then
MsgBox "You must Save to a Personal folder."
GoTo DisableToFalse
End If

Dim Item As Outlook.MailItem
Set Item = Application.ActiveInspector.CurrentItem
Set Item.SaveSentMessageFolder = objFolder 'no "Item" in this case
Item.Send
Set Item = Nothing
Else
MsgBox "You must chose a folder that contains Mail Items."
End If
Set objFolder = Nothing
Set objNS = Nothing
End Sub

[HansV]

The VBA object model in Outlook is limited to basic manipulation of items. Many of the features that are available in the interface are not exposed in VBA; spell checking is one of them.

[richardbarrett]

I actually succeeded with this by 'finding' the Spell Check control under the Tools menu and using the .Execute method. It works very well. (Code below.)

I had a bit of trouble with this until I realized that the inspector must have focus in Windows, not simply be the active inspector in Outlook. In other words, this can't be run successfully from the VBE.

Sub SpellCheck()
On Error Resume Next
Dim ctrl
Set ctrl = ActiveInspector.CommandBars("Tools").FindControl(I D:=2)
ctrl.Execute
End Sub

[JohnBF]

Good tip. This can be boiled down to:

ActiveInspector.CommandBars.FindControl(ID:=2).Exe cute

[richardbarrett]

Oh... I didn't realize that the specific command bar item was not required. I suppose the ID is unqique, so it doesn't matter where it is.

Thanks.