Ir para o conteúdo
douradex

erro envio de mensagem com dados de formulário

Mensagens Recomendadas

douradex    0
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.

 

   

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
douradex    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade