Forwarding Outlook mail from the main Inbox

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want to forward e-mails to a specific person without opening the e-mail. I
want to be able to select it in my inbox, read it through the preview pane
then send it to a specific person without having to type in an address. I
can forward it when it is open but can't do this from the main inbox. Any
help would be greatly appreciated.

Harry Merkin
 
Right-click on it adn select forward?
You still need to enter the email address to forward it to but you need to
do that with an open email anyway.
 
Actually you don't. I used this VB script to set up an address to forward to
but this only does it when the e-mail is open not when it is merely selected
in the inbox.

On Error Resume Next
Set ThisItem = Application.ActiveWindow.CurrentItem
Set Fwditem = ThisItem.Forward
Fwditem.To = "(e-mail address removed)"
Fwditem.HTMLBody = "Here's more for you." & vbCrLf & HTMLBody
Fwditem.Send
Fwditem.Delete

I think there is a variable in the first line that I could set but ZI don't
know which one or what parameters to use. Can anyone help?
 
that's obvious. you need the item opened to use the script. You could try
VBA and activate it via a toolbar button.
 
Thanks Sue But I'm still a little confused where to put that new script.
Heres what I have

Sub SendHome()
Dim objApp As Outlook.Application
Set objApp = Application
'Set objApp = CreateObject("Outlook.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
On Error Resume Next
'Set ThisItem = Application.ActiveInspector.CurrentItem
Set ThisItem = Application.ActiveWindow.CurrentItem
Set Fwditem = ThisItem.Forward
Fwditem.To = "(e-mail address removed)"
Fwditem.HTMLBody = "Here's more for you." & vbCrLf & HTMLBody
Fwditem.Send
Fwditem.Delete

Obviously I'm just not getting this. any help would be appreciated.


End Sub
 
You need to copy the GetCurrentItem() function to your code module and call it any time you want to return the current item, e.g.:

Set ThisItem = GetCurentItem()
Set Fwditem = ThisItem.Forward
' etc.
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
OK, I'm still not sure where this goes in the code. And wht do I need to put
in the ()?
 
OK, I'm still not sure where this goes in the code.

It goes before any code that works with the current item.The idea is to use the GetCurrentItem() function to return the current as an object that subsequent code can then act upon, as in the snippet I posted earlier as an example.
And wht do I need to put in the ()?
Click to expand...

NOthing. Look again at the usage example for the GetCurrentItem() function.
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Hello,

We're a small company and we're setting up automatic forwarding rules. Is there a way to have a message forwarding without making any changes in the header?

For example, if a message is sent to employee1, is there a way to forward that message to boss1 without adding-on the heading info that it is "To Boss1" and "from Employee1"?

Because it is ACTUALLY from Customer1, and Boss1 is annoyed that the heading says that it is from Employee1 rather than Customer1. She doesn't care that it was forwarded, so is not interested in that info.

There doesn't seem to be any obvious way to do this. Do you know of any?
 
Back
Top