Author:Michael Nielsen
Email:mni at convergens.dk
Subject:I found a solution
Category:Web Booster
Message:

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 


Threads:
Puakma ESSO and cookies   Jens Bruntt 20.Sep.07
    RE: Puakma ESSO and cookies   Brendon Upson 20.Sep.07
    RE: Puakma ESSO and cookies   Brendon Upson 20.Sep.07
        No luck   Jens Bruntt 21.Sep.07
            RE: No luck   Brendon Upson 21.Sep.07
                I found a solution   Michael Nielsen 26.Sep.07