EMAIL COM PAGINA ASP.NET

ADIM 21/08/2009 12:32:30
#320552

Pessoal estou precisando de ajuda para o seguinte questão: Estou tentado configurar o IIS pra enviar email de uma págna ASP e está dando seguintes erros ( Grato pela atenção):
A chamada para o envio do email (tudo legalmente sendo repassado): Email.enviaMensagemEmail(Session([Ô]Email[Ô]), Session([Ô]Email[Ô]), [Ô][Ô], [Ô][Ô], [Ô]Pedido no. [Ô] & Session([Ô]númeroPedido[Ô]), montaTexto())

O erro que está retornando:
Erro ao acessar os dados : Mailbox unavailable. The server response was: 5.7.1 Unable to relay for adim.almeida@globo.com


A classe que envia o Email está abaixo:
Imports Microsoft.VisualBasic
Imports System.Net.Mail

Public Class Email
[ô] </summary>
[ô] <param name=[Ô]from[Ô]>Endereco do Remetente</param>
[ô] <param name=[Ô]recepient[Ô]>Destinatario</param>
[ô] <param name=[Ô]bcc[Ô]>recipiente Bcc</param>
[ô] <param name=[Ô]cc[Ô]>recipiente Cc</param>
[ô] <param name=[Ô]subject[Ô]>Assunto do email</param>
[ô] <param name=[Ô]body[Ô]>Corpo da mensagem de email</param>
Public Shared Sub enviaMensagemEmail(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, ByVal subject As String, ByVal body As String)
[ô] cria uma instância do objeto MailMessage
Dim mMailMessage As New MailMessage()
[ô] Define o endereço do remetente
mMailMessage.From = New MailAddress(from)
[ô] Define o destinario da mensagem
mMailMessage.To.Add(New MailAddress(recepient))
[ô] Verifica se o valor para bcc é null ou uma string vazia
If Not bcc Is Nothing And bcc <> String.Empty Then
[ô] Define o endereço bcc
mMailMessage.Bcc.Add(New MailAddress(bcc))
End If
[ô] verifica se o valor para cc é nulo ou uma string vazia
If Not cc Is Nothing And cc <> String.Empty Then
[ô] Define o endereço cc
mMailMessage.CC.Add(New MailAddress(cc))
End If
[ô] Define o assunto
mMailMessage.Subject = subject
[ô] Define o corpo da mensagem
mMailMessage.Body = body
[ô] Define o formato do email como HTML
mMailMessage.IsBodyHtml = True
[ô] Define a prioridade da mensagem como normal
mMailMessage.Priority = MailPriority.Normal
[ô] Cria uma instância de SmtpClient - Nota - Define qual o host a ser usado para envio
[ô] de mensagens, no local de smtp.server.com use o nome do SEU servidor
Dim mSmtpClient As New SmtpClient([Ô]localhost[Ô]) [ô]
[ô] Envia o email
mSmtpClient.Send(mMailMessage)
End Sub

End Class