Help - can't get categories to work!

Status
Not open for further replies.
P

phil baxter

Hi all,

I have cobbled together the following code which is triggered by an incoming e-mail event.

It is supposed to automatically add a category to the e-mail (which is the domain name of the sender e-mail).

The script all executes okay, and it appears to be trying to add the right category.

But no categories actually get added.

Any help gratefully received

Phil

Running Outlook 2003, exchange server.

PS. Tried this post on different forum and got no responses at all. Hopefully you lot on here are a bit better!

------------------------------------------------------------ --
Public Sub SortByDomain(oMsg As MailItem)

'On Error Resume Next

Dim sDomain As String 'The Sender's domain

Dim oNS As Outlook.NameSpace 'My namespace

Dim oInbox As Outlook.MAPIFolder 'My Inbox

Dim oTarget As Outlook.MAPIFolder 'The domain folder

'If it's not your domain, decipher the domain.

If InStr(oMsg.SenderEmailAddress, "[my domain]") < 1 Then

sDomain = Mid(oMsg.SenderEmailAddress, InStr(oMsg.SenderEmailAddress, "@") + 1)

'Debug.Print sDomain

Else

sDomain = "[my domain]"

End If

Debug.Print sDomain

'oMsg.Categories = oMsg.Categories & "," & sDomain

Dim sSt As String

sSt = "Business"

Debug.Print sSt

AddCat oMsg, sSt

Debug.Print sSt

End Sub

Public Sub AddCat(itm As MailItem, catName As String)

arr = Split(itm.Categories, ",")

If UBound(arr) >= 0 Then

' item has categories

For I = 0 To UBound(arr)

If Trim(arr(I)) = catName Then

' category already exists on item

' no need to add it

Exit Sub

End If

Next

itm.Categories = itm.Categories & "," & catName

Else

' item has no categories

itm.Categories = catName

Debug.Print catName

End If

End Sub
 
Your code never calls the itm.Save to make the changes permanent.

Sue Mosher

"phil baxter" <phil[dot]baxter[at]equiteq[dot]com> wrote in message

news:unsn9mBoKHA.1548@TK2MSFTNGP02.phx.gbl...
> Hi all,

> I have cobbled together the following code which is triggered by an
> incoming e-mail event.

> It is supposed to automatically add a category to the e-mail (which is the
> domain name of the sender e-mail).

> The script all executes okay, and it appears to be trying to add the right
> category.
> But no categories actually get added.

> Any help gratefully received

> Phil

> Running Outlook 2003, exchange server.

> PS. Tried this post on different forum and got no responses at all.
> Hopefully you lot on here are a bit better!

> ------------------------------------------------------------ --
> Public Sub SortByDomain(oMsg As MailItem)
> 'On Error Resume Next

> Dim sDomain As String 'The Sender's domain
> Dim oNS As Outlook.NameSpace 'My namespace
> Dim oInbox As Outlook.MAPIFolder 'My Inbox
> Dim oTarget As Outlook.MAPIFolder 'The domain folder

> 'If it's not your domain, decipher the domain.
> If InStr(oMsg.SenderEmailAddress, "[my domain]") < 1 Then
> sDomain = Mid(oMsg.SenderEmailAddress, InStr(oMsg.SenderEmailAddress, "@")
> + 1)
> 'Debug.Print sDomain

> Else
> sDomain = "[my domain]"
> End If

> Debug.Print sDomain

> 'oMsg.Categories = oMsg.Categories & "," & sDomain

> Dim sSt As String

> sSt = "Business"

> Debug.Print sSt

> AddCat oMsg, sSt

> Debug.Print sSt

> End Sub

> Public Sub AddCat(itm As MailItem, catName As String)

> arr = Split(itm.Categories, ",")
> If UBound(arr) >= 0 Then
> ' item has categories
> For I = 0 To UBound(arr)
> If Trim(arr(I)) = catName Then
> ' category already exists on item
> ' no need to add it
> Exit Sub
> End If
> Next
> itm.Categories = itm.Categories & "," & catName
> Else
> ' item has no categories
> itm.Categories = catName
> Debug.Print catName

> End If
> End Sub
>
 
After setting the Categories property, call itm.Save.

HTH,

JP

On Jan 28, 7:59 am, phil baxter <phil[dot]baxter[at]equiteq[dot]com
wrote:
> Hi all,

> I have cobbled together the following code which is triggered by an incoming e-mail event.

> It is supposed to automatically add a category to the e-mail (which is the domain name of the sender e-mail).

> The script all executes okay, and it appears to be trying to add the right category.

> But no categories actually get added.

> Any help gratefully received

> Phil
>
 
Thanks, that's perfect. I'm sure I had something similar in earlier code, but must have lost that call.

Again, thanks. This is massively helpful

JP wrote on Thu, 28 January 2010 08:32
> After setting the Categories property, call itm.Save.

> HTH,
> JP

> On Jan 28, 7:59 am, phil baxter <phil[dot]baxter[at]equiteq[dot]com
> wrote:
> > Hi all,
> > I have cobbled together the following code which is triggered by an incoming e-mail event.
> > It is supposed to automatically add a category to the e-mail (which is the domain name of the sender e-mail).
> > The script all executes okay, and it appears to be trying to add the right category.
> > But no categories actually get added.
> > Any help gratefully received
> > Phil
> >
 
Status
Not open for further replies.
< I have to find the sender's email address | Ribbons and XML-Description >
Similar threads
Thread starter Title Forum Replies Date
S Custom Contact card - need help creating one Outlook VBA and Custom Forms 1
D Lifelong Windows user - new to Mac - Help!!! Using Outlook 3
L Help: set flag for sent mail to check if received an answer Outlook VBA and Custom Forms 2
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 4
I Help with Smart Folder + Query Builder on IMAP Using Outlook 0
S Outlook 2002- "Send" button has disappeared. Help please. Using Outlook 1
A Outlook 2019 Help with forwarding email without mentioning the previous email sender. Outlook VBA and Custom Forms 0
Witzker Outlook 2019 HELP to get Template Path in a Function Outlook VBA and Custom Forms 2
CWM550 Outlook 365 HELP! Calendar Craziness! Using Outlook 5
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Has nobody used Office 2021 enough to help me or have you given up on me.......lol Using Outlook 1
X Open Hyperlinks in an Outlook Email Message (Help with Diane's solution) Outlook VBA and Custom Forms 3
L Help connecting to hosted exchange server 2016 Using Outlook 0
B Seeking help with Outlook rule Using Outlook 2
D Need help with MS Authenticator Using Outlook 4
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S.Champ Please help? I've imported a random workcalendar I dont even know who's. Can I undo it? and then I need to re-sync the google one again. Its a mess:( Using Outlook 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Outlook 2010 Help setting up Gmail account in Outlook 2010 Using Outlook 3
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
Y Filter unread emails in a search folder vba help Outlook VBA and Custom Forms 0
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
F Microsoft Outlook Connector 14.0.6123.5001 - Help! Using Outlook 6
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R Disable conversation thread from replying of recipients in the same subject. Please help Using Outlook 0
R seperate read layout to design in outlook 2016..Help!! Outlook VBA and Custom Forms 3
O Help .. got lost ... installing Office like 2016 Using Outlook 5
A Arthur needs help with 2007 Outlook e-mail Using Outlook.com accounts in Outlook 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
L Attachment saving and tracking - PLEASE help! Outlook VBA and Custom Forms 5
I Help with dates in task list. Using Outlook 5
C need help setting up outlook first time Using Outlook 1
K To do bar help Using Outlook 8
M Help sending email but removing signature via VBA Outlook VBA and Custom Forms 5
S help with outlook scripting Outlook VBA and Custom Forms 4
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
EmelineGueguen Help to understand the problem of work Using Outlook 1
N Outlook Forms Help Outlook VBA and Custom Forms 2
N Need help syncing contacts to iPhone X Using Outlook 8
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
broadbander Needing help with reply/reply all while keeping attachments and adding a new CC recipient. Outlook VBA and Custom Forms 5
J Help! My contacts have disappeared. Using Outlook 5
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
J Help Needed With Multi-Step Login Email Address Using Outlook.com accounts in Outlook 1
G Bcc help - Preventing multiple forwards from a bcc'd distribution group Using Outlook 1
G [Help] Converting array to destination folder path Outlook VBA and Custom Forms 1
K Help.... Office Outlook 2016 Using Outlook 1
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2

Similar threads

Back
Top