Quick question if i may

Status
Not open for further replies.

adaminaus

New Member
Outlook version
Outlook 2010 64 bit
Email Account
IMAP
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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 -

Code:
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

New Member
Outlook version
Outlook 2010 64 bit
Email Account
IMAP
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
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
CWM030 A quick question for Diane about Exchange Exchange Server Administration 2
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
S How to set up button in ribbon for individual Quick Steps Using Outlook 1
V Change default default save location to Quick Access Using Outlook 1
R Quick Access view in File Explorer when saving attachments Using Outlook 0
M font format discrepancies with Quick Parts Using Outlook 1
R Categorize Button in Quick Access Toolbar Disappears on New Email Using Outlook 1
R VBA Script Quick Parts Using Outlook 1
Diane Poremsky Synchronize Quick Access Toolbar and Ribbons? New Slipstick.com Articles 0
C Quick Parts signatures suddenly require more letters Using Outlook 2
S Save in folder other than Sent when replying with Quick Steps Using Outlook 5
R Missing Quick Steps and Rules Using Outlook 0
A Quick Steps in Tasks view Using Outlook 7
J quick quesiton about outlook search Using Outlook 3
iwshim Skype tool bar in quick access ribon Using Outlook 1
B How can I adjust the ribbon width? I want to see all of my Quick Steps. Using Outlook 1
S Have Rule or Quick Step PROMPT for custom FLAG Due/Reminder date Outlook VBA and Custom Forms 3
L Quick step to fill custom field Outlook VBA and Custom Forms 1
B Push Quick Parts to All Users Using Outlook 1
R click to toggle quick click category reasigns to where ? Using Outlook 2
C Further automate several tasks with rule, VBA or Quick Step Using Outlook 1
L Outlook Data Files command not working in the quick access bar Using Outlook 1
S New Quick Step based on Team email QS - automatically update too Using Outlook 1
L Outlook 2010 Quick Print Attachment, nothing happend Using Outlook 0
B quick help with "changed by" field in a shared mailbox?? Using Outlook 3
A Recommend add-on or utility enabling quick Google search within Outlook Using Outlook 7
J Outlook 2010 using Quick Print to print attachments Using Outlook 1
M How can I customize the Follow Up Flag message in Quick Steps? Using Outlook 1
P Outlook closes down after clicking on the quick print icon. Using Outlook 3
S Outlook Quick Steps - Exchange 2003 / Exchange 2010 Exchange Server Administration 2
S Quick Search will not work due to itemizing Using Outlook 1
D Quick Parts - font changes Using Outlook 6
D Quick Parts - font changes Using Outlook 0
S Inserting Dates With Quick Parts (or Macros) Using Outlook 4
S Quick Parts - Changing Display and Order Using Outlook 0
E Blank Print Preview when access via the Quick Access toolbar Using Outlook 3
D How do I get a new mail icon into my quick launch bar? Using Outlook 3
K Quick Print shows wrong date on Occurrences Using Outlook 1
M Quick Parts text disappears Using Outlook 1
J Quick Exchange 2010 install ? Exchange Server Administration 2
R Outlook 2010 Quick Steps - Mark as Read Action and New Mail Notification Using Outlook 1
M Quick steps: feature request: 'direct replies to' when forwarding Using Outlook 1
T Quick start mass e-mail Using Outlook 1
R Quick Tasks - Finish/Save Button Does not Work Using Outlook 8
R sending mail from applications like quick books Using Outlook 1
I Office 2010 Quick Steps Using Outlook 10
T Quick Access Toolbar Using Outlook 3
S Quick access toolbar in inspector window Outlook VBA and Custom Forms 3
D.Moore SendAndReceive question Outlook VBA and Custom Forms 2
J Transport Rule to detect Keyword question.. Exchange Server Administration 2

Similar threads

Top