Formulario que recoge la IP del que lo completa

[Il Dody]

Gracias Jackson666!!!

Busque la funcion pero no entiendo como agregarla a mi formulario. Soy muy novata en este tema. Me podras ayudar un poco mas.

Pego el codigo php de mi form: donde debo agregar la funcion?

<?php

$To = $_POST['para'];

//Ejemplo de como usar:
if (form_mail($To,
"Intranet | Formulario de contacto",
"Los datos introducidos en el formulario son:\n\n",
"Intranet"
)
)
echo "Gracias por su comentario y/o sugerencia.";


//Copyright &Acirc;&copy; McAnam.com
function form_mail($sPara, $sAsunto, $sTexto, $sDe){

$bHayFicheros = 0;
$sCabeceraTexto = "";
$sAdjuntos = "";

if ($sDe)$sCabeceras = "From:".$sDe."\n"; else $sCabeceras = "";
$sCabeceras .= "MIME-version: 1.0\n";

foreach ($_POST as $sNombre => $sValor)
$sTexto = $sTexto."\n".$sNombre." = ".$sValor;

foreach ($_FILES as $vAdjunto){

if ($bHayFicheros == 0){

$bHayFicheros = 1;

$sCabeceras .= "Content-type: multipart/mixed;";
$sCabeceras .= "boundary=\"--_Separador-de-mensajes_--\"\n";

$sCabeceraTexto = "----_Separador-de-mensajes_--\n";
$sCabeceraTexto .= "Content-type: text/plain;charset=iso-8859-1\n";
$sCabeceraTexto .= "Content-transfer-encoding: 7BIT\n";

$sTexto = $sCabeceraTexto.$sTexto;

}

if ($vAdjunto["size"] > 0){

$sAdjuntos .= "\n\n----_Separador-de-mensajes_--\n";
$sAdjuntos .= "Content-type: ".$vAdjunto["type"].";name=\"".$vAdjunto["name"]."\"\n";;
$sAdjuntos .= "Content-Transfer-Encoding: BASE64\n";
$sAdjuntos .= "Content-disposition: attachment;filename=\"".$vAdjunto["name"]."\"\n\n";

$oFichero = fopen($vAdjunto["tmp_name"], 'r');
$sContenido = fread($oFichero, filesize($vAdjunto["tmp_name"]));
$sAdjuntos .= chunk_split(base64_encode($sContenido));
fclose($oFichero);
}

}

if ($bHayFicheros)
$sTexto .= $sAdjuntos."\n\n----_Separador-de-mensajes_----\n";

return(mail($sPara, $sAsunto, $sTexto, $sCabeceras));
}

?>

Muchas gracias!!!!