Search and delete part of a link inside HTML body message

Status
Not open for further replies.
H

Hanan

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server 2010
I am trying to create a rule to delete part of a link inside an HTML Email message.
The body of the message source code is:

<html><body><style></style> <p style='margin:0cm' dir=rtl bgcolor='#ffffff'><font face='Arial' size='2'> Order <a href = "priority:priform#PORDERS:pO16004270:genigar:C:\Users\hanan\WINDOWS\tabula.ini" ><span dir='ltr'>PO16004270</span></a> </font></p> </body></html>

I have to delete this part: "C:\Users\hanan\WINDOWS\"
out of it.

How can I do that. tried so many codes with no sucsses.
 
The method at How to Change the Font used for Outlook's RSS Feeds should work - instead of changing fonts, you'll replace that phrase with "".
NewFont = C:\Users\hanan\WINDOWS\"
OldFont = ""

That works from a rule (change PostItem to mailitem to use in a rule). To apply it to a selected message, you can use a little stub macro that calls that macro - then select the message and run this stub. It'll bring up the macro that actually does the work.

Code: 
Sub StubMacro()
Dim olMail as Mailitem
Set olMail = Application.ActiveExplorer.Selection.Item(1)
   ChangeRSSFont olMail 
Set OlMail = Nothing
End Sub

you can change the variables names and the macro name so it makes more sense - just make sure you change all instances.
 
Diane Poremsky said:
The method at How to Change the Font used for Outlook's RSS Feeds should work - instead of changing fonts, you'll replace that phrase with "".
NewFont = C:\Users\hanan\WINDOWS\"
OldFont = ""

That works from a rule (change PostItem to mailitem to use in a rule). To apply it to a selected message, you can use a little stub macro that calls that macro - then select the message and run this stub. It'll bring up the macro that actually does the work.

Code: 
Sub StubMacro()
Dim olMail as Mailitem
Set olMail = Application.ActiveExplorer.Selection.Item(1)
   ChangeRSSFont olMail
Set OlMail = Nothing
End Sub

you can change the variables names and the macro name so it makes more sense - just make sure you change all instances.
Click to expand...

Thank you. Works like charm. Just a small fix for your Stub Macro, I had to set the complete pathe to the script. See below:

Code: 
Sub StubMacro()

 Dim olMail As MailItem
 Set olMail = Application.ActiveExplorer.Selection.Item(1)
 Project1.ThisOutlookSession.ChangeTabula olMail
 Set olMail = Nothing
 
End Sub
 
Status
Not open for further replies.
< Use VBA to add <style> tag to Email. | Paste content to Excel when .txt file (attachment) is opened >
Similar threads
Thread starter Title Forum Replies Date
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
T Delete Emails from search results Outlook VBA and Custom Forms 1
M How do I delete Search folders? Outlook VBA and Custom Forms 2
efire9207 Addressbook Search Using Outlook 4
Victor_50 Outlook 365 Quick search by period (today, yesterday, last week) completely missing in newest OL 365 Using Outlook 0
A Outlook 2021 needs 'enter' for people search Using Outlook 2
M Search message, then (1) Jump to folder & (2) Select message that you searched for Outlook VBA and Custom Forms 6
G Search Folders and Jump to Folder Outlook VBA and Custom Forms 2
A 'search people' now asks me to 'press enter' Using Outlook 11
A Relocate Search Bar in Outlook Using Outlook 2
A Search folder and move the email Outlook VBA and Custom Forms 0
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
T How to find or display the sub-folder name for an Archive Search Using Outlook 10
P Search folder: all emails sent to or from a domain Using Outlook 1
T Outlook365 search item listed as "potential matches" can't be opened Using Outlook 0
Victor_50 Outlook 2019 Jump to folder from search folder Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
J Outlook search bar in Office 2021 Professional Using Outlook 1
T Outlook 365 Search Box reverting to old location Using Outlook 2
P Outlook 2013 search no longer works Using Outlook 2
C How to search for items in Outbox with multiple accounts? Using Outlook 20
J search doesn't find anything Using Outlook 1
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
A Any way to force sort by/group by on search results with VBA? Outlook VBA and Custom Forms 1
B Search and Find Email by Folder Name Outlook VBA and Custom Forms 2
C Search not accurate, but not indexing Using Outlook 9
J How do you disable address search box when typing @ in body of email? Using Outlook 0
H Outlook 2019 intermittent search results Using Outlook 0
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2
D Advanced e-Mail search on from/to contact group only searches for first 20 contacts in group Using Outlook 0
mll persistently customise columns in outlook advanced search Using Outlook 3
S vba outlook search string with special characters Outlook VBA and Custom Forms 1
S VBA search string with special characters Outlook VBA and Custom Forms 1
H Search Email Header for Content Type Outlook VBA and Custom Forms 1
P Posts in Folder No Longer Group by Conversation Column After Search Using Outlook 0
O Advanced search - can I use booleans Using Outlook 3
Y Filter unread emails in a search folder vba help Outlook VBA and Custom Forms 0
M Reverting The Outlook Search Box Location (or other undesired additions) Using Outlook 1
M Something went wrong and your search couldn't be completed Using Outlook 1
M Disable Contact Card Results when using "Search People" in Outlook Ribbon Using Outlook 7
J outlook 2007 doesn't let me choose which .pst to search Using Outlook 2
P outlook 2008 search box criteria couldn't be saved Using Outlook 2
C Outlook with Office365 - search across account, by date rate, in multiple folders - how? Using Outlook 2
D Custom Search Folders not refreshing/updating automatically Using Outlook 0
L New Location for the Search Bar Using Outlook 6
T How can you include Junk Email in Search Results like you can include Deleted Items? Using Outlook 3
J Outlook 2016 After a search in all mailboxes, where is each message that was found? Using Outlook 6
King Mustard Sort search groups by amount of items? Using Outlook 1
V Outlook 2016 will not move emails in search results Using Outlook 4

Similar threads

Back
Top