Auto Run a macro or sub on task open

L

LWD3

I have the following sub that works off a button from the tool bar.

Public Sub subInsertDate()
Dim itm As Object
Dim strNote As String
On Error Resume Next

Set itm = Application.ActiveInspector.CurrentItem

If Not itm Is Nothing Then
strNote = itm.Body
itm.Body = Date & " - " & vbCrLf & strNote
End If

Set itm = Nothing

End Sub

How do I get this to auto execute when I open a specific task?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Code not moving through messages 2
Outlook macro for specific email 0
Code worked once only. then stopped. 4
Saving email attachments 6
Create folders in another mailbox 0
Open an Excel file located in a web page - How to open it 0
Form into access 2
Adding outlook mail Subject Line to saved attachment 0

Top