objMail.Body="Categoria: " & categoria & VBcrlf & "Nome locale: " & nomelocale