I use OfficeXP Outlook for email. I want to be able to use a macro or
shortcut to
select a message header, then enter a 2-3 key shortcut to forward the
message to
a specific address as an attachment and then delete the original message.
Tools => Macros just brings up the VB editor. I don't know how to use it,
or how
to begin interfacing with Outlook. Is there an easier way, such as a
keystroke
recorder?
--
ArloSmurf

"ArloSmurf" <arlosmurf-(E-Mail Removed)> wrote in message
news:B8685548-8E49-48DA-8EF0-(E-Mail Removed)...
>I use OfficeXP Outlook for email. I want to be able to use a macro or
> shortcut to
> select a message header, then enter a 2-3 key shortcut to forward the
> message to
> a specific address as an attachment and then delete the original message.
> Tools => Macros just brings up the VB editor. I don't know how to use
> it,
> or how
> to begin interfacing with Outlook. Is there an easier way, such as a
> keystroke
> recorder?
> --
> ArloSmurf


No keystroke recorder in OL, so you would have to learn vbscript. But you
can get external windows programs that will do this (google for macro or
keystroke recorder). Unless you can achieve what you need using a rule in OL
--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters

For VBA basics, see http://www.outlookcode.com/d/vbabasics.htm Once you have your macro security set and can get a Hello World message working, you can try putting this code in a new code module:

Sub ForwardA()
Dim objMail As Outlook.MailItem
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "(E-Mail Removed)"
objMail.Display
Set objItem = Nothing
Set objMail = Nothing
End Sub

Sub ForwardB()
Dim objMail As Outlook.MailItem
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "(E-Mail Removed)"
objMail.Display
Set objItem = Nothing
Set objMail = 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
End Select
End Function

ForwardA and ForwardB are macros that each forward the current item to a different person.

For shortcuts, you'll need to add them to your toolbar (View | TOolbars | Customize); see http://www.slipstick.com/outlook/toolbar.htm#macro

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"ArloSmurf" <arlosmurf-(E-Mail Removed)> wrote in message news:B8685548-8E49-48DA-8EF0-(E-Mail Removed)...
>I use OfficeXP Outlook for email. I want to be able to use a macro or
> shortcut to
> select a message header, then enter a 2-3 key shortcut to forward the
> message to
> a specific address as an attachment and then delete the original message.
> Tools => Macros just brings up the VB editor. I don't know how to use it,
> or how
> to begin interfacing with Outlook. Is there an easier way, such as a
> keystroke
> recorder?
> --
> ArloSmurf

Thank you Sue,

I entered this into a new VB code module and saved it, then set it up on my
toolbar
as SPAM -- saves me a few steps each time I use it to report spam to comcast
and the
national spam center.

Sub SPAM()
Dim objMail As Outlook.MailItem
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "missed-(E-Mail Removed); (E-Mail Removed)"
objMail.Display
Set objItem = Nothing
Set objMail = 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
End Select
End Function


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

--
ArloSmurf


"Sue Mosher [MVP-Outlook]" wrote:

> For VBA basics, see http://www.outlookcode.com/d/vbabasics.htm Once you have your macro security set and can get a Hello World message working, you can try putting this code in a new code module:
>
> Sub ForwardA()
> Dim objMail As Outlook.MailItem
> Set objItem = GetCurrentItem()
> Set objMail = objItem.Forward
> objMail.To = "(E-Mail Removed)"
> objMail.Display
> Set objItem = Nothing
> Set objMail = Nothing
> End Sub
>
> Sub ForwardB()
> Dim objMail As Outlook.MailItem
> Set objItem = GetCurrentItem()
> Set objMail = objItem.Forward
> objMail.To = "(E-Mail Removed)"
> objMail.Display
> Set objItem = Nothing
> Set objMail = 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
> End Select
> End Function
>
> ForwardA and ForwardB are macros that each forward the current item to a different person.
>
> For shortcuts, you'll need to add them to your toolbar (View | TOolbars | Customize); see http://www.slipstick.com/outlook/toolbar.htm#macro
>
> --
> Sue Mosher, Outlook MVP
> Author of Configuring Microsoft Outlook 2003
> http://www.turtleflock.com/olconfig/index.htm
> and Microsoft Outlook Programming - Jumpstart for
> Administrators, Power Users, and Developers
> http://www.outlookcode.com/jumpstart.aspx
>
> "ArloSmurf" <arlosmurf-(E-Mail Removed)> wrote in message news:B8685548-8E49-48DA-8EF0-(E-Mail Removed)...
> >I use OfficeXP Outlook for email. I want to be able to use a macro or
> > shortcut to
> > select a message header, then enter a 2-3 key shortcut to forward the
> > message to
> > a specific address as an attachment and then delete the original message.
> > Tools => Macros just brings up the VB editor. I don't know how to use it,
> > or how
> > to begin interfacing with Outlook. Is there an easier way, such as a
> > keystroke
> > recorder?
> > --
> > ArloSmurf
>

Thanks for thehelp John,

I want to use this to report spam -- since the "senders" change
addresses each week, a rule only works for a short time.

--
ArloSmurf


"John Blessing" wrote:

> "ArloSmurf" <arlosmurf-(E-Mail Removed)> wrote in message
> news:B8685548-8E49-48DA-8EF0-(E-Mail Removed)...
> >I use OfficeXP Outlook for email. I want to be able to use a macro or
> > shortcut to
> > select a message header, then enter a 2-3 key shortcut to forward the
> > message to
> > a specific address as an attachment and then delete the original message.
> > Tools => Macros just brings up the VB editor. I don't know how to use
> > it,
> > or how
> > to begin interfacing with Outlook. Is there an easier way, such as a
> > keystroke
> > recorder?
> > --
> > ArloSmurf
>
>
> No keystroke recorder in OL, so you would have to learn vbscript. But you
> can get external windows programs that will do this (google for macro or
> keystroke recorder). Unless you can achieve what you need using a rule in OL
> --
> John Blessing
>
> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
> businesses
> http://www.room-booking-software.com - Schedule rooms & equipment bookings
> for your meeting/class over the web.
> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
> send newsletters
>
>
>