Question : Comportement étrange de CDONTS

La première partie du manuscrit envoie un email au webmaster, la deuxième partie envoie un email à la personne qui a complété la forme s'ils donnaient un

If d'email address. que je laisse le blanc d'email address, j'obtiennent la première partie du manuscrit m'envoyant un email comme ceci est conçu pour être envoyé toujours. Si je complète un email address, est-ce que j'obtiens la deuxième partie m'envoyant un email mais je n'obtiens rien de la première partie, quand la première partie est toujours supposée à send.

Is il parce que les deux email sont à la même adresse ? ? cela n'a pas du sens pour me. class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
objNewMail " de " codeSnippet861959 d'id= " de 
Dim de class=, objNewMail1
	Placer l'objCDOMail = le Server.CreateObject (« CDONTS.NewMail »)
		objCDOMail.To = « [email protected] »
		objCDOMail.From = « [email protected] »
		txtBody = « quelqu'un vous a contacté de votre emplacement » et VbCrLf et VbCrLf et « nom :  » et nom et VbCrLf et VbCrLf et « téléphone :  » et téléphone et VbCrLf et VbCrLf et « email :  » et email et description de VbCrLf et de VbCrLf et « de cas :  » et descrip 
    objCDOMail.Subject = « quelqu'un vous a contacté de votre site Web »
		objCDOMail.Body = txtBody
		objCDOMail.Send
		Placer l'objCDOMail = rien		
	Si "" de <> d'email alors
		Placer objCDOMail1 = Server.CreateObject (« CDONTS.NewMail1 »)
		objCDOMail1.To = email
		objCDOMail1.From = « [email protected] »
		txtBody = « c'est une réponse automatisée. Svp ne pas répondre ........ a reçu votre message. Merci de nous dire au sujet de votre cas. Nous essayerons de vous contacter using les informations que vous avez fournies. Vous pouvez également nous atteindre à l'en blanc 1-888 pendant des heures de travail normales ou vous pouvez laisser un message après que les heures de travail » et le VbCrLf et le VbCrLf et le VbCrLf et le VbCrLf et « vous ayez soumis l'information suivante :  » Et VbCrLf et VbCrLf et « nom :  » et nom et VbCrLf et VbCrLf et « téléphone :  » et téléphone et VbCrLf et VbCrLf et « email :  » et email et description de VbCrLf et de VbCrLf et « de cas :  » et descrip 
    objCDOMail1.Subject = « votre soumission a été reçu »
		objCDOMail1.Body = txtBody
		objCDOMail1.Send
		Placer objCDOMail1 = rien
	Finir si
class= de

Réponse : Comportement étrange de CDONTS

Bonjour,

  Vous avez un typo sur la ligne 11 - IE « CDONTS.NewMail1 » plutôt que « CDONTS.NewMail »
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :

Faible objNewMail, objNewMail1
	Placer l'objCDOMail = le Server.CreateObject (« CDONTS.NewMail »)
		objCDOMail.To = « [email protected] »
		objCDOMail.From = « [email protected] »
		txtBody = « quelqu'un vous a contacté de votre emplacement » et VbCrLf et VbCrLf et « nom :  » et nom et VbCrLf et VbCrLf et « téléphone :  » et téléphone et VbCrLf et VbCrLf et « email :  » et email et description de VbCrLf et de VbCrLf et « de cas :  » et descrip 
    objCDOMail.Subject = « quelqu'un vous a contacté de votre site Web »
		objCDOMail.Body = txtBody
		objCDOMail.Send
		Placer l'objCDOMail = rien		
	Si "" <> d'email alors
		Placer objCDOMail1 = Server.CreateObject (« CDONTS.NewMail »)
		objCDOMail1.To = email
		objCDOMail1.From = « [email protected] »
		txtBody = « c'est une réponse automatisée. Svp ne pas répondre ........ a reçu votre message. Merci de nous dire au sujet de votre cas. Nous essayerons de vous contacter using les informations que vous avez fournies. Vous pouvez également nous atteindre à l'en blanc 1-888 pendant des heures de travail normales ou vous pouvez laisser un message après que les heures de travail » et le VbCrLf et le VbCrLf et le VbCrLf et le VbCrLf et « vous ayez soumis l'information suivante :  » Et VbCrLf et VbCrLf et « nom :  » et nom et VbCrLf et VbCrLf et « téléphone :  » et téléphone et VbCrLf et VbCrLf et « email :  » et email et description de VbCrLf et de VbCrLf et « de cas :  » et descrip 
    objCDOMail1.Subject = « votre soumission a été reçu »
		objCDOMail1.Body = txtBody
		objCDOMail1.Send
		Placer objCDOMail1 = rien
	Finir si
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us