sHTML = sHTML & " [Despacho:] " & Left(FormatNumber((cDespacho.Fields("valor")), 3),Len(FormatNumber((cDespacho.Fields("valor")), 3))-4)
sHTML = sHTML & " [Servicio de Retiro:] " & Left(FormatNumber((cDespacho.Fields("retiro")), 3),Len(FormatNumber((cDespacho.Fields("retiro")), 3))-4)
sHTML = sHTML & " [Total:] " & Left(FormatNumber((total), 3),Len(FormatNumber((total), 3))-4)
'*************************************************
Set Mail = CreateObject("CDONTS.Newmail")
if err.number = 0 then
Mail.From = "
[email protected]"
Mail.To = "
[email protected]"
Mail.Subject = "Se Realizo una CCCCCC - Retira el DDDDDD"
Mail.Body = Cstr(sHTML)
Mail.Send
Set Mail = Nothing
End If