Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

I can't get this code to work in Outlook. Please Help-Look at Line 5

Status
Not open for further replies.
chrisgreen

chrisgreen

Programmer
Jun 28, 2000
61
GB
Sub ChangeMessageClass()<br>Set olApp = Application<br>Set olNS = olApp.GetNameSpace(&quot;MAPI&quot;)<br><br>Set ContactsFolder = olNS.GetDefaultFolder(olFolderContacts)<br><br>Set ContactItems = ContactsFolder.Items<br>For Each Itm in ContactItems<br>&nbsp;&nbsp;&nbsp;If Itm.MessageClass &lt;&gt; &quot;IPM.Contact.test1&quot; Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Itm.MessageClass = &quot;IPM.Contact.test1&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Itm.Save<br>&nbsp;&nbsp;&nbsp;End If<br>Next<br>End Sub<br>
 
Status
Not open for further replies.

Similar threads

OzFoxy
  • Locked
  • Question
Outlook 365 images/graphics not displaying
Replies
0
Views
1K
OzFoxy
OzFoxy
sbcglobaltech
  • Locked
  • News
AI in customer servcice in At&amp;t
Replies
0
Views
196
sbcglobaltech
sbcglobaltech
upinflamezzz
  • Locked
  • Question
SMTP Setting work on Ricoh Copiers but not Kinolta Minolta Copiers.
Replies
0
Views
242
upinflamezzz
upinflamezzz
IcarusHallsorts
  • Locked
  • Question
Delaying a batch of emails in Outlook Drafts folder.
Replies
2
Views
382
IcarusHallsorts
IcarusHallsorts
dik
  • Locked
  • Question
Delete Attachments in Firefox
Replies
2
Views
188
dik
dik

Part and Inventory Search

Sponsor

Back
Top