Frage : Merkwürdiges CDONTS Verhalten

Das erste Teil des Indexes aussendet eine eMail zum Webmaster, das zweite Teil aussendet eine eMail zur Person il, die die Form, wenn sie ein email address.

If gaben, das ich den email addressfreien raum lasse, ich erhalten das erste Teil des Indexes ergänzte, der mir eine eMail schickt, wie dieses entworfen, immer gesendet zu werden. Wenn ich ein email address ausfülle, erhalte ich das zweite Teil, das mir eine eMail schickt, aber ich erhalte nichts vom ersten Teil, wenn das erste Teil immer zu send.

Is es soll, weil beide eMail zur gleichen Adresse? sind? das ist sinnvoll nicht zu me. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Dim objNewMail, objNewMail1
	objCDOMail = Server.CreateObject („CDONTS.NewMail“) einstellen
		objCDOMail.To = „[email protected]“
		objCDOMail.From = „[email protected]“
		txtBody = „jemand in Verbindung getreten mit Ihnen von Ihrem Aufstellungsort“ u. VbCrLf u. VbCrLf u. „Name: “ u. Name u. VbCrLf u. VbCrLf u. „Telefon: “ u. Telefon u. VbCrLf u. VbCrLf u. „eMail: “ u. eMail u. VbCrLf u. VbCrLf u. „Fallbeschreibung: “ u. descrip 
    objCDOMail.Subject = „jemand in Verbindung getreten mit Ihnen von Ihrer Web site“
		objCDOMail.Body = txtBody
		objCDOMail.Send
		objCDOMail einstellen = nichts		
	Wenn eMail <> "" dann
		Einstellen objCDOMail1 = Server.CreateObject („CDONTS.NewMail1“)
		objCDOMail1.To = eMail
		objCDOMail1.From = „[email protected]“
		txtBody = „dieses ist eine automatisierte Antwort. Bitte nicht antworten ........ empfangen Ihre Mitteilung. Für das Erklären danke uns über Ihren Fall. Wir versuchen, mit Ihnen using die Informationen in Verbindung zu treten, die Sie zur Verfügung gestellt. Sie können uns bei leerem 1-888 während der normalen Geschäftsstunden auch erreichen, oder Sie können eine Mitteilung lassen, nachdem Geschäftsstunden“ u. VbCrLf u. VbCrLf u. VbCrLf u. VbCrLf u. „Sie die folgenden Informationen eingereicht: “ U. VbCrLf u. VbCrLf u. „Name: “ u. Name u. VbCrLf u. VbCrLf u. „Telefon: “ u. Telefon u. VbCrLf u. VbCrLf u. „eMail: “ u. eMail u. VbCrLf u. VbCrLf u. „Fallbeschreibung: “ u. descrip 
    objCDOMail1.Subject = „Ihre Unterordnung empfangen worden“
		objCDOMail1.Body = txtBody
		objCDOMail1.Send
		Einstellen objCDOMail1 = nichts
	Beenden wenn

Antwort : Merkwürdiges CDONTS Verhalten

Hallo,

  Haben Sie einen Typo auf Linie 11 - IE „CDONTS.NewMail1“ eher als „CDONTS.NewMail“
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Schwaches objNewMail, objNewMail1
	objCDOMail = Server.CreateObject („CDONTS.NewMail“) einstellen
		objCDOMail.To = „[email protected]“
		objCDOMail.From = „[email protected]“
		txtBody = „jemand in Verbindung getreten mit Ihnen von Ihrem Aufstellungsort“ u. VbCrLf u. VbCrLf u. „Name: “ u. Name u. VbCrLf u. VbCrLf u. „Telefon: “ u. Telefon u. VbCrLf u. VbCrLf u. „eMail: “ u. eMail u. VbCrLf u. VbCrLf u. „Fallbeschreibung: “ u. descrip 
    objCDOMail.Subject = „jemand in Verbindung getreten mit Ihnen von Ihrer Web site“
		objCDOMail.Body = txtBody
		objCDOMail.Send
		objCDOMail einstellen = nichts		
	Wenn eMail <> "" dann
		Einstellen objCDOMail1 = Server.CreateObject („CDONTS.NewMail“)
		objCDOMail1.To = eMail
		objCDOMail1.From = „[email protected]“
		txtBody = „dieses ist eine automatisierte Antwort. Bitte nicht antworten ........ empfangen Ihre Mitteilung. Für das Erklären danke uns über Ihren Fall. Wir versuchen, mit Ihnen using die Informationen in Verbindung zu treten, die Sie zur Verfügung gestellt. Sie können uns bei leerem 1-888 während der normalen Geschäftsstunden auch erreichen, oder Sie können eine Mitteilung lassen, nachdem Geschäftsstunden“ u. VbCrLf u. VbCrLf u. VbCrLf u. VbCrLf u. „Sie die folgenden Informationen eingereicht: “ U. VbCrLf u. VbCrLf u. „Name: “ u. Name u. VbCrLf u. VbCrLf u. „Telefon: “ u. Telefon u. VbCrLf u. VbCrLf u. „eMail: “ u. eMail u. VbCrLf u. VbCrLf u. „Fallbeschreibung: “ u. descrip 
    objCDOMail1.Subject = „Ihre Unterordnung empfangen worden“
		objCDOMail1.Body = txtBody
		objCDOMail1.Send
		Einstellen objCDOMail1 = nichts
	Beenden wenn
Weitere Lösungen  
 
programming4us programming4us