• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

douradex

erro envio de mensagem com dados de formulário

4 mensagens neste tópico

  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.

 

   

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Á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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois...estou a ver que sim...muito bem! :thumbsup:

Bom trabalho dourado...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

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