erro envio de mensagem com dados de formulário

[douradex]

  Bom dia!

   Fiz um formulário para receber dados do utilizador  e enviar esses mesmos dados por um e-mail. Fiz um ficheiro mail.asp para recolher os dados e enviar para o email.

  o envio tem o seuinte código:

   Dim mail

Set mail=CreateObject("CDO.Message")

mail.From= strFrom

mail.To= strTo

mail.Subject= strSubject

mail.TextBody= strbody

mail.Send

set mail=nothing

   Acontece que na minha máquina o envio ocorre bem. Mas quando coloco no servidor da página web dá um erro:

                                                                                                                                      The "SendUsing" configuration value is invalid.

                 

  Tenho de acrescentar alguma linha de código?

  Já pesquisei algumas páginas sobre o assunto, já configurei de várias formas o servidor ( o serviço de SMTP ) e não consegui resolver.

[douradex]

Água mole em pedra dura tanto bate que até que fura...

Descobri que faltava a configuração, pelo menos penso que é isso.

Resolvi acrescentando:

Set objConf=Server.CreateObject("CDO.Configuration")

'define settings:

If Len(SMTP_SERVER)=0 Then

objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/sendusing")=1">http://schemas.microsoft.com/cdo/configuration/sendusing")=1

Else

objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/sendusing")=2">http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'cdoSendUsingPort

End If

objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")=Server.MapPath("/")

If Len(SMTP_SERVER)>0 Then

objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/smtpserver")=SMTP_SERVER">http://schemas.microsoft.com/cdo/configuration/smtpserver")=SMTP_SERVER

End If

objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25">http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25

objConf.Fields.Update

'apply settings:

Set objMessage.Configuration=objConf

[saramgsilva]

pois...estou a ver que sim...muito bem! 👍

Bom trabalho dourado...

[Anonym]

em sites freebies isso normalmente nao vem instalado, o CDO ou então usavam o JMail