Delete lines in Outlook

Status
Not open for further replies.

CarFle

New Member
Outlook version
Outlook 2013 64 bit
Email Account
POP3
I am sure this is more than simple but my VBA is very weak and my brain has gone on strike!

Every month I receive a number of emails to forward on to clients.
I select Forward and add the recipient.

I would then like help with a Macro to do the following:

Remove the last word in the Subject line
Delete the first 9 lines of the forwarded email
Delete the last 13 lines
Send

I have tried recording in Word and then fiddling in Outlook but at this stage I am no longer concentrating. Is anyone able to help?

Many thanks
 
For the subject, use the InstrRev function, and search for the first space (" ") beginning from the end of the subject. The function returns the position, which can be used with the Left function to retrieve the text left of that position.

If it's Outlook 2007 or newer, you can use Word's library to edit the body. Here's an example for how to get the Word.Document object from an email: www.vboffice.net/en/developers/use-word-macro-in-outlook

When you have a ref on the Document, Paragraphs(1) refers to the first paragraph, which can be deleted with Paragraphs(1).Range.Delete
 
If there is always something unique in the line you are keeping that you can search for, like Tracking Number: kjgnoeriounvojdnh you could use regex to find it. But if the paragraphs or lines you want to remove are always the first and last, you can remove them instead.
 
For the subject, utilize the InstrRev capacity, and quest for the main space (" ") starting from the finish of the subject. The capacity restores the position, which can be utilized with the Left capacity to recover the content left of that position.

In the event that it's Outlook 2007 or more up to date, you can utilize Word's library to alter the body. Here's a model for how to get the Word.Document object from an email:

When you have a ref on the Document, Paragraphs(1) alludes to the primary section, which can be erased with Paragraphs(1).Range.Delete
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
D Delete Outlook emails from MS server Using Outlook 12
K How can I delete an e-mail from Outlook Using Outlook 1
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
M Shift Delete doesn't delete email from server Using Outlook 3
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
J Quick steps delete original email and move reply/sent email to folder Using Outlook 2
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Automatically delete messages in the synchronization folder Outlook VBA and Custom Forms 3
O How to delete a forum post? Using Outlook 4
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
C Outlook 2016 Unable to delete Gmail IMAP calendar Using Outlook 2
S Outlook 2016 dont delete inbox item Using Outlook 0
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
R Outlook 365 update sets delete from server flag Using Outlook 1
S Outlook 2016 A Shortcut to recall and delete and sent message. Using Outlook 1
T Outlook 2010 How to Delete “Orphaned” TO DO? ( Not on Exchange Server) Using Outlook 6
P How did hacker cause link to delete and archive containing email? Using Outlook 6
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
J To delete the draft email Using Outlook 2
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 14
A Attachments.Delete Outlook VBA and Custom Forms 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
R Expand VBA Permanent Delete Code Outlook VBA and Custom Forms 6
M Delete headers in Inline reply Outlook VBA and Custom Forms 5
N VBA to delete duplicates by message-id on common pst for 2 or more emails Outlook VBA and Custom Forms 0
S How can I delete all copies of a given companies logo graphic from all my emails at once? Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
D after delete mail, open the next one Outlook VBA and Custom Forms 0
O Delete duplicate emails - subscription notifications Using Outlook 5
F Delete/create/reset Exchange mailbox on Outlook.com Using Outlook.com accounts in Outlook 3
L Email Read and Delete Outlook VBA and Custom Forms 4
H Delete Calendar Entries in Using Outlook 2
D Delete Emails from Senders in Shared Mailbox Outlook VBA and Custom Forms 1
R How to delete Facebook Contacts folder in Outlook 365 Using Outlook 7
R VBA Code to permanently delete selected email Outlook VBA and Custom Forms 10
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5
C How to replace or delete first instance of sentence in mail body? Outlook VBA and Custom Forms 1
Z Can't delete IMAP folder Using Outlook 2
J Delete old emails Exchange Server Administration 1
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
T Delete Emails from search results Outlook VBA and Custom Forms 1
I Outlook 2013 How do I delete a Calendar? Using Outlook.com accounts in Outlook 1
N How to delete default folder "Contacts" (olFolderContacts) in a .pst file Using Outlook 8

Similar threads

Back
Top