Add to Publication List

add-to-publication-list

/* 
AMPscript.com
*/

SET @rr = CreateObject("RetrieveRequest") 

SetObjectProperty(@rr, "ObjectType", "List")
 AddObjectArrayItem(@rr,"Properties","ListName") 
 AddObjectArrayItem(@rr,"Properties","ID")

SET @sfp = CreateObject("SimpleFilterPart")
 SetObjectProperty(@sfp, "Property", "ListName")
 SetObjectProperty(@sfp, "SimpleOperator", "equals")
 AddObjectArrayItem(@sfp, "Value",@PublicationType)
 SetObjectProperty(@rr, "Filter", @sfp) 

SET @Sub = InvokeRetrieve(@rr) 

Set @ListID = "xxxx"

SET @ll_sub = CreateObject("Subscriber")
SetObjectProperty(@ll_sub, "EmailAddress", @EmailAddress)
SetObjectProperty(@ll_sub, "SubscriberKey", @subKey)


set @subscription = CreateObject("SubscriberList")
SetObjectProperty( @subscription, "ID",@ListID)
SetObjectProperty( @subscription, "IDSpecified", "true" )
SetObjectProperty( @subscription, "Status", "Active" )
SetObjectProperty( @subscription, "StatusSpecified", "true" )
AddObjectArrayItem( @ll_sub, "Lists", @subscription )

SET @ll_statusCode = InvokeUpdate(@ll_sub, @ll_statusMsg, @errorCode)

IF @ll_statusCode != "OK" THEN
    RaiseError(@ll_statusMsg, 0, @ll_statusCode, @errorCode)
ENDIF