<OBJECT classid=clsid:B69003B3-C55E-4B48-836C-BC5946FC3B28 codeType="application/x-oleobject" id=IMessenger width=0 height=0>
</OBJECT>
<script language="VBScript">
<!--
Function enviar()
nombre = "aquitumail"
arroba = "@"
dominio = "hotmail.com"
IMessenger.InstantMessage(nombre&arroba&dominio)
end Function
//-->
</script>
<a href="vbscript
:enviar()">Contacto</a>
, Aunque solo funciona en IE
Saludos
Gonzalo