We help IT Professionals succeed at work.

Outlook BUTTON to forward e-mail and move to deleted items

Medium Priority
417 Views
Last Modified: 2013-11-25
Experts,

I have been looking for a way to create and then deploy an outlook button that will forward the selected email to spam@posini.com and then delete the selected email.

I am have some macro stuff, with and without Redeption, but none seem to do exactly as I want, and doesn't seem deployable to 50+ Outlook Users.

I am open to a commercial tool that will help as well, but I just can't seem to find one.

Thanks!
Comment
Watch Question

Alexei KuznetsovMicrosoft Outlook MVP
CERTIFIED EXPERT

Commented:
How exactly do you need these messages to be forwarded? Is it nesessary to retain original "From", "To" and "CC"? Do you need "Fw:" prefix in the subject?
Glenn MSystems Engineer / Manager

Author

Commented:
Yes, let's keep the forwarded message in it's original form, retaining the original "From", "To" and "CC". I don't need to strip the FW: either, so I hope this keeps things simple enough.
Glenn MSystems Engineer / Manager

Author

Commented:
Thims, what are your solution?
Alexei KuznetsovMicrosoft Outlook MVP
CERTIFIED EXPERT

Commented:
My solution is to use the OutlookFreeware.com's Redirect/Forward/Resend Messages tool. But for now it does not quote messages like Outlook does. But I believe it's quite easy to implement this feature.
Glenn MSystems Engineer / Manager

Author

Commented:
This is not exactly what I am looking for.

I can create a Macro and have it on the Home ribbon. I have the code written already, the problem is I need to be able to mass deploy it to 300 outlook users.

Someone must have created a commercial tool that can create and package for deployment, an outlook button.

Glenn MSystems Engineer / Manager

Author

Commented:
Here is my current Macro coding...
Dim spamaddress As String
Dim objMail As Outlook.MailItem
Dim strbody As String
Dim oldmsg As String
Dim senderaddress As String
Dim addresstype As Integer

' Set this variable as your SPAM SUBMIT e-mail address
spamaddress = "spam@postini.com"

Set objItem = GetCurrentItem()
Set objMail = objItem.Forward

objMail.To = spamaddress

'Automatically Send the Spam
objMail.Send

Set objItem = Nothing
Set objMail = Nothing
End Sub
Sub SubmitAsSpam()

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

Open in new window

CERTIFIED EXPERT
Top Expert 2011
Commented:
I'm afraid outlook does not expose the VBA for external access therefore what you can program on one station needs to be repeated on each.

You can potentially export the code as a module but each instance of outlook will still need it to be imported.

Chris
Glenn MSystems Engineer / Manager

Author

Commented:
Partially resolved.

Explore More ContentExplore courses, solutions, and other research materials related to this topic.