# 何时打电话 ?

Posted by HH on July 08, 1999 at 15:51:47:

各位先进:
我由 MSDN 下的 SAMPLES 复制了 vbmail 的范例,
其中一段范例如下
Private Function LogOn() As Boolean
If mapSess.NewSession Then
MsgBox "已连线成功", vbOKOnly + vbInformation, "讯息"
Exit Function
End If
On Error GoTo errLogInFail
With mapSess
.DownLoadMail = False
.LogonUI = True

.SignOn
LogOn = True
.NewSession = True
bNewSession = .NewSession
mapMess.SessionID = .SessionID ' You must set this before continuing.
sbrMapi.Panels("SessID") = "ID = " & .SessionID ' Just so you can see the SessionID.
End With
Exit Function
errLogInFail:
Debug.Print Err.Number, Err.Description
If Err.Number = 32003 Then
MsgBox "取消登入"
LogOn = False
End If
Exit Function
End Function

我试的结果=>登入时它会出现使用者设定选取对话框,看起来似乎它可成功取得 session ID 但为何不见拨号的动作呢 ?

Follow Ups:

- Re: 何时打电话 ? 小小 17:25:33 7/08/99 (1)
  - Re: 何时打电话 ? hh 08:56:34 7/09/99 (0)