change subject and forward without FW:

Status
Not open for further replies.

Itroit

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Exchange Server
Hello,

I'm trying to make a simple rule in OL2016 that will process in outlook, identify certain emails and forward them to a specific address while changing the original subject without FW:

I have this script attached to a rule and it works but when it sends, it adds FW:

Sub ChangeSubjectThenSend()
Dim myolApp As Outlook.Application
Dim aItem As Object

Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder

For Each aItem In mail.Items
aItem.Subject = "OATMEAL"
aItem.Save

Set myForward = aItem.Forward
myForward.Recipients.Add "repository@domain.com"
myForward.Send


Next aItem
End Sub

Any insight would be greatly appreciated!
 
Don't change the subject in the item (unless you need it changed in the original too) - do it after you hit forward.
myForward.Recipients.Add "repository@domain.com"
myForwward.subject = aitem.subject
myForward.Send
 
Thanks for taking the time Diane. Would below be correct in this case? I'm not sure how to edit to your description. Please advise.


Sub ChangeSubjectThenSend()
Dim myolApp As Outlook.Application
Dim aItem As Object

Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder

For Each aItem In mail.Items
aItem.Subject = "OATMEAL"
aItem.Save

Set myForward = aItem.Forward
myForward.Recipients.Add "repository@domain.com"
myForward.subject = aitem.subject
myForward.Send


Next aItem
End Sub
 
Wait, I think I got it... how's this? seems to work ;)


Sub ChangeSubjectThenSend()
Dim myolApp As Outlook.Application
Dim aItem As Object

Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder

For Each aItem In mail.Items
aItem.Subject = "AMD"

Set myForward = aItem.Forward
myForward.Recipients.Add "poattachment@seanet.sea.local"
myForward.Subject = aItem.Subject
myForward.Send


Next aItem
End Sub
 
yes, that will work.

if you need to save the original item with the new subject, you may need to add aitem.save - if you only need to change the subject of the forward, you can use myforward.subject = "AMD" and remove the aitem.subject = "amd" line.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
V rule to Find some words in the subject, change subject then forward Using Outlook 1
M rule to change subject, pull email addresses from body, and forward with templ Using Outlook 14
sjmo2 Change subject for new e-mails only. Outlook VBA and Custom Forms 2
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
C Change Subject Line in Selected Emails Outlook VBA and Custom Forms 1
O On click,I want to change subject line of selected mail and then reply to particular email and move Using Outlook 3
E Button to change subject Outlook VBA and Custom Forms 1
Aussie I Change the Subject Line ... but after it is moved the subject has reverted Using Outlook 1
P Subject change on selected emails Outlook VBA and Custom Forms 14
A Change a subject after I hit send Using Outlook 1
F VBA Code to change subject Like Outlook VBA and Custom Forms 3
J Change Subject of 500 mails sitting in Outbox with Macro Using Outlook 6
P Automatically 'Reply to all', and Change the Subject of Email - Diane P help! Using Outlook 0
A Change subject line of external software using outlook. Using Outlook 1
L Script to: Change subject of email after checking body Using Outlook 2
J Change the subject line of messages in public folders Using Outlook 3
J Public folders woes (script to change subject line of messages) Exchange Server Administration 0
M Change font of from/to/subject block Using Outlook 1
G Change default font size in sticky notes - Outlook Desktop 2021 Using Outlook 2
R Outlook 2021 change view Using Outlook 2
C Change Photo Size of Selected Contacts Outlook VBA and Custom Forms 1
C Mass Change Selected Contact Photos Outlook VBA and Custom Forms 1
M Use Macro to change account settings Outlook VBA and Custom Forms 0
D Unable to change AppointmentItem.Start property Outlook VBA and Custom Forms 3
Horsepower Contact phone numbers randomly change Using Outlook 0
P Outlook 2016 Change Paste Special Default Format Using Outlook 8
whizzard Change FROM address based on TO or CC address Outlook VBA and Custom Forms 8
S Outlook 365 Can I change the possible range of highlighting colours when writing an Outlook email? Using Outlook 1
V Can one change the formatting of email title blocks? Using Outlook 0
S Unable to change Message Class Outlook VBA and Custom Forms 0
S New Outlook Appointment - Select All Body Text and Change Font and Size Outlook VBA and Custom Forms 1
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
C Outlook 365 Can you change the follow up colour? Using Outlook 1
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
E Outlook VBA change GetDefaultFolder dynamically Outlook VBA and Custom Forms 6
O What would be the recommended way to change an email address (family member)? Using Outlook 0
S Change "This Week" flag start date behavior Using Outlook 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
D Change Microsoft Account password - what to do to update on all devices Using Outlook 4
S Outlook 2016 Change how Outlook shows me contacts in emails Using Outlook 0
Witzker HowTo Change message Class of contact form Outlook VBA and Custom Forms 0
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R How to Change Margins In Google Docs...? Using Outlook 0
e_a_g_l_e_p_i Outlook 2010 How can I change the font size on right side appointment pane Using Outlook 12
B Change Font and Font size using VBA Outlook VBA and Custom Forms 9
D Change senders title Using Outlook 1
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0

Similar threads

Back
Top