salve a tutti

devo inviare delle mail in una lan, il problema è che nessun pc ha l'smtp installato
come posso fare?
cercando su google ho visto che il codice che utilizza il cdo non richiede l'smtp
codice:
        Dim objmail As CDO.Message
        objmail = New CDO.Message
        objmail.To = "amodio****.alia.it"
        objmail.From = "amodiu***@ero.it"
        objmail.Subject = "subject"
        objmail.HTMLBody = "body"
        objmail.Send()
purtroppo questo negli eventi di windows ritorna l'errore:"The error message is 'An SMTP protocol error occurred."
come posso quindi inviare queste mail?
vi ringrazio