Outlook 2013 Script Assistance - Save Opened Link with Subject Added

Status
Not open for further replies.
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


 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
R Script for simplifying spam control Outlook VBA and Custom Forms 8
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
N Outlook 2021 'Run Script" Rules? Outlook VBA and Custom Forms 4
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
W Designer Form 2013 and Script ? how ? Outlook VBA and Custom Forms 1
G print attachment straight away; working script edit not working Outlook VBA and Custom Forms 0
G Save attachment run a script rule Outlook VBA and Custom Forms 0
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
G Script does not exist Outlook VBA and Custom Forms 0
G Trigger script without restaring outlook Outlook VBA and Custom Forms 7
A VBA Script - Print Date between first email in Category X and last email in Category Y Outlook VBA and Custom Forms 3
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
L VB script only runs manually Outlook VBA and Custom Forms 5
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
D.Moore VB script to Digitaly Sign newly created outlook message Outlook VBA and Custom Forms 2
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
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 Using Outlook 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

Similar threads

Back
Top