nicht angemeldet
Versenden mit CDONTS klappt - aber nicht mit "Cc"......
Hallo Forumgemeinde,
nachdem ich alle Problemchen gelöst habe, auch mit Eurer Hilfe - !!!! Vielen Dank an alle, die mir gepostet haben !!!!!!! - und mein Versenden von ASP Seiten als eMail nun funktioniert, bin ich doch auf etwas gestoßen, bei dem ich nicht weiterkomme.
Ich kann zwar die Seite ohne Probleme verschicken (sie kommt auch an), aber nicht mit der Option "Cc". Da meldet der Browser diesen Fehler:
Laufzeitfehler in Microsoft VBScript-Fehler '800a000d'
Typen unverträglich
/infonet_working/Artikel/CDONTSMail_bestellung.asp, Zeile 70
Laut MS soll die Anweisung "Cc" funktionieren. Nur nicht bei mir...
Leider habe ich auf den MS Seiten auch kein Hinweiß über einen Patch oder ein Update vom IIS 4.0 gefunden. Ich hatte schon gedacht, es liege an einer nicht mehr aktuellen Version.
Falls es doch so sein sollte, hier meine Konfiguration:
- NT Server 4.0
- NT Servicepack 4
- IIS 4.0 (OP 4)
- FP 2000 Servererweiterungen
Hat jemand von Euch Erfahrung damit oder kann mir sagen, was ich falsch mache?
Anbei hänge ich meinen Code für die "Sendeseite". Vielleicht fällt Euch ja etwas auf....???
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<META HTTP-EQUIV="Content-Type"
content="text/html;charset=iso-8859-1">
<TITLE>CDONTSMail</TITLE>
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & "<br>")
end sub
%>
</HEAD>
<BODY>
<%
Dim myCDONTSMail
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
Dim strFrom
Dim strTo
Dim strCc
Dim strSubject
Dim Name
Dim Strasse
Dim Ort
Dim Artikel
Dim Artikelnr
Dim Menge
Dim BestellText
'The following variable assignments are not required
'they are just here to make interpretation of the
'myCDONTSMail.Send line easier. You could put the
'Request.Form statements in the .Send line to cut down
'on the amount of code in the file.
strBestellText = "hiermit bestelle ich folgende Artikel:"
strLieferAdresse = "Bitte liefern Sie die Ware an folgende Adresse:"
strName = request.form("Vorname") & " " & request.form("Nachname") & ""
strStrasse = request.form("Strasse")
strOrt = request.form("plz") & " " & request.form("Ort") & ""
strArtikel = request.form("Artikel")
strArtikelnr = request.form("Artikelnr")
strMenge = request.form("Menge")
strFrom = request.form("email") & "@lundbeck.com"
strTo = "xyZ@lundbeck.com"
strCc = "abc@lundbeck.com"
strSubject = "Test Materialbestellung von " & strName & " "
strBody = "Sehr geehrter Herr Kuprivizius," & CHR(13) & CHR(13)
strBody = strBody & strBestellText & CHR(13) & CHR(13)
strBody = strBody & request.form("Artikel") & " " & request.form("Artikelnr") & " " & request.form("Menge") & CHR(13) & CHR(13)
strBody = strBody & strLieferAdresse & CHR(13) & CHR(13)
strBody = strBody & strName & CHR(13)
strBody = strBody & strStrasse & CHR(13)
strBody = strBody & strOrt & CHR(13) & CHR(13)
'The following four lines of code are just here for test
'purposes to see what variables have been pulled in from the
'HTM form.
Write("Absender = " & strFrom)
Write("Adressat = " & strTo)
Write("Kopie an = " & strCc)
Write("Betreff = " & strSubject)
Write("Nachricht = " & strBody)
myCDONTSMail.Send strFrom,strTo,strCc,strSubject,strBody
Set myCDONTSMail = Nothing
Write "Ihre Bestellung wurde an " & strTo & " abgeschickt."
%>
</BODY>
</HTML>
-
Hallo...
ja, einen tip könnt ich dir erstmal geben.
Dim Variable1,Variable2,Variable3,Variable4,Variable5,...
probier mal des hier:
set mymail = Server.CreateObject("CDONTS.NEWMAIL")
mymail.from = ....
mymail.to = ....
mymail.cc = ....
mymail.subject = ...
mymail.body = ...// und zum Senden danach:
mymail.send????????????????????????????????????????????
Bei mir macht mein Serverchen das wunderbar, keine Fehlermeldung - jedoch kommt nie ein eMail an auch nicht bei sowas:
set mymail = Server.CreateObject("CDONTS.NEWMAIL")
mymail.from = "ff@gmx.xx"
mymail.to = "ff@gmx.de"
mymail.subject = "Email angekommen"
mymail.body = "Toll, das hat funktioniert"for i=1 to 100 step 1
mymail.send
nextWenn ich wüßte wo da das Problem liegt... hmm??
Grüße, Frank
-
Bei mir macht mein Serverchen das wunderbar, keine Fehlermeldung - jedoch kommt nie ein eMail an auch nicht bei sowas:
set mymail = Server.CreateObject("CDONTS.NEWMAIL")
mymail.from = "ff@gmx.xx"
mymail.to = "ff@gmx.de"
mymail.subject = "Email angekommen"
mymail.body = "Toll, das hat funktioniert"for i=1 to 100 step 1
mymail.send
nextWenn ich wüßte wo da das Problem liegt... hmm??
könnte es sein, dass du das stmpmodul vom iis nicht installiert oder korrekt konfiguriert hast???
cu
Andreas
-
Hallo,
danke für die Hinweise mit dem Konfigurieren des STMP-Dienstes...
werd das mal weiterleitern, da ich nicht den Server bedienen kann (zwar Adminrechte habe aber halt keine Einstellungen vornehmen kann)
Sicher wird da irgendwo noch die Server-Adresse fehlen...
Mal schauen... es gibt irgendwo dieses MMC Einstellungen... die könnte ich mir doch auch laden oder ist der SMTP-Agent irgendwie mit einer ini-file konfiguriert.. das könnte ich evt. auch noch bearbeiten. hmmm schaun wir mal.
Danke für die Tipse!
Frank
-
-
Hallo Frank,
Din Tip war es. So funktioniert es. Vielen Dank.
Bei mir macht mein Serverchen das wunderbar, keine Fehlermeldung - jedoch kommt nie ein eMail an auch nicht bei sowas:
set mymail = Server.CreateObject("CDONTS.NEWMAIL")
mymail.from = "ff@gmx.xx"
mymail.to = "ff@gmx.de"
mymail.subject = "Email angekommen"
mymail.body = "Toll, das hat funktioniert"for i=1 to 100 step 1
mymail.send
nextWie lautet denn bei Deinem (IIS) Server die Adresse des Mailservers an die die eMails verschickt und später weitergeleitet werden?
Gruß
Tom
-