Tópico:Formulários utilizando "Mail"

<? 
##--------------------------------------------------- 
## Envio de Emails pelo SMTP Autênticado usando PEAR 
##--------------------------------------------------- 
# Mais detalhes sobre o PEAR: 
# http://pear.php.net/ 
# 
# Mais detalhes sobre o PEAR Mail: 
# http://pear.php.net/manual/en/package.mail.mail-mime.php 
##--------------------------------------------------- 

# Faz o include do PEAR Mail. 
include ("Mail.php"); # E-mail de destino. Caso seja mais de um destino, crie um array de e-mails. 
# *OBRIGATÓRIO* 
$recipients = 'nome@oseudominio.com.br'; # Cabeçalho do e-mail. 
$headers = 
array ( 
'From' => 'nome@oseudominio.com.br', # O 'From' é *OBRIGATÓRIO*. 
'To' => 'nome@oseudominio.com.br', 
'Subject' => 'Formulário função mail' 
); # Utilize esta opção caso deseje definir o e-mail de resposta 
# $headers['Reply-To'] = 'nome@oseudominio.com.br'; # Utilize esta opção caso deseje definir o e-mail de retorno em caso de erro de envio 
# $headers['Errors-To'] = 'nome@oseudominio.com.br'; # Utilize esta opção caso deseje definir a prioridade do e-mail 
# $headers['X-Priority'] = '3'; # 1 UrgentMessage, 3 Normal # Corpo da Mensagem 
$body = 'Escreva aqui o texto do seu e-mail'; # Parâmetros para o SMTP. *OBRIGATÓRIO* 
$params = 
array ( 
'auth' => true, # Define que o SMTP requer autenticação. 
'host' => 'mail.nomer.com.br', # Servidor SMTP 
'username' => 'nome@seudominio.com.br', # Usuário do SMTP 
'password' => 'xxxxxxx' # Senha do seu MailBox.
); # Define o método de envio! queremos 'smtp'. *OBRIGATÓRIO* 
$mail_object =& Mail::factory('smtp', $params); 

# Envia o email. Se não ocorrer erro, retorna TRUE caso contrário, retorna um 
# objeto PEAR_Error. Para ler a mensagem de erro, use o método 'getMessage()'. 
$result = $mail_object->send($recipients, $headers, $body); 
if (PEAR::IsError($result)) 
{ 
echo "ERRO ao tentar enviar o email. (" . $result->getMessage(). ")"; 
} 
else 
{ 
echo "Email enviado com sucesso!"; 
} 
?>