Quick question if i may

[adaminaus]

Hi guys, this may be easy i hope.
I am send email to a group of mobile phones as our paging service will txt for us but this cost is massive where as the pager is cloned (yes i know pager old school)

I am trying to find a script to do the following
Email arrives i forward the email taking the body and replacing the subject

Example

Email arrives

subject -
Copy of page message (to 92523)

Body
81 IS OUT OF AREA FOR REMAINDER OF AFTERNOON. SIGNED ADAM.
​

This will auto forward as a rule (working great) but i need the body to become the subject so it will send out this the body can just stay blank. or have the old information that's fine.

subject -
81 IS OUT OF AREA FOR REMAINDER OF AFTERNOON. SIGNED ADAM.

Body
​

 

[Diane Poremsky]

You can do that using VBA - start here http://www.slipstick.com/outlook/rules/run-script-rule-change-subject-message/

Is that text the only thing in the body? if so, it should be fairly straightforward -

Sub ChangeSubjectForward(Item As Outlook.MailItem)
Set myForward = Item.Forward
myForward.Recipients.Add "alias@domain.com"
myforward.subject = item.body
myForward.Send
End Sub

if there is more text and it's the first line, you'll need a little more code, but its still doable.

 

[adaminaus]

That seems to work will need to wait for a live test over the next 24hrs but so far so good .
Thanks heaps for your help

 

[adaminaus]

Diane,
This works great
if i want to send to more than one what is the changes required?
"alias@domain.com";"alias@domain.com"
will that work?

 

[Diane Poremsky]

Use that format in one string - "alias1@domain.com;alias2@domain.com"
BTW, i mistyped - while it will work without parens, you should use them:
.Recipients.Add("alias@domain.com")
you can also use myforward.to = "alias1@domain.com;alias2@domain.com"