Jump to content

erro envio de mensagem com dados de formulário


douradex

Recommended Posts

  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.

Link to comment
Share on other 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

Link to comment
Share on other sites

  • 2 months later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.