UPDATING VALUES INTO THE PUBLICATION LIST

Updating into the publication List
%%[

SET @subscriptionstatus= RequestParameter(‘ENEWSLETTER_PREF’)
SET @EAddress=RequestParameter(’email’)

IF NOT EMPTY(@subscriptionstatus) THEN
/* Subscriber data*/

SET @rr = CreateObject(“RetrieveRequest”)
SetObjectProperty(@rr, “ObjectType”, “Subscriber”)
AddObjectArrayItem(@rr,”Properties”,”EmailAddress”)
AddObjectArrayItem(@rr,”Properties”,”SubscriberKey”)
AddObjectArrayItem(@rr,”Properties”,”ID”)

SET @sfp2 = CreateObject(“SimpleFilterPart”)
SetObjectProperty(@sfp2,”Property”,”EmailAddress”)
SetObjectProperty(@sfp2,”SimpleOperator”,”equals”)
AddObjectArrayItem(@sfp2,”Value”,@EAddress)

SetObjectProperty(@rr, “Filter”, @sfp2)
SET @ls = InvokeRetrieve(@rr,@status_rr,@reqID)

IF RowCount(@ls) > 0 THEN
SET @row = Row(@ls,1)
SET @SubscriberKeyNew = Field(@row,”SubscriberKey”)

ENDIF

/*Updated publication List*/

IF @subscriptionstatus == “Yes” THEN

SET @Subscriber=CreateObject(“Subscriber”)

SetObjectProperty(@Subscriber,”EmailAddress”,@EAddress)
SetObjectProperty(@Subscriber,”SubscriberKey”,@SubscriberKeyNew)
SetObjectProperty(@Subscriber,”Status”,”Active”)

SET @list=CreateObject(“SubscriberList”)
SetObjectProperty(@list,”ID”,”4001″)
SetObjectProperty(@List,”Status”,”Active”)
AddObjectArrayItem(@Subscriber,”Lists”,@list)
SET @Result = InvokeUpdate(@Subscriber,@status_msg,@Update_err)

ELSE

SET @Subscriber=CreateObject(“Subscriber”)

SetObjectProperty(@Subscriber,”EmailAddress”,@EAddress)
SetObjectProperty(@Subscriber,”SubscriberKey”,@SubscriberKeyNew)
SetObjectProperty(@Subscriber,”Status”,”Active”)

SET @list=CreateObject(“SubscriberList”)
SetObjectProperty(@list,”ID”,”4001″)
SetObjectProperty(@List,”Status”,”Unsubscribed”)
AddObjectArrayItem(@Subscriber,”Lists”,@list)
SET @Result = InvokeUpdate(@Subscriber,@status_msg,@Update_err)

ENDIF

ENDIF

]%%
%%=V(@Result)=%%
%%=V(@subscriptionstatus)=%%
%%=V(@EAddress)=%%

Subscription Preferences Confirmation

		Subscription Preferences
			Thank You!
			Your new Personal Finance eNewsletter subscription preference has been confirmed and will take effect within 10 days.
		This only affects your Personal Finance eNewsletter preference. It does not affect email notifications associated with your eDelivery preferences (i.e., account statements, transactions, confirmation statements, prospectuses, financial reports, etc.) or promotional communications from TIAA-CREF.
		© 2013 Teachers Insurance and Annuity Association-College Retirement Equities Fund (TIAA-CREF), 730 Third Avenue, New York, NY 10017 C10644b