DonationCoder.com Software > Post New Requests Here

IDEA - AHK script - Outlook'03 Apply Category Label

<< < (5/7) > >>

PRICET:
This is just fantastic - it transforms my use of Outlook.

Here is another request , if you are up to it ...

I would like to have a second "send" button in outlook.

the second "send" when you click would first bring up the categories dial-up box so you can select categories to assign to an outgoing mail, once you hit OK it would send the mail with the categories assigned.

I would still keep the traditional "send" but have another button with , for example "Send - cats"

Possible or am I dreaming ...?

Many thanks, Tim

r0bertdenir0:
Try adding this procedure to the previous code.
You can try opening a mail item & adding a macro button that links to this procedure:



Public Sub EditCategoriesAndSend()
On Error Resume Next
Dim oItem As MailItem

    Err.Clear
    '**check that we have an inspector window open
    If (ActiveWindow.Class <> ActiveInspector.Class) Then
        Exit Sub
    End If
   
    '**get the item we're viewing
    Set oItem = ActiveInspector.CurrentItem
   
    If (oItem Is Nothing) Then
        Exit Sub
    End If

    oItem.ShowCategoriesDialog
    oItem.Send
   
End Sub

--- End quote ---

PRICET:
Really appreciate it - works great .

Thanks again

PRICET:
Hi ....... is there anyway to invoke the spell checker in this procedure. At the moment it brings up the catergories dialogue and then ok "ok" it sends ... but skips the spell checker

Thanks

r0bertdenir0:
Well you can try to change the lines

    oItem.ShowCategoriesDialog
    oItem.Send

--- End quote ---
to
    SendKeys "{F7}", True
    oItem.ShowCategoriesDialog
    oItem.Send

--- End quote ---

But it will invoke the spellchecker & move on regardless of whether you cancel the spell check.
Outlook doesn't expose a full interface to the spell checker & trying 2 hack it is not worth the effort 4 sumthing like this.
So I suggest use this method & if it becomes a problem, get into the habit of pressing F7 to run spell check yrself, b4 hitting the send button.

Navigation

[0] Message Index

[#] Next page

[*] Previous page