SMTP ist installiert. Brauch ich noch irgend etwas?
-----Urspr�ngliche Nachricht-----
Von: Stefan H�sler [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 14. September 2001 21:04
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: Probelem mit Mailversand
Hast Du ne Mail-Komponente installiert?
-----Urspr�ngliche Nachricht-----
Von: Adrian Ernst [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 14. September 2001 18:48
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Probelem mit Mailversand
Hallo Liste,
ich habe ein Problem mit dem versenden von Mails �ber ASP. Ich erstelle die
mail ich schicke sie dann mit dem Befehl Mail.Send ab. Jedenfalls sollte es
so sein. Ich habe den Versand in eine If Anweisung eingebaut, die mir
ausgibt ob die Mail versendet wurde oder nicht. Nach der ANzeige ist dies
nicht der Fall. Der Inhalt wird nur in eine Textdatei geschrieben und im
Verzeichnis C:\Inetpub\mailroot\Queue abgelegt. Jedoch dann nicht weiter
verarbeitet. Kann mirt jemand helfen? Hier ist der Quellcode:
Const cstCdoMailFormatMime = 1
Const cstCdoMailFormatText = 0
Const cstCdoBodyFormatHTML = 0
Const cstCdoBodyFormatText = 1
set mail = Server.CreateObject("CDonts.Newmail")
Mail.MailFormat = cstCdoMailFormatText
Mail.BodyFormat = cstCdoBodyFormatText
Mail.From = Set_Leerstelle(Request.QueryString("gb_mail"))
Mail.To = empfaenger
tag = Request.QueryString("gb_tag")
monat = Request.QueryString("gb_monat")
jahr = Request.QueryString("gb_jahr")
stunde = Request.QueryString("gb_stunde")
min = Request.QueryString("gb_minute")
Mail.Subject = "Neuer Eintrag in das Gaestebuch - " & tag & "." &
Set_fuehrendeNull(monat) & "." & jahr & " - " & stunde & ":" & min
mailtext = "Name: " & Set_Leerstelle(Request.QueryString("gb_name"))
if (Request.QueryString("gb_stadt") <> "") then
mailtext = mailtext & chr(10) & "Stadt: " & Request.QueryString("gb_stadt")
end if
if (Request.QueryString("gb_bund") <> "") then
mailtext = mailtext & chr(10) & "Bundesland: " &
Request.QueryString("gb_bund")
end if
mailtext = mailtext & chr(10) & chr(10)
mailtext = mailtext & "Kommentar:" & chr(10) &
Request.QueryString("gb_kommentar")
Mail.Body = mailtext
If (Mail.Send = true) then
Response.write("Mail versendet.")
else
Response.write("Nicht gesendet.")
end if
Set Mail = Nothing
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
