Date   : Tue, 10 Nov 2009 17:13:15 -0000
From   : michael.firth@... (michael.firth@...)
Subject: Who the message is from... Outlook fix

Is this just for Outlook proper, or will it work for Outlook Express too?

Also, is Outlook flexible enough to be able to extract the address to send
to from the "List-Post" header in the messages, rather than having it hard
coded in the macro?

Regards

Michael

> -----Original Message-----
> From: 
> bbc-micro-bounces+michael.firth=bt.com@... 
> [mailto:bbc-micro-bounces+michael.firth=bt.com@...
> .uk] On Behalf Of Mark Usher
> Sent: 10 November 2009 17:08
> To: bbc-micro@...
> Subject: Re: [BBC-Micro] Who the message is from... Outlook fix
> 
> For those who want to create a button in Outlook to Reply to 
> List, here is
> some code for the macro behind it
> 
> -Mark
> 
> Sub Reply_list()
> 
>     Dim objItem As Object
>     Dim objReply As MailItem
>     
>     Set objItem = GetCurrentItem()
>     If objItem.Class = olMail Then
>         ' create the reply, add the address and display
>         Set objReply = objItem.Reply
>         objReply.To = "bbc-micro@..."
>         objReply.Display
>         
>     End If
>     
>     Set objReply = Nothing
>     Set objItem = Nothing
>     
> 
> End Sub
> 
> Function GetCurrentItem() As Object
>     Dim objApp As Outlook.Application
>         
>     Set objApp = Application
>     On Error Resume Next
>     Select Case TypeName(objApp.ActiveWindow)
>         Case "Explorer"
>             Set GetCurrentItem = 
> objApp.ActiveExplorer.Selection.Item(1)
>         Case "Inspector"
>             Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
>         Case Else
>             ' anything else will result in an error, which is
>             ' why we have the error handler above
>     End Select
>     
>     Set objApp = Nothing
> End Function
> 
> 
> 
> > -----Original Message-----
> > From: bbc-micro-bounces+mu.list=aon.at@... 
> [mailto:bbc-
> > micro-bounces+mu.list=aon.at@...] On Behalf Of Andrew
> > Benham
> > Sent: 10 November 2009 16:33
> > To: bbc-micro@...
> > Subject: Re: [BBC-Micro] Who the message is from...
> > 
> > Mick Champion wrote:
> > 
> > > It stays in the same place on my version of TB ( 
> 2.0.0.23). It greys
> > > out when no list is available. Are you using the same add 
> on version
> > > as above? One of the links went to v.0.4.0?? Here is what 
> my version
> > > looks like with no list to reply to ;
> > > http://rs432.net/greyreplylist.JPG
> > 
> > I've just (up|down|left|right)-graded my add-on to v0.4.2 
> (the latest
> > available) and yes, the button is greyed out when not usable.
> > 
> > > Secondly, the reply to list stayed
> > > faded out so back to hitting "reply all", delete your e-mail and
> > > change bbc list field from "cc" to "to" You've got to laugh :-)
> > 
> > I don't see that - reply to list is available for my BBC 
> list messages,
> > no matter how I sent them.
> > 
> > --
> > Andrew Benham           adsb@...
> > Southgate, London N14, United Kingdom
> > 
> > The gates in my computer are AND OR and NOT, not "Bill".
> > 
> > _______________________________________________
> > bbc-micro mailing list
> > bbc-micro@...
> > http://lists.cloud9.co.uk/mailman/listinfo/bbc-micro
> 
> 
> _______________________________________________
> bbc-micro mailing list
> bbc-micro@...
> http://lists.cloud9.co.uk/mailman/listinfo/bbc-micro
>