retrieve-publication-lists.html

%%[
var @rr, @sfp, @lists, @status
SET @rr = CreateObject("RetrieveRequest")
SetObjectProperty(@rr,"ObjectType","List")
AddObjectArrayItem(@rr,"Properties","ID")
AddObjectArrayItem(@rr,"Properties","ListName")

SET @sfp = CreateObject("SimpleFilterPart")
SetObjectProperty(@sfp,"Property","Type")
SetObjectProperty(@sfp,"SimpleOperator","equals")
AddObjectArrayItem(@sfp,"Value","Public")

SetObjectProperty(@rr,"Filter",@sfp)

SET @lists = InvokeRetrieve(@rr, @status, @requestID)

output(concat("rrStatus: ", @status))
output(concat("<br>rrRequestID: ", @requestID))

for @i = 1 to RowCount(@lists) do

  set @list = Row(@lists, @i)
  set @Name = Field(@list, "ListName")

  output(concat("<br>ListName: ", @Name))

next @i
]%%