Iniciación en TIdSMTPServer

[aglopez]

Perdonad, pero aprovecho es hilo para hacer una pregunta.

Estoy desarrollando un servidor smtp para filtrar algunos mensajes salientes en mi empresa, necesito la ip del cliente que envia el mensaje y no veo la forma de obtenerla.

Tengo un TIdSMTPServer y en el evento OnReceiveMessageParsed lo envio
usando un TIdSMTP, después de comprobar algunas cosas, pero quiero guardar algunos datos, y me falta la ip del cliente.

Agradecido de antemano.

[Julià T.]

En la variable (AMsg: TIdMessage) tiene una propiedad MsgID, pues la última parte de la cadena, está la ip de la máquina en hexadecimal invertido y el nombre

ejemplo 7c0aa8c0@mipc seria:
Ip=192.168.10.124
maquina=mipc

no sé existe una manera más directa, pués si hay, me gustaría saberla

[aglopez]

Muchas gracias, me sirve así, aunque si descubro otra forma más directa, lo colgaré por aquí.

[Julià T.]

He actualizado el servidor smtp de mi web

También existen programas gratis en :
http://www.postcastserver.com/
http://www.argosoft.com/applications/mailserver/

[DarkByte]

De poco sirven los ejemplos a falta de código, pero bueno.

¿Porqué no publicas tu el código?¿Piensas vender el programa?