Visualizzazione dei risultati da 1 a 10 su 11

Visualizzazione discussione

  1. #1

    invio mail tramite form

    Ciao a tutti,

    ho un form nel quale raccolgo dei dati e poi mando una mail a me ed una alla persona che si è iscritta.
    il tutto è gestito da questa porzione di script che non funziona più in seguito al cambio di SMTP:

    CODICE:

    <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
    <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->


    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <%
    '============Linkbruttocane su specifiche MSDN================
    '* il corpo finale del messaggio contiene tutti i campi *
    '* inseriti nella pagina html, in pratica puoi mettere *
    '* tutti i campi che ti servono nel modulo di invio senza *
    '* fare altre configurazioni aggiuntive. *
    '================================================= ============


    DIM corpoMessaggio, numeroCampi, invioA, invioAC, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo


    '* voce da modificare con il proprio indirizzo email

    invioA = "xxxxxxxxxxx@gmail.com"
    invioAC = Request.Form("email")


    '* voce da modificare con un indirizzo email che funga da mittente:
    '* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
    '* dato che cdosys supporta questa notifica

    invioDa = "xxxxxxxxxxx@gmail.com"


    '------------fine modifiche necessarie------------------


    nomeDominio = Request.ServerVariables("HTTP_HOST")
    indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
    modulo = Request.ServerVariables("HTTP_REFERER")
    browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")


    '*rilevo i campi del form



    FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
    IF NOT Request.Form(numeroCampi) = "" THEN
    corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
    END IF
    NEXT


    '* creo gli oggetti cdosys sul server e li gestisco

    DIM iMsg, Flds, iConf


    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Flds(cdoSendUsingMethod) = cdoSendUsingPort
    Flds(cdoSMTPServer) = "smtp.gmail.com"
    Flds(cdoSMTPServerPort) = 25
    Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
    Flds.Update
    With iMsg
    Set .Configuration = iConf
    .To = invioA
    .CC = invioAC
    .From = Request.Form("email")
    .Sender = invioDa
    .Subject = "Richiesta News da " & nomeDominio
    .TextBody = "Ciao " & Request.Form("nome")

    ora che voglio inviare tramite smtp.gmail.com non funziona più.
    potete aiutarmi? grazie
    Ultima modifica di Roby_72; 07-02-2018 a 17:57
    Alasque

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.