Det får i så lov til:
{XAL:SendMailTeksterPT}
#Switch(&Mail02PT)
#Case("Indk›b")
SET &Mail02PT = "Auftrag DK"
SET &Mail03PT = "We enclose an additional order. Please check 'transport' and refer to the 5 digit purchase number."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("IndProforma")
SET &Mail02PT = "Pro forma Rechnung DK"
SET &Mail03PT = "Please find enclosed the pro forma invoice for this week's returns."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("DebFakKopi")
SET &Mail02PT = "Fakturakopi"
SET &Mail03PT = "Hermed fremsendes fakturakopi iflg. aftale."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("DebKontoUd")
SET &Mail02PT = "Kontoudtog"
SET &Mail03PT = "Hermed fremsendes kontoudtog iflg. aftale."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("Tilbud")
SET &Mail02PT = "Tilbud"
SET &Mail03PT = "Hermed fremsendes tilbud iflg. aftale."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("OrdBekr")
SET &Mail02PT = "Ordrebekr‘ftelse"
SET &Mail03PT = "Hermed fremsendes ordrebekr‘ftelse iflg. aftale."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("OrdProforma")
SET &Mail02PT = "Faktura"
SET &Mail03PT = "Hermed fremsendes faktura iflg. aftale."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#Case("Returnr")
SET &Mail02PT = "RMA"
SET &Mail03PT = "Hermed fremsendes RMA iflg. aftale."
SET &BagGr = 1
SET &Papir = "Retur"
#Case("DebPassW")
SET &Mail02PT = "
www.monacor.dk" SET &Mail03PT = "Hermed fremsendes login til vores hjemmeside. Nye kunder skal v‘re opm‘rksomme p†, at der kan g† op til 24 timer f›r login er aktivt."
SET &BagGr = 1
SET &Papir = "BrevPapir"
#EndSwitch
IF &BagGr THEN
SET &Papir = "%%DestOverlayPDFTemplateEnable: True%%" + "%%DestOverlayPDFTemplatePath: G:\\\dok\\_" + &Papir + ".pdf%%"
ELSE
SET &Papir = ""
ENDIF
Per :o)