Fantastic Code. You pull through yet again, Sue.
My only problem is that I get a security popup, it mentions something like a macro trying to access email addresses. I will try to find a way around this. In the meantime, if anyone else knows how to fix I would greatly appreciate the advice (I tried creating a certificate).
To the last anonymous poster; It hade bean nice if you learn to speel.

Anonymous User 6/7/2005 2:37:09 PM

It hade bean nice if you tell how to put your code in to outlook.

Anonymous User 4/7/2005 5:29:41 AM

Do you need all 4 lists if there is a fixed reply email address?

Anonymous User 4/1/2005 12:26:29 PM

Hello,

Can I display the text on the inputbox like a p***word ?

Julio.

Anonymous User 2/1/2005 4:18:04 PM

Replying to tricky amazon emails is covered here:

http://www.321books.co.uk/ebooks/outlook-vba-tutorial.htm



mal4mac9/17/2004 3:51:35 AM

Dan, what you might do is have a macros that you use only to reply to items in the other mailbox. That macro would set a different reply address.

SUE8/19/2004 6:44:14 PM

Gerry, the reply address for an account is set in the registry entries for that account or by the Exchange administrator. It's not accessible from Outlook objects.

SUE8/19/2004 6:43:12 PM

Is there any way to change the reply to address depending on what mailbox you are replying from. Eg. If I reply to an e-mail in my Inbox then the reply to is me, if I reply to an e-mail in a delegates mailbox, then the reply to is from the delegate.

Dan6/3/2004 8:51:30 AM

Is there a way that I can use a similar process to premanently set the reply to address without user interaction? Or maybe so that they are asked only once when the initially start Outlook?

Larry5/27/2004 9:53:30 AM

Thanks Sue - works a treat. This code just makes setting to a constant easier without multiple subs etc. Mind you use only once per message.

Sub ChangeReplyAddrNoPrompt()
Dim objApp As Application
Dim objItem As MailItem
Dim colReplyRecips As Recipients
Dim objReplyRecip As Recipient
Dim strRecipName As String

Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem

' ### USER OPTION - specify reply address ###
strRecipName = "bous@nowhere.man"


If objItem.Class = olMail And _
objItem.Sent = False Then

Set colReplyRecips = objMsg.ReplyRecipients
Set objReplyRecip = colReplyRecips.Add(strRecipName)
objReplyRecip.Resolve

End If

Set objItem = Nothing
Set objApp = Nothing
End Sub

Paul5/2/2004 8:26:00 PM