Les Landau, a reader from Australia, wants to use Outlook VBA to change the reply address for an outgoing message. Of course, in the Microsoft Outlook user interface (UI), which Figure 1 shows, he can change the reply address on a message's Options dialog box by typing the new address into the Have replies sent to: field—but that is a lot of clicking and typing. In this installment of Outlook VBA on Demand, I show you how to change the current message's reply address by adding a macro to an Outlook toolbar button. I also provide some useful techniques for getting input from a user and working with recipients.
Listings 1 and 2 present two versions of the necessary core code. Listing 1 provides a user option through which you specify the reply address you want to use, whereas Listing 2 calls a function—Listing 3's GetReplyAddress()—that prompts the user to enter an address (or the name of a Microsoft Exchange Server mailbox) every time. You might run Listing 1's ChangeReplyAddrNoPrompt procedure for the reply address that you use most frequently, and you might use Listing 2's ChangeReplyAddrWithPrompt procedure to specify a less commonly used reply address. Both Listing 1 and Listing 2 pass the current message and the reply address as arguments to AddReplyRecip, which is the procedure you see in Listing 4, page 158. AddReplyRecip updates the message with the new reply address.
The Outlook message property that contains a custom reply address is the ReplyRecipients property. If you press F2 in the Outlook VBA window to look up ReplyRecipients in the Object Browser, which Figure 2, page 158, shows, you might be discouraged that the item appears as "read-only," and you might incorrectly assume that you can't modify the reply address. However, remember that ReplyRecipients is a collection—a group of similar objects. You can't directly modify the ReplyRecipients collection (which is why Object Browser lists it as read-only), but you can use the collection's methods to modify the collection. Virtually every collection in Outlook lets you use the Add method to add a new item. In Listing 4, for example, you add a new recipient to the ReplyRecipients collection by providing the Add method with the name or address as an argument:
Set objReplyRecip = _ colReplyRecips.Add(strName)
To ensure that this reply recipient has a valid address, Listing 4 uses the Resolve method to try to resolve the address for the objReplyRecip Recipient object. (This action is the rough equivalent of clicking Check Names in the UI.) If the address doesn't resolve, the procedure uses the Delete method to delete objReplyRecip and gives you the opportunity to try again.
An important component of many programs is getting information from a user. Listing 3 shows one of the simplest techniques to do so, the InputBox() function, which uses the following syntax:
strText = InputBox(
, _ , _ )
InputBox() returns a text string. The only required argument is the prompt. You can omit the title and the default text. Here are a few tips for using InputBox:
- Build the prompt argument as a separate string variable. Doing so will make your program easier to debug.
- When you want to put text in quotation marks, use the Quote() function. You'll find the Quote() function in Listing 5.
- The prompt can include as many as 1000 characters. To make long prompts easier to read, use vbCrLf & vbCrLf to insert a blank line, and divide the prompt into paragraphs. (The vbCrLf constant built into VBA represents a carriage return and line feed.)
- Test the string that the InputBox() function returns to determine whether the string is empty. The user might have clicked OK in the dialog box that InputBox() presents without typing in anything.
You can also use the MsgBox() function to get user input. Other procedures use MsgBox() simply to display a message to a user. When you use MsgBox() as a function in your code, you can specify the buttons it displays. MsgBox() returns an integer that tells you which button a user clicked. The basic syntax is
intRes = MsgBox(
, _ , _ )
As with InputBox(), the prompt is the only argument that the MsgBox() function requires. For the buttons argument, you can combine built-in Visual Basic (VB) constants. The MsgBox() example that you see in Listing 4 puts the Yes and No buttons on the message box, adds a question mark icon, and sets No as the default.
You now have two more useful Outlook VBA macros to add to your collection. You also know how to use the Add method on a Recipients collection to add a new address and the Delete method on an individual Recipient to remove it from its parent collection. Finally, you've seen how to use the InputBox() and MsgBox() functions to get simple responses from a user.