En primer lugar, si no tienes conexión a Internet ni acceso a un servidor smtp local a tu red, no te sirve nada de lo que te conté y, realmente, no se me ocurre cómo podrías solucionarlo. Si por el contrario, tienes un servidor de smtp en tu red local, entonces te escribo los pasos en pseudocódigo porque no sé VFP.
s = create(Socket)
s.connect(DIR_IP_SMTP_SVR, puerto_25)
Comprobar que se ha conectado con éxito y si es así
s. Send('MAIL FROM:
[email protected]' + crlf) //Esto envía especifica la dirección de origen
s. Recv(buffer)
Si buffer = '250 Ok ...' entonces siguiente-paso si no, error
s. Send('RCPT TO:
[email protected]' + crlf) //Esto especifica la dirección destino. Recuerda que este paso lo puedes repitir tantas veces como destinatarios del correo tengas.
s.recv(buffer)
Si buffer = '250 Ok...' entonces siguiente paso si no error
s. Send('DATA' + crlf) //Esto especifica que vas a enviar el cuerpo del mensaje
s. Recv(buffer)
si buffer = '354 ....' entonces siguiente paso si no error
s.send('From: revolupo <
[email protected]>' + crlf)
//aquí no se recibe nada
s.send('Subject: ejemplo' + crlf)
//aquí no se recibe nada
s.send('Resto del correo' + crlf)
//aquí no se recibe nada
s.send(crlf + '.' + crlf)
s.recv(buffer)
si buffer = '250 Ok...' entonces siguiente paso si no error
s.send('QUIT' + crlf)
s.recb(buffer)
si buffer = '221 ....' entonces siguiente paso si no error
s. Disconnect
destroy(s)
Te recomiendo que abras el telnet de windows.
Conectes al puerto 25 de algún servidor smtp
Y a continuación escribas las cadenas que he puesto en las líneas s.send('estas cadenas')
Verás los mensajes que te devuelve el servidor smtp. Por supuesto, pon direcciones de correo válidas. Espero haberte ayudado pero un código de ejemplo depende mucho del lenguaje, de cómo trata los sockets, de los eventos, etc. Te recomiendo lo del telnet, a mi me resultó muy útil