Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 11 sur 11
  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : avril 2006
    Messages : 93
    Points : 22
    Points
    22

    Par défaut

    Bonjour, j'ai actuellement un problème avec mon formulaire.. avant il fonctionnait et depuis quelques temps ce n'est plus le cas et je ne sais pas pourquoi.. je ne connais presque rien à l'asp sauf ce qui ressemble au php, j'ai beau trifouiller et je ne reçois pas par mail la réponse :/
    ci-dessous les fichiers liés au formulaire
    le formulaire en question : http://www.operationrecyclage.com/ec...enlevement.asp

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    <!-- #include virtual="/ecolopoint/includes/ESELFuncs.asp" -->
    							<%
    								Dim eBody 'the main content of the email
     
    									eBody = " " & vbCrLf & vbCrLf 'adds the first line and a blank line
     
    									Dim eBodyArray()
     
    									Redim eBodyArray(0)
     
    									For Each i in Request.QueryString
    										If Right( i, 2 ) <> ".x" And Right( i, 2 ) <> ".y" And i <> "x" And i <> "y" Then
    											eBody = ""
    											eBody = eBody & i
    											eBody = eBody & " = "
    											eBody = eBody & Request.QueryString(i) & vbCrLf
    											eBodyArray(UBound( eBodyArray )) = eBody
    											Redim Preserve eBodyArray(UBound( eBodyArray ) + 1)
    										End If
    									Next
     
    									For Each i in Request.Form
    										If Right( i, 2 ) <> ".x" And Right( i, 2 ) <> ".y" And i <> "x" And i <> "y" Then
    											eBody = ""
    											eBody = eBody & i
    											eBody = eBody & " = "
    											eBody = eBody & Request.Form(i) & vbCrLf
    											eBodyArray(UBound( eBodyArray )) = eBody
    											Redim Preserve eBodyArray(UBound( eBodyArray ) + 1)
    										End If
    									Next
     
    									Redim Preserve eBodyArray(UBound( eBodyArray ) - 1)
     
    									eBody = Join( bubbleSort( eBodyArray ), vbCrLf )
     
    									If not isEmpty( Request( "ebodyreplace" ) ) Then
    										ebody = Request( "ebodyreplace" ) 'any email address but shows who sent the message
    									End If
     
    									'Set objMail = CreateObject("CDONTS.NewMail")
     
    									myFrom = "riwalenn@gmail.com" 'any email address but shows who sent the message
    									'myFrom = "info@operationrecyclage.com" 'any email address but shows who sent the message
     
    									Response.Write( "<!--  myTo = " & myFrom & ", then = ")
     
    									'objMail.From = "admin@recyclingappeal.com" 'any email address but shows who sent the message
    									If not isEmpty( Request( "EMAIL" ) ) Then
    										If instr( Request( "EMAIL" ), "@" ) Then
    											myFrom = Request( "EMAIL" ) 'any email address but shows who sent the message
    										End If
    									End If
    									Response.Write( myFrom & "-->" )
     
     
    									'myTo = "benp@redeemplc.com"
    									myTo = "riwalenn@gmail.com"
     
    									Response.Write( "<!--  myTo = " & myTo & ", then = ")
     
    									If not isEmpty( Request( "emailaddressto" ) ) Then
    										If instr( Request( "emailaddressto" ), "@" ) Then
    											myTo = Request( "emailaddressto" ) 'any email address but shows who sent the message
    										End If
    									End If
     
    									Response.Write( myTo & "-->" )
     
    									CC = "" 'address that a carbon copy of the message should go to
     
    									Subject = "Automated Operation Recyclage Website Message" 'the subject line of the email
     
    									If not IsEmpty( Request( "subject" ) ) Then
    										Subject = Request( "subject" ) 'the subject line of the email
    									End If
     
    									'Body = eBody 'adds all the form code as the email body
     
     
     
    									Response.Write(  vbCrLf )
    									Response.Write(  "<!-- DEBUG_INFO " )
    									Response.Write(  vbCrLf )
    									'Response.Write( objMail.Body )
    									Response.Write(  vbCrLf )
    									Response.Write( myTo  )
    									Response.Write(  vbCrLf )
    									'Response.Write( objMail.From  )
    									Response.Write(  vbCrLf )
    									'Response.Write( objMail.Subject  )
    									Response.Write(  "-->" )
    									Response.Write(  vbCrLf )
    									Response.Write(  vbCrLf )
     
    									ErrorText = ""
     
    									On Error Resume Next
    										'objMail.Send() 'actually sends the email	
    										SendEmail myTo, myFrom, Subject, eBody 
    										If err Then
    											Heading  = "Error"
    											MainText = "There was an error sending your request, please try again later"
    											ErrorText = err & ", " & Err.description
    										Else
    											If not isEmpty( Request( "thankyouheading" ) ) Then
    												Heading = Request( "thankyouheading" )
    											Else
    												Heading = "Thank you"
    											End If
    											If not isEmpty( Request( "thankyoumessage" ) ) Then
    												If not isEmpty( Request( "forename" ) ) Then
    													MainText = "<h3>" & Request( "forename" ) & "</h3>" & "<br />" & vbCrLf & Request( "thankyoumessage" )
    												Else
    													MainText = Request( "thankyoumessage" )
    												End If
    											Else
    												MainText = "Thank you"
    											End If
    										End If
    									'Set objMail = Nothing 'deletes the email object from computer memory [good housekeeping]
    						%>

    le fichier Eselfuncs :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    <%
     
    	Sub SendEmail( eTo, eFrom, eSubject, eBody )
    		'Response.Write( "!" )
    		If (not IsNull( eTo ) ) AND (not IsEmpty( eTo) ) AND (eTo <> "") AND (not IsNull( eFrom ) ) AND (not IsEmpty( eFrom) ) AND (eFrom <> "")Then
     
    			' ## ...SEND ORDER 
    			Dim objCDOSYSCon
    			Dim objCDOSYSMail
    			Dim strOutgoingMailServer
     
    			'define the adres of your mailserver
    			strOutgoingMailServer = "smtp.gmail.com"
     
    			Set objCDOSYSMail = Server.CreateObject("CDO.Message")
    			Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
     
    			'Set and update fields properties
    			With objCDOSYSCon
    				'Out going SMTP server
    				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strOutgoingMailServer
    				'SMTP port
    				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
    				'CDO Port
    				.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    				'Timeout
    				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    				.Fields.Update
    			End With
     
    			'Update the CDOSYS Configuration
    			Set objCDOSYSMail.Configuration = objCDOSYSCon
     
    			With objCDOSYSMail
     
    			.From = eFrom
    			.To = eTo 
    			.Subject = eSubject
    			'uncomment below if you want to send your mail in HTML
    			'.HTMLBody = body
     
    			'comment out below if you want to send your mail in HTML
    			'it is now sended as plain-text
    			.TextBody = eBody
    			.Send
     
    			End with
     
    			Set objCDOSYSMail = Nothing
     
    		Else
     
    				Err.Raise 8    'raise a user-defined error
    				Err.Description = "the address information is insufficent"
    				Err.Source = "sendEmail"
     
    		End If
     
    	End Sub
     
     
    	Function bubbleSort( theArray )	
    		myArray = theArray
    		for i = UBound(myArray) - 1 To 0 Step -1
    			for j= 0 to i
    				if myArray(j)>myArray(j+1) then
    					temp=myArray(j+1)
    					myArray(j+1)=myArray(j)
    					myArray(j)=temp
    				end if
    			next
    		next
    		bubbleSort = myArray
    	End Function
     
    %>
    j'ai mis ma propre adresse email pour faire des essais

    suite à ça, je devrais reçevoir un email avec ce que la personne a remplit dans les champs mais je ne reçois rien et le formulaire ne fait aucune erreur.

  2. #2
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    avril 2007
    Messages
    1 472
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : avril 2007
    Messages : 1 472
    Points : 1 938
    Points
    1 938

    Par défaut

    Bonjour

    Pour débugguer, tu peux enlever/mettre en commentaire la ligne S'il y a une erreur, tu aura un message d'erreur qui permettra d'avancer.

    Vérifie aussi les paramètres gmail : port 25? ne faut-il pas une authentification ?
    qu'est ce qui a été modifié pour que ça ne marche plus ?

    Edit :
    Après recherche, il y a ici les paramètres de gmail à utiliser


    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : avril 2006
    Messages : 93
    Points : 22
    Points
    22

    Par défaut

    Alors j'ai essayé de mettre en commentaire la ligne on resume next et j'ai une erreur 500 du coup à la place de la page "merci".

    j'ai mis les lignes suivantes pour l'authentification :
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon identifiant"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon mot de passe"
    et il ne se passe rien :/
    (j'ai essayé avec le port 465 aussi, y'a un truc qui doit m'échapper mais quoi

    Edit : le seul truc qu'on a changé c'est l'hebergeur, après les formulaires n'ont pas bougés

  4. #4
    Expert Confirmé Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 463
    Détails du profil
    Informations personnelles :
    Âge : 59
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 463
    Points : 3 790
    Points
    3 790

    Par défaut

    Bonjour,

    Il me semble que le port par défaut du protocole SMTP est 25.
    Par principe, je ne réponds pas aux messages URGENT.
    Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
    Pas de questions techniques en MP.

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : avril 2006
    Messages : 93
    Points : 22
    Points
    22

    Par défaut

    c'est ce que j'avais au début et ça fonctionne pas

  6. #6
    Expert Confirmé Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 463
    Détails du profil
    Informations personnelles :
    Âge : 59
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 463
    Points : 3 790
    Points
    3 790

    Par défaut

    Re,

    Peut-être en rajoutant ça ?

    Code :
    1
    2
    3
    4
     
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' On utilise un service SMTP
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 ' 0 = aucune authentification ; 1 = authentification
    Par principe, je ne réponds pas aux messages URGENT.
    Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
    Pas de questions techniques en MP.

  7. #7
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : avril 2006
    Messages : 93
    Points : 22
    Points
    22

    Par défaut

    toujours pas, j'ai essayé avec les 3 ports mais rien...

  8. #8
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    avril 2007
    Messages
    1 472
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : avril 2007
    Messages : 1 472
    Points : 1 938
    Points
    1 938

    Par défaut

    Bonjour

    Je viens de faire un test d'envoi par gmail :

    C'est bien le port 587 (smtpserverport) qu'il faut utiliser. Avec authentification (smtpauthenticate="1"), les paramètres de comptes à utiliser sont ton adresse email ("riwalenn@gmail.com") et ton mot de passe associé.

    Si ça pose toujours problème, je te suggère d'appeler ton nouvel hébergeur (c'est qui ?) pour voir avec lui, peut-etre que le port 587 est fermé ...

    voili voilou


    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  9. #9
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : avril 2006
    Messages : 93
    Points : 22
    Points
    22

    Par défaut

    oki je te remercie je vais appeler l'hebergeur du coup

    Edit : est-ce que c'est bien
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "riwalenn@gmail.com"
    qu'il faut mettre pour les paramètres de compte ?

  10. #10
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    avril 2007
    Messages
    1 472
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : avril 2007
    Messages : 1 472
    Points : 1 938
    Points
    1 938

    Par défaut

    PS : regarde aussi si tu n'as pas des logs pour analyser l'erreur 500 que tu obtiens... ça peut aider ...


    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  11. #11
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : avril 2006
    Messages : 93
    Points : 22
    Points
    22

    Par défaut

    en fait tu avais raison c'est bien un problème de port, avant d'appeler l'assistance j'ai d'abord créer une adresse email pour moi (vu que je boss à la maison et que je n'ai pas accès aux adresses emails concernées) avec tes instructions et ça fonctionne.. j'ai juste un formulaire sur les 6 qui veut rien entendre, mais c'était bien le port gmail qui m'a mis dans la mouise ^^ merci.

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •