See http://www.vbaexpress.com/forum/show...k-contact-body