#define mapCcList 2 WITH This.Parent.OleMMess .RecipIndex = .RecipCount .RecipDisplayName = "QRS" .RecipType = mapCcList ENDWITH