Macro to Add Catgegory to List of Contacts

Status
Not open for further replies.

LMS

Senior Member
Outlook version
Outlook 2007
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
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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)
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
So replace the line : Const strContactFolder As String = "Test"

With the line you just posted?

Please tell me specifically what to change and where
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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)
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
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 8
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
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
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
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 4
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
V macro runs slower on startup than after Outlook VBA and Custom Forms 3
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
G VBA Macro Using Outlook 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
R Macro Schedule every day in Outlook Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
N How can I increase/faster outlook VBA Macro Speed ? Using Outlook 2
4 Macro to set the category of Deleted Item? Outlook VBA and Custom Forms 2

Similar threads

Top