riepilogo ordine personalizzato per email ordine evaso

ho personalizzato questo codice per creare un riepilogo ordine per la mail di avviso ordine evaso ai clienti ma non so come aggiungere alla tabella la quantità ordinata, il prezzo dell'articolo x quantità, spese di trasporto e totale ordine.

Ad esempio come vedete qui ricavo da RowItem.DocRows il codice e il nome dell'articolo e anche la foto rispettivamente con riga.Product.Id, riga.Product.Code e riga.Product.Name. Non essendoci l'intellisense non conosco le altre proprietà

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 width='100'>" & CodArticolo & "</td>"
      testo = testo & "<td width='250'>" & Descrizione & "</td>"
      If NomeFoto<>"" Then
        testo = testo & "<td align='center'><img width='150' src='http://www.myareadesign.it/files" & NomeFoto & "'/></td>"
      End If  
    testo = testo & "</tr>"
\t
  End If
Next