Outlook 2013 Script Assistance - Save Opened Link with Subject Added

Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
Good morning!

I believe that I now have the two "pieces" that I need to achieve my goal.
How do I modify CODE ONE so that it saves the linked object with the Subject Line included?
CODE TWO (below) is the code snippet I think I need for this.

CODE ONE

Code:
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 OpenLinksMessage()

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 = "(https?[:]//([0-9a-z=\?:/\.&-^!#$%;_])*)"

.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 Right(strURL, 1) = ">" Then strURL = Left(strURL, Len(strURL) - 1)



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

DoEvents



NextURL:

Next

End If



Set Reg1 = Nothing

End Sub
CODE TWO

Code:
' get the subject from the header

strTemp = propertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x0070001E")

aItem.Subject = strTemp

  

    Set Reg1 = CreateObject("VBScript.RegExp")

    With Reg1

        .Pattern = "(Subject:\s(.*)\n(.*))"

        .Global = True

    End With

    

    If Reg1.Test(strHeader) Then

    

        Set M1 = Reg1.Execute(strHeader)

        For Each M In M1

        strTemp = M.SubMatches(1)

        Next

    End If

  

      aItem.Subject = strTemp

     iItemsUpdated = iItemsUpdated + 1

    aItem.Save

Next aItem



MsgBox iItemsUpdated & " of " & mail.Items.Count & " Messages Updated"

Set myolApp = Nothing

 
Thread starter Similar threads Forum Replies Date
D.Moore VBA script fail after Office 365 update Using Outlook 8
F Script for zip file attachment Outlook VBA and Custom Forms 1
S Change VBA script to send HTML email instead of text Outlook VBA and Custom Forms 3
Y Outlook 2013 Run A Script Outlook VBA and Custom Forms 4
Z Script to set account? Using Outlook 0
dweller Outlook 2010 Rule Ignores VBA Script Outlook VBA and Custom Forms 2
N VBA Script to Open highlighted e-mail and Edit Message Outlook VBA and Custom Forms 5
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
J Calling a Public sub-routine from the script editor via VB script Outlook VBA and Custom Forms 4
K Outlook Archive to PST Files by Date Range VBA Script? Outlook VBA and Custom Forms 1
Peter H Williams Enable script containing VBA Outlook VBA and Custom Forms 12
H VB script in outlook form doesn't work anymore Outlook VBA and Custom Forms 2
A Script to fetch data from mails in restricted collection and sending them to excel Using Outlook 1
B Wanting to run a script that will filter any body that has a russian link in it. Outlook VBA and Custom Forms 5
Bri the Tech Guy Registry Tweak to make "Run a Script" Action Available Outlook VBA and Custom Forms 2
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
M Subject Line Automation - Trigger Script Delayed Outlook VBA and Custom Forms 2
Q Script to create a pst file for Archiving Using Outlook 1
Vijay Error in rule- Run a script Using Outlook 1
R VBA Script Quick Parts Using Outlook 1
Vijay Run script doesn't work in outlook Using Outlook 1
Q VBA Script to move item in secondary mailbox Outlook VBA and Custom Forms 2
Diane Poremsky Run a Script Rule: Send a New Message when a Message Arrives New Slipstick.com Articles 2
F Avoid sending duplicate using Outlook script Outlook VBA and Custom Forms 2
oliv- How to Run a Script IN AN ADDIN with Outlook's Rules and Alerts Outlook VBA and Custom Forms 2
L Run a Script Rule doesn't work Using Outlook 5
N Outlook script to forward emails based on senders' address Outlook VBA and Custom Forms 2
S using script rule to save attachments on arrival Outlook 2010 Outlook VBA and Custom Forms 9
X Outlook script to run excel data Outlook VBA and Custom Forms 1
N VBA Script to Send Automatic Emails from Outlook 2010 Outlook VBA and Custom Forms 1
Davzell Change default pop3 account with script, prf or registery ? Outlook VBA and Custom Forms 0
D RUN SCRIPT WHEN OUTLOOK IS CLOSE Outlook VBA and Custom Forms 1
L Cannot run script from rule Outlook VBA and Custom Forms 7
O modify vba to run it as script rule Outlook VBA and Custom Forms 8
D Script to parse email and set a task Outlook VBA and Custom Forms 1
L Moving Message Class email via script and Rule Outlook VBA and Custom Forms 3
P How many subs can run in one outlook VBA script Using Outlook 5
H Customizing "Send to" Attachment Script Outlook VBA and Custom Forms 5
G Script in rule to send to multiple emails found in message bo Outlook VBA and Custom Forms 11
Xueying run a script in rules, first time succeed, failed afterwards Outlook VBA and Custom Forms 3
A Creating archive rule on the clients by script/ Outlook VBA and Custom Forms 3
J VBS Script (macro) for word to open Outlook template. Outlook VBA and Custom Forms 2
J Email Parsing VBA Script for Outlook - NEEDED Outlook VBA and Custom Forms 7
P Vba script including macro appears in rules but wont run Outlook VBA and Custom Forms 6
R Adding vba to script list Outlook VBA and Custom Forms 4
O Script to move emails to a folder based on various possible keywords Outlook VBA and Custom Forms 11
Jeff Rott Diane Question on "Use in a Run a Script Rule" Outlook VBA and Custom Forms 1
Stig Arvidsson Need a Script for handling moved mail from inbox Using Outlook 3
F VBA script to highlight specific words Outlook VBA and Custom Forms 1
Similar threads


















































Top