Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: Microsoft Exchange
Expertise: Beginner
Aug 9, 2000



Application Security Testing: An Integral Part of DevOps

Adding Message to Forwarding E-mail

My company wishes to do some special e-mail forwarding. Is there a way to take an incoming message, place a message at the top or in the subject line, and then forward this as one message?

If it's o.k. for Outlook to be running at the time, you could create a VBA macro that does this pretty easily. Just create the code in the NewMail event to do something like this:

Set oNS = Outlook.Application.GetNamespace("MAPI")
    Set oInbox = oNS.GetDefaultFolder(6)
    Set oMsg = oInbox.Items.GetFirst()
    Set oFwd = oMsg.Forward
    oFwd.Body = "[Insert your text here]" & vbLf & vbLf & oMsg.Body
    Set oFwdRecip = oFwd.Recipients.Add("[insert recipient addresses here]")
Note that this will only work while Outlook is running. If you're good at VB Script you could do something similar and have it run server-side.
DevX Pro
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date