Autore	Messaggio
pcfree 05/12/2013 15:34	pcfree Se ignoro l'errore ed eseguo lo script mi da un altro errore (vedi foto)
Fabio 05/12/2013 16:32 Campo libero:	Fabio Non si puo' utilizzare la funzionalita' di test di uno script che richieda l'interazione con oggetti esterni (una distinta di spedizione in questo caso) Lo script va salvato e l'anteprima del messaggio generato sara' visibile sulla procedura stessa (nel suo caso pero' lo script contiene chiaramente uno o piu' errori di sintassi) Purtroppo data l'eterogeneita' delle richieste non abbiamo possibilita' di fornire un supporto gratuito per lo sviluppo di script e formule. Se si hanno le dovute conoscenze di programmazione esiste una reference, sufficiente per lo sviluppo, a questo indirizzo: http://www.readypro.it/scriptingreference All'interno della reference e' presente anche una sezione con numerosi esempi. In alternativa e' possibile acquistare delle ore di teleassistenza per farsi aiutare, nello sviluppo degli script, da parte di un nostro tecnico

Autore

Messaggio

pcfree 05/12/2013 15:30

pcfree

Configurazione Script Email automatica Spedizione avvenuta

Salve, ho trovato nel manuale degli script per la personalizzazione del messaggio ad inviare a spedizione avvenuta,
ho cercato di personalizzare i codici che avete suggerito e ho creato il seguente script:

Citazione:
testo = testo & "Spett.le " & RowItem.CustomField(30) & "," & vbCrLf
testo = testo & "Il suo ordine è stato consegnato al corriere " & RowItem.CustomField(180) & " in data " & RowItem.CustomField(190) &  vbcrlf
testo = testo & "Puo' visualizzare il tracking number della sua spedizione è " & RowItem.CustomField(18& "<a href='" & RowItem.CustomField(187) & "'>clicca qui per accedere al tracking</a>"
testo = testo & "<br />" & vbCrLf
testo = testo & "Questo il dettaglio degli articoli ordinati<br />" & vbCrLf
testo = testo & "<table>" &  vbcrlf
For Each riga In RowItem.DocRows
  IdArticolo = riga.Product.Id
  If IdArticolo>0 Then
    CodArticolo = riga.Product.Code
    Descrizione = riga.Product.Name

    NomeFoto = ""
    For Each FotoArt In riga.Product.Photos
      If FotoArt.IdType = IdTipoFoto Then
        NomeFoto = FotoArt.link
        Exit For
      End If
    Next

    testo = testo & "<tr>"
      testo = testo & "<td>" & CodArticolo & "</td>"
      testo = testo & "<td>" & Descrizione & "</td>"
      If NomeFoto<>"" Then
        testo = testo & "<td><img src='http://www.miosito.com.com/files" & NomeFoto & "'/></td>"
      End If
    testo = testo & "</tr>"
  End If
Next
testo = testo & "<br />" & vbCrLf
testo = testo & "La preghiamo di verificare i dati riportati nella descrizione e di tener conto di questi piccoli suggerimenti. " & vbCrLf
testo = testo & "Al ricevimento del Suo pacco, controlli sempre e scrupolosa mente l'assenza di qualsiasi tipo di manomissione." & vbCrLf
testo = testo & "Se il pacco e' visivamente manomesso o danneggiato lo RESPINGA e ci contatti immediatamente, inviando una e-mail attraverso il Servizio Assistenza Clienti" & vbCrLf
testo = testo & "Se la spedizione comporta il pagamento in contrassegno alla consegna, le ricordiamo che il corriere è autorizzato al ritiro del solo denaro contante." & vbCrLf
testo = testo & "Le ricordiamo che i tempi di consegna per il servizio sono di norma di 2 giorni per tutta Italia (4 giorni per Calabria, Sicilia, Sardegna), per maggiori dettagli può comunque contattare la filiale più vicina a lei il cui recapito telefonico lo può reperire direttamente sul sito di  " & RowItem.CustomField(180) & " cliccando l'area relativa dei contatti'" & vbCrLf
testo = testo & "Nel caso non fosse sicuro di essere reperibile nei giorni sucessivi alla spedizione presso l’indirizzo di destinazione segnalato, al ricevimento di questa mail la preghiamo di rivolgersi al più presto allo spedizioniere " & RowItem.CustomField(180) &" contattando la filiale più vicina a lei, per accordarsi su una data di sua reperibilità o il fermo deposito presso loro sede." & vbCrLf
testo = testo & "" & vbCrLf
testo = testo & "Nel ringraziarla per averci scelto, porgiamo nostri cordiali saluti" & vbCrLf
Rdy.ResponseWrite(keyok.it)

Non appena eseguo il test, mi comunica il seguente errore (vedi foto):

Citazione:
Errore nell'esecuzione dello script
Riga : 1 Colonna : 0
Source : Errore di run-time di Microsoft VBScript
Dettaglio errore : Necessario oggetto: 'RowItem'

Cosa significa?

pcfree 05/12/2013 15:34

pcfree

Se ignoro l'errore ed eseguo lo script mi da un altro errore (vedi foto)

Fabio 05/12/2013 16:32 Campo libero:

Fabio

Non si puo' utilizzare la funzionalita' di test di uno script che richieda l'interazione con oggetti esterni (una distinta di spedizione in questo caso)
Lo script va salvato e l'anteprima del messaggio generato sara' visibile sulla procedura stessa (nel suo caso pero' lo script contiene chiaramente uno o piu' errori di sintassi)

Purtroppo data l'eterogeneita' delle richieste non abbiamo possibilita' di fornire un supporto gratuito per lo sviluppo di script e formule.
Se si hanno le dovute conoscenze di programmazione esiste una reference, sufficiente per lo sviluppo, a questo indirizzo:
http://www.readypro.it/scriptingreference
All'interno della reference e' presente anche una sezione con numerosi esempi.
In alternativa e' possibile acquistare delle ore di teleassistenza per farsi aiutare, nello sviluppo degli script, da parte di un nostro tecnico