Results 1 to 5 of 5
  1. #1
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Dallas, Texas, USA
    Posts
    1,680
    Thanks
    0
    Thanked 1 Time in 1 Post

    Forwarding (OL 2000 SP-3 (9.0.0.6627)

    I am constantly forwarding company e-mail from my laptop to my personal desktop PC. I'd rather work with spreadsheets, etc. on the bigger, better , faster machine... Is there a way to create a custom toolbar button on the laptop Outlook that would forward the selected message to a designated email address?

    I just do this so much that I'm looking for a shortcut... Currently, I have to highlight the message, click Forward, type in my own email address (or click To... and select from a list) and then finally, click Send. If I could just click one custom button that would automatically present the Forward dialog with my email address already in the To...field, then click Send, that would get my needed messages to me in two clicks!

    I already have several known reports and docs set to auto forward via message rules, but every now and again, I receive messages to the Inbox that are not covered by the rules...that's where the 2-click method would be nice.

    One other (less interesting) alternative is to have the current Forward button have a default email address in the To... field.

    Thanks,
    - Ricky

  2. #2
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Forwarding (OL 2000 SP-3 (9.0.0.6627)

    Try this:

    Sub FowardHome()
    Dim item As Object
    Dim itmFwd As Object
    Dim recipMe As recipient
    On Error Resume Next
    If TypeName(Application.ActiveWindow) = "Explorer" Then
    Set item = ActiveExplorer.Selection(1)
    Else
    Set item = ActiveInspector.CurrentItem
    End If
    On Error GoTo 0
    If Not item Is Nothing Then
    Set itmFwd = item.Forward
    With itmFwd
    Set recipMe = .Recipients.Add("ricky@home.com")
    recipMe.Resolve
    .Save
    .Send
    End With
    Else
    MsgBox "Nothing selected"
    End If
    Set item = Nothing
    End Sub
    -John ... I float in liquid gardens
    UTC -7ąDS

  3. #3
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Dallas, Texas, USA
    Posts
    1,680
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Forwarding (OL 2000 SP-3 (9.0.0.6627)

    Wow! Thanks John. That works just fine. But it does lead to another question, if I may...

    I have attached the code to a button on my toolbar.

    When I select a msg and click the new button, I immediately get an Outlook security window: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this?".... When I click Yes, I get another security message: "A program is trying to automatically send e-mail on your behalf. Do you want to allow this?" I click Yes again and all is okay.

    It's a little thing and probably somewhat necesary, but it there a way to circumvent the security questions? I already operate through a VPN with all kinds of security and firewalls and anti-virus, etc. I don't think that the additional security offered by Outlook is really needed.

    Thanks,
    - Ricky

  4. #4
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Forwarding (OL 2000 SP-3 (9.0.0.6627)

    Yeah, it's a pain. Install ClickYes.
    -John ... I float in liquid gardens
    UTC -7ąDS

  5. #5
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Dallas, Texas, USA
    Posts
    1,680
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Forwarding (OL 2000 SP-3 (9.0.0.6627)

    Got it. Thanks.
    <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>
    - Ricky

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •