Smtp pour un programme par socket

Bonjour

J'ai un petit programme développé en Visual Foxpro qui permet de se connecté
à des serveurs SMTP et d'envoyer des mails automatiquement.
Connaissez-vous des serveurs de mail que je pourrai utiliser sans aucun
problème.

Modèle du code utilisé :

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.smtp_host = MONSERVEUR@DOMAINE.COM
o.from = "test@test.fr"
o.to = thisform.a.value
o.Subject = thisform.objet.value
o.Message = thisform.corps.value
o.attachment = _fichier
if o.send()
=messagebox("Message envoyé...", 64, "Envoi par mail")
endif
release thisform
o=Null

Merci.