How to Auto Open All Embedded Hyperlinks when Reading Specific Emails in Outlook

Some users desire that Outlook can automatically open the hyperlinks inserted in the email body when they open and read specific emails. Now, in this article, we will share a method which can realize it with ease.

When opening and reading specific emails, such as vitally important emails from your boss, if the emails contain several hyperlinks, you will definitely open these links. In comparison with opening the embedded hyperlinks manually, making Outlook auto open them will surely be much more convenient. Here we will teach you how to achieve it in detail.

Auto Open All Embedded Hyperlinks when Reading Specific Emails

Auto Open All Embedded Hyperlinks when Reading Specific Emails

  1. To start with, launch the Outlook application.
  2. After entering Outlook window, press “Alt + F11” key shortcuts.
  3. In the subsequent VBA editor window, you need enable “Microsoft VBScript Regular Expressions” object. Hit ‘Tools” and select “References” to achieve it.
  4. Next, open the “ThisOutlookSession” project.
  5. Then, copy the following VBA code into this project.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
 Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 If Inspector.CurrentItem.Class = olMail Then
 Set objMail = Inspector.CurrentItem
 End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As match
    Dim strURL As String
 
    'When opening specific emails
    'From specific persons or marked as important
    If objMail.SenderEmailAddress = "boss@datanumen.com" And objMail.Importance = olImportanceHigh Then
       Set objRegExp = New RegExp
 
       With objRegExp
            .Pattern = "(([0-9a-z=\?:/\.&-^!#$;_])*)"
            .Global = True
            .IgnoreCase = True
       End With

       If objRegExp.Test(objMail.Body) Then

          Set objMatches = objRegExp.Execute(objMail.Body)
          For Each objMatch In objMatches
              strURL = objMatch.SubMatches(0)
 
              'Exclude hyperlinks of email addresses
              If InStr(strURL, "@") = 0 Then
 
                 'Get the Internet Explorer
                 'Change the path as per your own case
                 Shell (Chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & Chr(34) & strURL)
                 DoEvents
              End If
          Next
       End If
    End If
End Sub

VBA Code - Auto Open All Embedded Hyperlinks when Reading Specific Emails

  1. After that, you ought to sign this macro. Click “Tools” > “Digital Signature” to accomplish it.
  2. Next, exit the current window and change your Outlook macro settings.
  3. Ultimately, you need to restart your Outlook to enable the new VBA project.
  4. Since then, every time when you double click on the specific emails to read it in its own Message window, Outlook will auto recognize the hyperlinks in the email body and immediately open them in Internet Explorer.

Never Bypass Outlook Errors

Perhaps you have been subject to assorted Outlook errors. Although eliminating Outlook issues is difficult, you can’t disregard them either. Accumulated errors can lead to serious disasters in Outlook, such as PST damage. Hence, you’d better prepare a formidable external Outlook fix utility, like DataNumen Outlook Repair. It can minimize corruption, thereby extracting maximum PST data with no fuss.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupted mdf and outlook repair software products. For more information visit www.datanumen.com

4 responses to “How to Auto Open All Embedded Hyperlinks when Reading Specific Emails in Outlook”

  1. Хеј, тако сам узбуђена што се мој брак и мој муж вратио након што је мене и наше двоје деце оставио због друге жене. После 8 година брака, мој муж и ја смо се свађали, све док ме коначно није напустио и преселио се у Калифорнију да буде са другом женом. Осећао сам да је мој живот готов и моја деца су мислила да више никада неће видети оца. Трудила сам се да будем јака само за децу, али нисам могла да обуздам болове који су ме мучили, срце ми је било испуњено тугом и болом, јер сам заиста била заљубљена у свог мужа. Мислим на њега сваки дан и ноћ и увек желим да ми се врати, била сам стварно узнемирена и била ми је потребна помоћ, па сам потражила помоћ на мрежи и наишла сам на веб страницу која је сугерисала да ми др Апата може помоћи да се брзо вратим , Па сам осетио да треба да пробам. Контактирао сам га и он ми је рекао шта да радим и ја сам то урадио, а онда је он урадио (љубавну чаролију) за мене. 48 сати касније, мој муж ме је назвао и рекао ми да му ја и деца толико недостајемо, тако невероватно!! Тако да се вратио истог дана, са пуно љубави и радости, и извинио се за своју грешку и за бол који је нанео мени и деци. Тада је од тог дана наш брак сада био јачи него раније, а све захваљујући др АПАТИ. он је тако моћан и одлучио сам да поделим своју причу на мрежи Др. Апата је прави и моћан точак за које ћу се увек молити да дуго живим да помогнем својој деци у невољи ако сте овде и требате свог бившег назад или свог мужа преселио се код друге жене, не плачи више, контактирај овог моћног чаробњака одмах. Ево његовог контакта: Пошаљите му е-пошту на:драпата4@гмаил.цом, можете му послати и Вхатсапп/вибер са овим бројем (+447307347648), хвала

  2. Though online dating is very helpful, it would certainly not be able to do a lot if you are not mindful enough. Quitting ahead of time is too typical amongst men, and this is one of the most significant reasons so numerous fail to obtain much of anything out of on the internet dating. This group has the complying with 2 subcategories, out of 2 overall. State what are you keeping an eye out for, whether a friend or heart companion etc.? If you’ve already signed up with a dating site, or probably are wanting to register for 1, after that here are A few techniques that will certainly get you started on the correct path to productive dating! After signing up on any kind of excellent online dating website, all you need to do is produce a remarkable personal account with a picture. The majority of people are under the impact that if you are utilizing an on the internet dating website, its because you are low-grade as well as as a result should not have any high assumptions of the kind of people you will fulfill below. Specialists supplying online dating Services in London in addition to in various other areas additionally ask to concentrate a lot more on this criterion. The ideal website offers essential options in their services at practical prices to the customers.

    Some of them even use outstanding solutions. You just require a web connection to begin online dating also getting a little time from the busy schedule of your workplace. And also likewise, when you fulfill a person offline, you might recognize a great deal of info regarding that individual beforehand (such as when you ready up by a close friend) or you might understand very little (if, allow’s state, you go out with a person you satisfied briefly at a bar). And when they ultimately meet face to face, they discover it’s just a normal individual like everyone else. In addition they stem from numerous various social as well as economic groups, consequently don’t get concerned worrying your low-level of money as being an obstacle for your internet dating good outcomes – there are an astounding variety of ladies available who ‘d like to satisfy you for just a remarkable time, or possibly a lasting connection having a view to marital life down the track. Just be on your own. Due to the fact that you desire to fulfill individuals in the genuine life and also it will not finish up great if you are not being honest, this is one of the most essential things. When It’s time to produce your online dating account you ought to take much like discuss specific things that will certainly make other individuals what to get to recognize you.

    As hundreds of on-line dating sites are offered today, so do not stress over the choices. Being amusing need to be the very first advice when you are talking to the person for the initial time. Seeking the guidance of your good friends is always a much far better alternative than picking a dating service at random. “Using dating applications should be enjoyable,” Kolmes says. You still have to use your own analysis to the person, no matter of what a computer system states. You still need to neglect information that are typically revealed on the date itself. You require to leave all those memories of the past behind as well as require to neglect all the difficulties. As a result when you date online, you can be positive that unsighted days in their customary sense are a craze of the past. After that you can discover those who have actually had experiences in which they will have exchanged interactions with a person for a while while having actually later uncovered that every point the other individual specified had been false. If you intend to invest a long time enjoyable on your own then you definitely do not wish to choose a casual dating site. Lester composed a popular dating blog in London for several years and has actually considering that worked as a professional for dating firms.

    Which is why we more than happy to provide you this website that uses you an one-of-a-kind opportunity to read nondiscriminatory information on all free dating sites, posted by actual individuals! Now points have transformed as well as not only is it socially acceptable to test these sites, you can quickly expect a truly positive arise from the whole experience. Creating is my pastime, I such as to know the most recent info about Dating and also which I said previously, I browsing all those things on the net, I look into all those and also basis on those result I enjoy to create. Consequently, right here is a checklist of some online dating suggestions which will certainly help you in making your dating experience enjoyable for both you and your equivalent. Here are the chosen guidelines frequently utilized by those that are great in dating. Primarily very same as above but right here are some instances. The same means as in the real world, people on-line will not endure insolence and crude habits, specifically in a personal conversation. These web sites additionally provide an opportunity to market your character the best means.

  3. Men Who Regret Letting A Good Woman vacation Share Their Breakup Stories

    he’d A “Grass should be considered Greener” defining moment

    away from throwawaysaddayz: It started as a tough but amicable breakup that I initiated. I felt I was not ready for a serious long term relationship and was getting ‘grass is greener’ feelings and the relationship was at a lull stage. It was my first the relationship so I didn’t know what these feelings meant or how to navigate them. After a month I came creeping back to her (message) to ask for forgiveness and to ask if we can try again. After what were a hopeful few weeks of texting the proposal was ultimately rejected. In so many people words she said she was too hurt and the trust is too broken. My regret after the breakup stemmed from my feelings telling me all we really needed was time apart and that I took her for granted. That I didn’t actually do anything to fix the problem when we were in a lull. That I didn’t actually be in contact how I was feeling. That love is far from like a Disney movie. That I couldn’t answer what another woman has that she doesn’t? So yeah, these can be all mistakes I will live with. She has stuck true to no contact except a few weeks when I broke contact, [url=htttps://www.linkedin.com/in/charmingdate]charmdate.com[/url] And I had hope of fixing important subjects. Now I am the slow ex who broke her heart and came crawling back only to be kicked to the curb. she gets kept her dignity. i haven’t. My attempt to fix things probably faltered her opinion of me. So now I guess it’s many many lessons learned. And mindful its over. nonetheless I get shreds of hope. But I know it will probably be over. And I know it probably wasn’t intended as, And I know if I did your ex-girlfriend back it would probably be a disaster. And I am only feeling in this method because I’m lonely. exactly what if? doesn’t matter now it’s over. all over about extra. She doesn’t care about you anymore and you don’t matter. She will hire a company soon and she will look back and be happy it never happened. ultimately so will I.

    girls vs. adult, in BisexualsIckiest Dating Advice of YoreMen Regrets About the One Who Got AwaySecrets Men Keep that Women Don Know AboutDating Tips for Men, By WomenThings Women Notice When They Meet a GuyOnline Dating for Men Isn AwesomeThe most difficult things for Men to Explain to WomenWhat Men Should Know About Women Healththey fell for someone elsewarning signs of a toxic partner.

  4. hi there, i am using below code but my requirement is to download to a specific folder instead of browser path.

    Sub OpenLinksMessage(olMail As Outlook.MailItem)
    Dim Reg1 As RegExp
    Dim M1 As MatchCollection
    Dim M As Match
    Dim strURL As String
    Dim URLstr As String
    Dim imgsrc As String
    Dim browserPath As String
    Dim dlpath As String

    browserPath = Chr(34) & “C:\Program Files (x86)\Google\Chrome\Application\chrome.exe” & Chr(34)

    Set Reg1 = New RegExp

    With Reg1
    .Pattern = “(https?[:]//([0-9a-z=\?:/\.&-^!#$%;_])*)”
    ‘ opens all links, false to open first
    .Global = False
    .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)

    ‘ skips links containing the word ‘unsubscribe’
    If InStr(strURL, “unsubscribe”) Then GoTo NextURL

    If Right(strURL, 1) = “>” Then strURL = Left(strURL, Len(strURL) – 1)

    Shell (browserPath & ” -url ” & strURL)

    DoEvents

    NextURL:
    Next
    End If

    Set Reg1 = Nothing
    End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *