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
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."
Dim Item As Outlook.MailItem
Set Item = Application.ActiveInspector.CurrentItem
Set Item.SaveSentMessageFolder = objFolder 'no "Item" in this case
Set Item = Nothing
MsgBox "You must chose a folder that contains Mail Items."
Set objFolder = Nothing
Set objNS = Nothing