#WITH_ERROR(#FormError) #LOCAL("SubscribedAddresseesCount",#COUNT(#NewsletterCampaign.SubscribedAddressees))
#IF(#FormError)

{InputError}

{PleaseCorrectErrors} #IF(#FormErrors.Reason.OBJECT_EXISTS)
{ObjectExists} #ENDIF #IF(#FormErrors.Reason.DateInPast)
{DateInPast} #ENDIF #IF(#FormErrors.Reason.TLEError)
{TLEError} #ENDIF
#ELSIF(#DEFINED(#INPUT.ChangeAction) AND #INPUT.ChangeAction EQ "SendTest")

{SendTestSent}

#ENDIF #LOOP(#Shop.Languages) #ENDLOOP #IF(#SEND_SCHEDULED)

{NewsletterScheduled}

{NewsletterScheduledInfo}
{ShowNewsletterOverview}

#ENDIF #IF(#Status == 2)

{NewsletterAlreadySent}

{NewsletterWasSentOn}: #SentDate[datetime]
#ELSE #IF(#CouponCampaign.ID)

{Notification}

{InsertCouponCode}

  • {InsertCouponCode1}
  • {InsertCouponCode2}

{SendCouponInfo}
  • {SendCouponInfo1}
  • {SendCouponInfo2}


#ENDIF #IF(#Shop.IsTrialShop)

{Notification}

{NewsletterDeactivatedForTrialShop}
#ENDIF #ENDIF
{Alias} {MandatoryStar}
{Subject} {MandatoryStar}
{Name} {MandatoryStar}
{Template}
#LOOP(#System.Child.PageTypes.Child.ShopNewsletter.Child.TemplateTypes.Child.NewsletterDraft.ChildObjects)

{Template}: #NameOrAlias

#InfoText

#NameOrAlias
#ENDLOOP
#IF(#IsHTML AND #Status != 2) #ENDIF
#IF(#IsHTML)
#LOCAL("DisableWYSIWYG",0) #IF(#Status == 2) #SET("DisableWYSIWYG",1) #ENDIF #SNIPPET("INC-WYSIWYG", "Name,InputName,Value,InsertCompleteURL,Disabled,Head,Size", "NewsletterContent", "Content", #Content, 1,#DisableWYSIWYG,"{Text}","ExtraLarge") #ENDLOCAL
#IF(#Status != 2)
#IF(#CouponCampaign.ID)
#ENDIF #ENDIF
#ELSE
#ENDIF
{TLEs} {CustomerTLEHelp}

{SenderName} {MandatoryStar}
{SenderEMail} {MandatoryStar}
{ScheduleDate}
{SentDate} #IF(#SentDate)#SentDate[datetime]#ELSE {NotYetSent} #ENDIF
#IF(#Shop.FeatureMaxValue.Coupon) #ELSE #ENDIF #IF(#Status != 2)
#IF(#Status != 2)
{TestEMail} #IF(#NewsletterCampaign.TestEMail AND #NewsletterCampaign.TestEMail NE " ") #NewsletterCampaign.TestEMail {ToChange} #ELSE {TestEMailNotSpecified} {ToChange} #ENDIF
#ENDIF
{CouponCampaign}
#IF(#NewsletterCampaign.TestEMail AND #NewsletterCampaign.TestEMail NE " " AND #SenderEMail)
#ELSE
#ENDIF
#ENDIF
#IF(#Status != 2) #ENDIF
#ENDLOCAL #ENDWITH_ERROR #IF(NOT #DELETE) #IF(#FUNCTION("FEATURED_MENU_COUNT", #Shop.Object, "RelatedTopic") > 0)

{RelatedTopics}

#ENDIF #ENDIF