Eliobside
Non sapendo una riga di script copiando qua e là avevo creato questo:
testo = "Gentile " & RowItem.CustomField(30) & "," & vbCrLf testo = testo & "Il tuo ordine è stato ritirato dal corriere " & RowItem.CustomField(180) & " in data " & RowItem.CustomField(190) & "." & vbCrLf testo = testo & "Entro 12 ore potrai visualizzare il tracking number della tua spedizione nell'area riservata, alla voce ORDINI, cliccando su DETTAGLI DOCUMENTO." & vbCrLf testo = testo & "Seleziona il numero di tracking, copialo e clicca sull'icona di PAGINA WEB TRACKING. Si aprirà una nuova pagina del tuo browser dove potrai incollare il numero di tracking e verificare lo stato della spedizione." & vbCrLf testo = testo & "Al ricevimento del pacco, controlla sempre e scrupolosamente l'assenza di qualsiasi tipo di manomissione." & vbCrLf testo = testo & "Se il pacco è visivamente manomesso o danneggiato RIFIUTALO O ACCETTALO CON RISERVA e contattaci immediatamente, inviando una e-mail a info@bshopzone.com" & vbCrLf testo = testo & "Ti ricordiamo che i tempi di consegna sono di norma di 24 ore per tutta l'Italia e 48 ore per Calabria, Sicilia e Sardegna. Per maggiori dettagli puoi contattare la filiale più vicina a te, verificando sul sito internet www.sda.it" & vbCrLf testo = testo & "Nel caso non fossi sicuro di essere reperibile nei giorni sucessivi alla spedizione presso l’indirizzo di destinazione indicato, ti preghiamo di rivolgerti al più presto alla filiale più vicina a te per concordare una data di reperibilità." & vbCrLf testo = testo & vbCrLf testo = testo & "Ti ringraziamo per averci accordato la tua fiducia." & vbCrLf Rdy.ResponseWrite(testo)
Quindi se ho capito bene bisognerebbe creare uno script che riconosce la lingua del cliente...
|