Sorry for the delay, was working on an .NET user control and eating lunch and writting your demo
Just replicate the "ElseIf oFields.ID = " and add yuor other cdo fields that you need.
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.