1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

erro envio de mensagem com dados de formulário

Discussão em 'Web Development' iniciada por douradex, 24 de Maio de 2006. (Respostas: 1; Visualizações: 1255)

  1. douradex

    douradex Power Member

    Boa tarde!

    Fiz um formulário para receber dados do utilizador e enviar esses mesmos dados por um e-ail. 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.
     
  2. douradex

    douradex Power Member

    Solução do problema

    Á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 Página