Screenshot0.pnghttps://filedb.experts-exchange.com/incoming/2015/09_w39/940041/Screenshot0.png

Screenshot0.png

<div>
<div class="content wysiwyg-content">
the following script works if I open the email.<br />
is there a way to use this script when i select the email?<br />
<br />
Public Sub CategoriesButton()<br />
&nbsp; &nbsp;Dim Item As Outlook.MailItem<br />
&nbsp; &nbsp;Set Item = Application.ActiveInspecto<wbr />r.CurrentI<wbr />tem<br />
&nbsp; &nbsp;Item.Categories = &quot;SendMe&quot;<br />
&nbsp; &nbsp;Item.Save<br />
End Sub
</div>
</div>


the following script works if I open the email.
is there a way to use this script when i select the email?

Public Sub CategoriesButton()
   Dim Item As Outlook.MailItem
   Set Item = Application.ActiveInspector.CurrentItem
   Item.Categories = "SendMe"
   Item.Save
End Sub

Outlook Macro question

Microsoft Outlook is a personal information manager from Microsoft, available as a part of the Microsoft Office suite. Although often used mainly as an email application, it also includes a calendar, task manager, contact manager, note-taker, journal, and web browser.

Outlook

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.