Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" _
(Byval lpszUrlName As String, _
Byval lpszCookieName As String, _
Byval lpszCookieData As String, _
lpdwSize As Long) As Long

Sub Postopen(Source As Notesuidocument)
 
 Dim cookie As String
 Dim cookieSize As Long
 Dim flag As Long
 Dim httpServer as String
 
 httpServer = "http://portal-sso"
 
 cookie = String( 255 ,0)  
 cookieSize = Len( cookie )
 
 flag = InternetGetCookie( httpServer , Null , cookie , cookieSize )  
 If  flag = 0 And cookieSize > Len(cookie) Then
  cookie = String(cookieSize, Chr(0))   
  flag = InternetGetCookie( httpServer , Null , cookie , cookieSize )
 End If 

End Sub