Outlook 2003 VBA Won't Run In Outlook 2010

Status
Not open for further replies.

GeoffD

New Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
I created a macro for inserting a date and time stamp on the front end of an e-mails subject, see below for code. The purpose of the macro is to time stamp the subject of each individual email in a folder (eg. the Inbox), so that they can be dragged and dropped into a hard drive / server / dvd folder and will then be listed in chronological order, dependent upon when they were sent.

After updating to Outlook 2010 from 2003, the code which used to operate flawlessly now falls over on the "mItem.Save" line, giving an error message:

Run-time error '-2147221239 (80040109)':

The operation cannot be performed because the message has been changed.


I'm assuming the command has been modified or updated but would be grateful for any assistance in debugging? The code reads:


Sub AddDateToSubject()
Dim mItem As Object
Dim oFolder As Object
Dim j As Long
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = ActiveExplorer.CurrentFolder
For j = myFolder.Items.Count To 1 Step -1
Set mItem = myFolder.Items.Item(j)
If TypeName(mItem) = "MailItem" Then
If Left(mItem.Subject, 12) <> Format(mItem.SentOn, "YYYYMMDDhhmm") Then
mItem.Subject = Format(mItem.SentOn, "YYYYMMDDhhmm") & " " & mItem.Subject
mItem.Save
End If
End If
Next j

Set mItem = Nothing
Set myFolder = Nothing
End Sub​
 

GeoffD

New Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Thanks for responding Diane, much appreciated. I haven't loaded or activated any additional addins since moving from Office 2003 to 2010 but whether there are any additionally operating by default, I couldn't tell you?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Go to File, Options, Trust Center, Addins to check - if its just the defaults, it wouldn't affect it.

Move or copy a few messages to a new folder and test it on them - you could test it on messages in a new pst file too.
 

GeoffD

New Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Bingo! It was an anti virus addin that was affecting it. Though I did need to remove the line "Set myFolder = myNameSpace.ActiveExplorer.CurrentFolder" too. Many thanks for your time and assistance
 
Status
Not open for further replies.
Top