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.
 
Diane Poremsky

Diane Poremsky

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

Hanan

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server 2010
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
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
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 7
J Outlook search bar in Office 2021 Professional Using Outlook 1
T Outlook 365 Search Box reverting to old location Using Outlook 3
P Outlook 2013 search no longer works Using Outlook 2
C How to search for items in Outbox with multiple accounts? Using Outlook 14
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
T Search for incoming e-mails for a specified time range Using Outlook 1
S outlook 2007 calendar search Using Outlook 6
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
J Message search and edit, another way? Outlook VBA and Custom Forms 4
S Create A Search Folder That Looks For Message Class? Outlook VBA and Custom Forms 0
R Outlook for Mac - Advanced Search and Tracking Sent Emails Using Outlook 0
R Search/Jump to a folder by typing its name Outlook VBA and Custom Forms 1
M Sent mail not showing in Sent Items folder; but they can be found with Search Using Outlook 3
A Outlook 2019 having issues with 'people search' and not making suggestions in email To: etc Using Outlook 12
W Search Incomplete Outlook 2016 Using Outlook 5
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 4
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 0
A Using or not using apostrophes in search terms has this changed? Using Outlook 0
R outlook address book search broken Using Outlook 2
K Outlook.com is not showing, or finding via search, all my Contacts (People) Using Outlook 0

Similar threads

Top