Macro to Add Catgegory to List of Contacts

Status
Not open for further replies.

LMS

Senior Member
Outlook version
Email Account
Exchange Server
I learn there is a code that you put the name of the Category, hightligh a list of Contacts and it adds the Category those contacts....but, you also have to put in the name of the folder the contacts are in......the Contact folder in this code is named "Test" and the Category name is "Test Category". So is there away to change the code so don't have use a specific folder...you can highlight contacts from any folder and then adds the Category name? This way I can have a macro for each Cagegory and then can create a Userform with a droplist of Categories to add where ever I want to: So is the the code to hopefully adjust:

Sub SetCategory()

' specify contact folder
Const strContactFolder As String = "Test"

' specify category to add to each contact item in the folder
Const strCategory As String = "Test Category"

' outlook App object
Dim objOutlook As Outlook.Application

' contact folder object
Dim objContactFolder As Outlook.Folder

' contact item object
Dim objContactItem As Outlook.ContactItem


' error handler

On Error GoTo ErrorHandle:

'set outlook application object
Set objOutlook = New Outlook.Application

With objOutlook.GetNamespace("MAPI")

' confirm the operation or cancel
If MsgBox("Procedure will add the Category [" & strCategory & "] to the folder [" & _
strContactFolder & "]. Do you want to proceed?", vbYesNo) <> vbYes Then GoTo Exiting:

'set contact folder object
With .GetDefaultFolder(olFolderContacts)
Set objContactFolder = .Folders.Item(strContactFolder)
End With

' add Category to each contact item in specified folder
For Each objContactItem In objContactFolder.Items

' check if category already exists for the item
If InStr(1, objContactItem.Categories, strCategory, vbTextCompare) <= 0 Then

' add category
objContactItem.Categories = objContactItem.Categories & "," & strCategory
objContactItem.Save
End If

Next objContactItem

End With


Exiting:
On Error Resume Next

' memory clean up
Set objContactItem = Nothing
Set objContactFolder = Nothing
Set objOutlook = Nothing

Exit Sub


ErrorHandle:

' detailed error message
MsgBox Err.Description
GoTo Exiting:


End Sub
 
So you want to merge this macro with one that goes through all folders?

This line tells it what folder to look in - strContactFolder is hardcoded using a constant, but you could pass it from your other code.

Set objContactFolder = .Folders.Item(strContactFolder)
 
So replace the line : Const strContactFolder As String = "Test"

With the line you just posted?

Please tell me specifically what to change and where
 
No, this line:

Const strContactFolder As String = "Test"

tells the code what folder to use. You need to find a different way to select the folder and save the folder name to strContactFolder variable, so this line can use it.

Set objContactFolder = .Folders.Item(strContactFolder)
 
Thanks very much......and any update re that ealier post?
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
snhnic Macro that does not overwrite but add a number Outlook VBA and Custom Forms 1
A Email Macro to add Date and Classification Outlook VBA and Custom Forms 2
W Macro to add a word in Subject Line Using Outlook 1
L Outlook 2007 Macro to Add Text to a Contact Field Using Outlook 10
W Add to Calendar links - auto accept with macro Using Outlook 1
B Auto BCC VBA macro: how to add exceptions? Using Outlook 28
M How to Create Macro in Visual Basic to add Contacts from Personal Folder Using Outlook 4
E Macro to add text to a Message Outlook VBA and Custom Forms 3
P How do I create a macro to add contacts from email messages? Outlook VBA and Custom Forms 1
D Call add-in method from macro? Outlook VBA and Custom Forms 1
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
mrrobski68 Issue with Find messages in a conversation macro Outlook VBA and Custom Forms 1
G Creating Macro to scrape emails from calendar invite body Outlook VBA and Custom Forms 6
M Use Macro to change account settings Outlook VBA and Custom Forms 0
J Macro to Reply to Emails w/ Template Outlook VBA and Custom Forms 3
C Outlook - Macro to block senders domain - Macro Fix Outlook VBA and Custom Forms 1
Witzker Outlook 2019 Macro to seach in all contact Folders for marked Email Adress Outlook VBA and Custom Forms 1
S macro error 4605 Outlook VBA and Custom Forms 0
A Macro Mail Alert Using Outlook 4
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
J Macro to send email as alias Outlook VBA and Custom Forms 0
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
D Outlook 2016 Creating an outlook Macro to select and approve Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to send an Email Template from User Defined Contact Form Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to check Cursor & Focus position Outlook VBA and Custom Forms 8
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
M Outlook 2019 Macro not working Outlook VBA and Custom Forms 0
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
Geldner Send / Receive a particular group via macro or single keypress Using Outlook 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
V Macro to count flagged messages? Using Outlook 2
sophievldn Looking for a macro that moves completed items from subfolders to other subfolder Outlook VBA and Custom Forms 7
S Outlook Macro for [Date][Subject] Using Outlook 1
E Outlook - Macro - send list of Tasks which are not finished Outlook VBA and Custom Forms 3
E Macro to block senders domain Outlook VBA and Custom Forms 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Line to move origEmail to subfolder within a reply macro Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6

Similar threads

Back
Top