Problemas P/ Enviar O Form Via E-mail.

[Guest - Lux -]

favor, eu estou tentando enviar um form por e-mail com o seguinte código abaixo, mas está dando um erro que eu não consigo enxergar....Se vocês pudessem me ajudar a corrigir eu agradeceria muito!

Obrigado.

<%

remetente=request.Form("txtNome")

assunto=request.Form("TxtAssunto")

email=request.Form("TxtEmail")

'mensagem=request.Form("Mensagem")

Ddd=request.Form("txtDdd")

telefone=request.Form("txtTel")

'Criação das variáveis

Dim strBody    'Conteúdo do corpo Mensagem

Dim objCDOMail    'E-mail do objeto servidor

Dim strMyEmailAddress  'Endereço de E-mail do destinatário

Dim strReturnEmailAddress 'Endereço de E-mail retorno para o usuário

'----------------- Coloque o endereço de E-mail de DESTINO -------------------------------------------

strMyEmailAddress = ("felipe.godoy@elementstudio.com.br")

'-----------------------------------------------------------------------------------------------------

'Colhendo e-mail do remetente no formulário

strReturnEmailAddress = Request.Form("TxtEmail")

'Iniciando strBody string com o corpo do E-mail

strBody = "Nome: " & remetente & vbcrlf

strBody = strBody & "Assunto:"  & assunto & vbCrLf

strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf

strBody = strBody & "--------------------------------------------------------------------" & vbCrLf

'strBody = strBody & "Mensagem: "  & vbCrLf & mensagem & vbCrLf

strBody = strBody & "DDD: "  & vbCrLf  & Ddd & vbCrLf

strBody = strBody & " Telefone: "  & vbCrLf & telefone & vbCrLf

'Checando o endereço de E-mail digitado e se o mesmo é válido

If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Enviar E-mail retorno ao remetente se não for válido

strReturnEmailAddress = strMyEmailAddress

End If

'Criando o e-mail server object

Set objCDOMail = Server.CreateObject("CDO.Message")

'E-mail do remetente (é necessário que haja um endereço de e-mail válido para enviar):

objCDOMail.From = remetente &  " <" & strReturnEmailAddress & ">"

'Destinatário:

objCDOMail.To = strMyEmailAddress

'Assunto do E-mail:

objCDOMail.Subject = assunto

'O corpo da mensagem:

objCDOMail.TextBody = strBody

'Enviar E-mail

return = objCDOMail.Send

'Fechar o server object

Set objCDOMail = Nothing

%>

O erro q dá é esse:

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/eprofessionalti/contato.asp, line 82

Apenas para frizar a linha 82 é essa: return = objCDOMail.Send

Editado Dezembro 22, 2005 por cyberalexxx

[Guest Guest]

Uma ajuda, por favor...=(

[cyberalexxx]

da uma olhada se te ajuda:

http://support.microsoft.com/default.aspx?...b;en-us;q322338