Dim mapi
Set mapi = CreateObject("MAPI.Session")