Shorcut button for Message Options

[t220]

Hi,
I'd like to be able to add two shortcut buttons to the toolbar on a new
mail message. Instead of clicking on Options > Request a read receipt
OR
Options > Save sent items...etc
I'd like to be able to have a button right on the standard toolbar for
each of these two options. It may only save a couple clicks but every
click helps!

Can I do this with VBA since there doesn't appear to be an option in
the available shortcut buttons in "customize"?

It would also be nice to customize where the sent message will be saved
to rather than the default "sent items" folder.

Thanks.

 

[Guest]

The first two things are relatively simple. You need two macros:

Sub DoNotSaveReply()
'Clears the 'Save sent messages to' option in the Message Options dialog
Dim objMessage As Object

Set objMessage = Application.ActiveInspector
objMessage.CurrentItem.DeleteAfterSubmit = True
Set objMessage = Nothing
End Sub

Sub RequestReadReceipt()
'Clears the 'Save sent messages to' option in the Message Options dialog
Dim objMessage As Object

Set objMessage = Application.ActiveInspector
objMessage.CurrentItem.ReadReceiptRequested = True
Set objMessage = Nothing
End Sub

Having sent items saved to a specific folder is a little tricker.

Public Sub SaveReplyToSpecificFolder()
On Error Resume Next

Dim objMessage As Outlook.MailItem
Dim objFolder As Outlook.MAPIFolder, objNS As Outlook.NameSpace
Dim SentItemsFolderID As String
Dim SentItemsFolderStoreID As String

SentItemsFolderID = "00000000796361434A311F408F1D9BA8D935F32802810000"
SentItemsFolderStoreID =
"0000000038A1BB1005E5101AA1BB08002B2A56C200007073747072782E646C6C00000000000000004E495441F9BFB80100AA0037D96E000000433A5C446F63756D656E747320616E642053657474696E67735C657269636C5C4C6F63616C2053657474696E67735C4170706C69636174696F6E20446174615C4D6963726F736F66745C4F75746C6F6F6B5C657269636C6D61696C2E6D7670732E6F72672D30303030303031302E70737400"

If Application.ActiveInspector.CurrentItem.Class <>
Outlook.OlObjectClass.olmail Then Exit Sub
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.GetFolderFromID(SentItemsFolderID,
SentItemsFolderStoreID)
If objFolder Is Nothing Then
MsgBox "Unable to set Sent Message folder."
Exit Sub
End If
Set objMessage = Application.ActiveInspector.CurrentItem
Set objMessage.SaveSentMessageFolder = objFolder

Set objNS = Nothing
Set objMessage = Nothing
Set objFolder = Nothing
End Sub

You can use Outlook Spy (http://www.dimastry.com) to easily get the EntryID
and FolderID values for a specific folder, or use code (navigate to the
folder, use ActiveExplorer.CurrentFolder, etc.). Otherwise, navigate the
NameSpace.Folders collection to retrieve a specific MAPIFolder object.

To map custom toolbar buttons to a macro, choose Macros from the Categories
list in the Commands tab of the toolbar customization dialog, and select the
macro on the right.

 

[t220]

The first two things are relatively simple. You need two macros:

Sub DoNotSaveReply()
'Clears the 'Save sent messages to' option in the Message Options dialog
Dim objMessage As Object

Set objMessage = Application.ActiveInspector
objMessage.CurrentItem.DeleteAfterSubmit = True
Set objMessage = Nothing
End Sub

Sub RequestReadReceipt()
'Clears the 'Save sent messages to' option in the Message Options dialog
Dim objMessage As Object

Set objMessage = Application.ActiveInspector
objMessage.CurrentItem.ReadReceiptRequested = True
Set objMessage = Nothing
End Sub

Having sent items saved to a specific folder is a little tricker.

Public Sub SaveReplyToSpecificFolder()
On Error Resume Next

Dim objMessage As Outlook.MailItem
Dim objFolder As Outlook.MAPIFolder, objNS As Outlook.NameSpace
Dim SentItemsFolderID As String
Dim SentItemsFolderStoreID As String

SentItemsFolderID = "00000000796361434A311F408F1D9BA8D935F32802810000"
SentItemsFolderStoreID =
"0000000038A1BB1005E5101AA1BB08002B2A56C200007073747072782E646C6C00000000000000004E495441F9BFB80100AA0037D96E000000433A5C446F63756D656E747320616E642053657474696E67735C657269636C5C4C6F63616C2053657474696E67735C4170706C69636174696F6E20446174615C4D6963726F736F66745C4F75746C6F6F6B5C657269636C6D61696C2E6D7670732E6F72672D30303030303031302E70737400"

If Application.ActiveInspector.CurrentItem.Class <>
Outlook.OlObjectClass.olmail Then Exit Sub
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.GetFolderFromID(SentItemsFolderID,
SentItemsFolderStoreID)
If objFolder Is Nothing Then
MsgBox "Unable to set Sent Message folder."
Exit Sub
End If
Set objMessage = Application.ActiveInspector.CurrentItem
Set objMessage.SaveSentMessageFolder = objFolder

Set objNS = Nothing
Set objMessage = Nothing
Set objFolder = Nothing
End Sub

You can use Outlook Spy (http://www.dimastry.com) to easily get the EntryID
and FolderID values for a specific folder, or use code (navigate to the
folder, use ActiveExplorer.CurrentFolder, etc.). Otherwise, navigate the
NameSpace.Folders collection to retrieve a specific MAPIFolder object.

To map custom toolbar buttons to a macro, choose Macros from the Categories
list in the Commands tab of the toolbar customization dialog, and select the
macro on the right.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/