Open Hyperlinks in an Outlook Email Message (Help with Diane's solution)

Status
Not open for further replies.

XD225

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
I am trying to use Diane's solution but I am stuck.

I am trying to use your "Open a specific hyperlink" code. Can you let me know if the only thing I need to change is the .Pattern = "View this thread <(.*)>" part of the code? For example if I want to only click a link with the words "Claim Now" I would change my code to .Pattern = "Claim Now <(.*)>"?



As for the If InStr(strURL, "unsubscribe") Then GoTo NextURL section of the code, do I need to use this section to add all other links that I do not want to click on? I noticed that in the example there are 10 links but the author only seem to specify the "unsubscribe" link. For example, if I do not need to click on the link for contact information do I need to add something like If InStr(strURL, "contact-info") Then GoTo NextURL?

Here is what I have at the moment:

' 64bit office use:
'Private Declare PtrSafe Function ShellExecute _
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal Operation As String, _
ByVal Filename As String, _
Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long = vbMinimizedFocus _
) As Long

Sub OpenHyperLinkMessage(Item As Outlook.MailItem) *I had to add this to make is available when creating the rule*
Dim olMail As Outlook.MailItem
Dim Reg1 As RegExp
Dim M1 As MatchCollection
Dim M As Match
Dim strURL As String
Dim lSuccess As Long

Set olMail = Application.ActiveExplorer().Selection(1)

Set Reg1 = New RegExp

With Reg1
.Pattern = "Claim this Case Now <(.*)>" *This is the text of the link in the email*
.Global = True
.IgnoreCase = True
End With

If Reg1.Test(olMail.Body) Then
Set M1 = Reg1.Execute(olMail.Body)
For Each M In M1
strURL = M.SubMatches(0)
Debug.Print strURL
If InStr(strURL, "unsubscribe") Then GoTo NextURL
If InStr(strURL, "referral-preference") Then GoTo NextURL *I do not know if I even need to add this or not to skip a specific link*
If Right(strURL, 1) = ">" Then strURL = Left(strURL, Len(strURL) - 1)

lSuccess = ShellExecute(0, "Open", strURL)

NextURL:
Next
End If

Set Reg1 = Nothing
End Sub





Please advise.



Thank you.
 
Can you let me know if the only thing I need to change is the .Pattern = "View this thread <(.*)>" part of the code? For example if I want to only click a link with the words "Claim Now" I would change my code to .Pattern = "Claim Now <(.*)>"?
That should be the only thing you need to change.

You don't need the other links listed to skip - unsubscribe is listed because the macro "clicks" the link and could unsubscribe you if the links are in a bulk mail.
 
I am having the same issue. The button itself in the email is labeled ACCEPT and nothing works to isolate the url. Additionally once i get the new tab opened I would like to be able to interact with the form shown using VBA. Literally is just a radio button selection them submit.
 
Look at the message source - copy and paste it into a text file and attach it - I'll take a look at it.

 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
N Unable to Open Hyperlinks in Outlook 2010 Using Outlook 3
Jaegel Email Hyperlinks from one source won't open Using Outlook 4
Diane Poremsky Open All Hyperlinks in a Email Message Using Outlook 0
G Get current open draft message body from VBA Outlook VBA and Custom Forms 1
Rupert Dragwater How to get Outlook 365 to open from websites Using Outlook 5
Witzker Outlook 2019 Edit contact from email does not open the user defined contactform Using Outlook 3
S Leaving ActiveExplorer open for editing after Sub is done Outlook VBA and Custom Forms 0
Commodore PDF attachments started to open in Edge Using Outlook 0
T Outlook 2021 Cannot open attachments Outlook DeskTop 2021 Using Outlook 0
S HTML Code Embedded in String Within Open Outlook Email Preventing Replace(Application.ActiveInspector.CurrentItem.HTMLBody From Working Outlook VBA and Custom Forms 4
talla Can't open Outlook Item. Using Outlook 0
O Outlook on Android: after sharing / sending a news article, draft remains open. Why? Using Outlook 1
K Embedded photos no longer open with Photos or Photo Viewer Using Outlook 7
Witzker Open Contact missing in Outlook 2019 Using Outlook 2
L Cannot open PST file for first session each day Using Outlook 6
A How to open a specific link automatically with outlook 2016 Outlook VBA and Custom Forms 6
H Upon opening Outlook, make my popmail inbox open instead of outlook.com inbox Using Outlook 1
sahameed82 SharePoint calendar directly open in Outlook Using Outlook 0
N .pst archive from work will not open/import on Microsoft 365 Exchange Server Administration 0
C Outlook 2016/2019 hangs after being open for an extended period Using Outlook 4
M Where is the setting to *turn off* open calendar in a new window? Using Outlook 3
W Automatically open attachments without automatically printing them Using Outlook 0
Y Open and Save Hyperlink Files in multiple emails Outlook VBA and Custom Forms 9
J How to open OST file in Outlook 2019 & 2016 Using Outlook 1
C Can't Open Outlook 365 Using Outlook 0
D after delete mail, open the next one Outlook VBA and Custom Forms 0
N VBA Script to Open highlighted e-mail and Edit Message Outlook VBA and Custom Forms 5
M outlook won't open! Using Outlook 1
N Open & Save VBAProject.Otm using VBA Code Outlook VBA and Custom Forms 1
E Unable to open Outlook 2010 after adding new email account Using Outlook 4
M other user's mailbox won't open, forms disappeared Using Outlook 42
S SendFromAccount - Problem trying to test existing value in open email Outlook VBA and Custom Forms 2
J Open an outlook email by Subject on MS Access linked table with VBA Outlook VBA and Custom Forms 10
D Add Tetxbox at form open Outlook VBA and Custom Forms 1
U Catching ModuleSwitch events after "open in new window" Outlook VBA and Custom Forms 2
Andrew Quirl Open attachment, manipulate without add-on program? Outlook VBA and Custom Forms 5
S Reminder Dialog Open Button Using Outlook 2
A How to open a specific link automatically with outlook Outlook VBA and Custom Forms 13
S Outlook 2010 Cannot Open Attachments Using Outlook 14
N open the hyperlink in Outlook directly instead of browser Using Outlook 1
S Outlook does not open the .pst file created by the Outlook Using Outlook 5
A open Outlook with multiple windows. Using Outlook 0
K open calendar from address book Outlook VBA and Custom Forms 1
T Double clik behavior on agenda open a new meeting request Using Outlook 1
E Open olNoteItem Attachment Outlook VBA and Custom Forms 6
G Can't open .pst. Message could not access default folder (Outlook 2010 (.pst). Before that was backi Using Outlook 0
I Outlook 2010, 2013 will not open .msg or .eml files Using Outlook.com accounts in Outlook 1
Diane Poremsky Outlook VBA: Work with Open Item or Selected Item Using Outlook 0
O Windows 10 x64 Outlook 2013 - URL does not open (anymore) Using Outlook 3
Hudas VBA find and open an email without looping thru each email in the inbox Outlook VBA and Custom Forms 1

Similar threads

Back
Top