首先你的代码不完整:“errloginfail”没有定义。  就目前来看,这仅仅是一个登陆的程序段。
  下面分别描述:
1、if mapsess.newsession then 
    msgbox"会话已经结束" 
    exit function 
  end if 
  通过判断对象mapsess中newsession 变量或属性值,如果为 Trur 就 msgbox"会话已经结束",并返回 Logon = False(默认); 否则执行 2.2、on error goto errloginfail 
    with mapsess 
    .logonui=true 
    .signon 
    logon=true 
    .newseesion=true 
    .newsession=.nwesession 
    mapmess.sessionId=.sessionid 
  end with  其作用也不过是通过置了一下标志,用来代表登陆成功,  但其中的:
  .newsession=.nwesession 
  mapmess.sessionId=.sessionid 
  则完全是多余的没有用的废话。