copy field value to custom field

Not open for further replies.


Outlook version
Outlook 2019 64-bit
Email Account
Exchange Server
I'm kind of rusty with VBA (it's been more than a couple of years), and would appreciate any help; we're cleaning up a data entry error.
In OL2019, I want to copy the values in the Anniversary field to a previously created custom field, InvoiceDate.
There doesn't seem to be a way to do this other than programmatically.
Ideally, I'd like to execute this action only for records where the Anniversary value was added or changed after June 1, 2022, but that may be hoping for too much.

I found a likely script on this forum and modified it.
It's throwing an error on the line
objItem.InvoiceDate = objItem.Anniversary
the error is 438, "Object doesn't support this property or method."

I'm guessing it has something to do with the custom field, but if that's correct, I have no idea where to go next.
Any suggestions would be greatly appreciated.

Sub CopyAniversaryToInvoiceDate()

Dim objNS As Outlook.NameSpace
Dim objItems As Items
Dim objItem As Object

Set objNS = Application.Session
Set objItems = objNS.GetDefaultFolder(olFolderContacts).Items

For Each objItem In objItems
' make sure you have a Contact item
If objItem.Class = olContact Then
' copy data
objItem.InvoiceDate = objItem.Anniversary
End If

Set objItems = Nothing
Set objItem = Nothing
Set objNS = Nothing

End Sub
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
C Copy Outlook contact field value to another field Outlook VBA and Custom Forms 1
M Copy "To" Address Value from a Newly Created Email to the "To" Address Field of Custom Form Using Outlook 4
C Move or copy from field to field Outlook VBA and Custom Forms 0
B Outlook Business Contact Manager with SQL to Excel, User Defined Fields in BCM don't sync in SQL. Can I use VBA code to copy 1 field to another? BCM (Business Contact Manager) 0
S Custom Form, copy user field data to message body Outlook VBA and Custom Forms 12
G Copy Contact field to Appointment Custom Form Field Outlook VBA and Custom Forms 2
F copy data in Custom Field to other folder Outlook VBA and Custom Forms 2
L Outlook 2007 Copy Email Address in To Field Using Outlook 11
L Outlook 2007 Copy Text Field Using Outlook 8
D Code Button to Copy Standard Text in Memo (message) Field Outlook VBA and Custom Forms 10
C Copy from one Profile to another Using Outlook 0
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
D Copy Appointment Body to Task Body Outlook VBA and Custom Forms 0
O In Agenda-view - How to copy an existing item months ahead or back? Using Outlook 0
Z Copy specific email body text Outlook VBA and Custom Forms 0
B Need to Copy an email to a subfolder Outlook VBA and Custom Forms 2
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 5
S Copy Tasks/Reminders from Shared Mailbox to Personal Tasks/Reminders Outlook VBA and Custom Forms 0
A Cannot copy this folder because it may contain private items Using Outlook 0
C Copy Move item won't work Outlook VBA and Custom Forms 2
Z VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
Commodore Move turns into "copy" Using Outlook 3
J Copy to calendar function no longer working in outlook 365 Using Outlook 5
F Copy and replace not update contact in another pst Using Outlook 0
Commodore Folders always closed in move/copy items dialog box Using Outlook 3
N Outlook rules don't create a copy for bcc'ed emails Using Outlook 3
geofferyh Outlook 2010 How to Copy Outlook Attachment to a Specific Folder? Outlook VBA and Custom Forms 3
R Copy Outlook Public Folders to a File Server Shared Folder Using Outlook 0
K Outlook Rules: Move a Copy Using Outlook 4
oliv- HOW TO COPY /USE FOLDERS ICONS Outlook VBA and Custom Forms 2
E Copy e-mail body from outlook and insert into excel Outlook VBA and Custom Forms 3
B Copy/Move Exchange inbox to Pop inbox Using Outlook 4
R Sending email copy (*.msg file) of sent email if subject line contains specific string. Outlook VBA and Custom Forms 1
O Copy mails from many subfolders to 1 foldr Using Outlook 2
K ind specific Subject line from outlook and copy the content of the email body to exce Outlook VBA and Custom Forms 0
K How to find specific header and copy the mail body Using Outlook 0
J Copy or Export Outlook Mail to Excel Outlook VBA and Custom Forms 6
G How to Copy Multi Select Listbox Data to Appointment Outlook VBA and Custom Forms 3
Carrie Dickey Outlook 2016 created two calendars titled Calendar1 - appear to be a copy Using Outlook 2
P How to copy and append data from Outlook 2016 message into Excel 2016 workbook Using Outlook 0
Stilgar Relsik Create a rule to copy text from an email and paste it in the subject line. Using Outlook 1
R Macro to copy email to excel - Runtime Error 91 Object Variable Not Set Outlook VBA and Custom Forms 11
H Macro to Copy Specific content from Mail Body and Paste to Excel Outlook VBA and Custom Forms 4
M How to keep reccurence during copy tasks to calendar? Using Outlook 1
Diane Poremsky Copy New Appointments to Another Calendar using VBA Using Outlook 0
Diane Poremsky Use a macro to copy data in Outlook email to Excel workbook Using Outlook 0
C Copy Task to Non-Microsoft PIM "Rainlendar" Using Outlook 0
G VBA Copy draft email to a new email - attachments not copided Using Outlook 7
C Copy email to excel runtime error 5020 Using Outlook 5

Similar threads