Servus Roman, Genau das dachte ich auch, und habe es mal ausprobiert. Ging nur nicht. Ich mach das gleich noch mal.
Reinhold -----Urspr�ngliche Nachricht----- Von: Roman Pittroff [mailto:[EMAIL PROTECTED]] Gesendet: Dienstag, 19. M�rz 2002 19:29 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] RE: Newsletter Hallo Genau ist das diese stelle Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = StrFrom objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send Und das ist doch nun mit hilfe von der ASPMAIL docs doch ganz einfach Einfach das CreateObject auf aspmail object umbenennen die optionen from u.s.w muessten gleich sein Gruss Roman Pittroff Consulting Bangkok, Thailand >-----Original Message----- >From: Reinhold Becker [mailto:[EMAIL PROTECTED]] >Sent: Wednesday, March 20, 2002 12:44 AM >To: ASP Diskussionsliste fuer Anfaenger >Subject: [aspdebeginners] Newsletter > > >Hallo Gruppe, > >Hat jemand eine Ahnung, wie ich die Newsletter Applikation von >www.aspheute.com von CDONTS auf ASPMAIL umbauen kann? Hier ist >die entsprechende Stelle: > >Danke, >Reinhold > > > >If Request.QueryString("mode") = "send" Then > Group = Request.Form("Group") > MessageSubject = Replace(Request.Form("Subject"), "'", "''") > Message = Replace(Request.Form("Message"), "'", "''") > strSQL = "INSERT INTO NewsHistory (SentTo, >MessageSubject, Message, SentDate) VALUES ('" & Group & "', '" >& MessageSubject & "', '" & Message & "', '" & Date() & "')" > Conn.Execute(strSQL) > strSQL = "SELECT Last(NewsHistoryID) AS NewsletterID >>FROM NewsHistory" > Set rs = Server.CreateObject("ADODB.Recordset") > rs.CursorLocation = adUseClient > rs.Open (strSQL), Conn, adOpenForwardOnly, >adLockReadOnly, adCmdText > If Not rs.EOF Then > CHtml = CHtml & "Your Newsletter has been saved under >unique ID <B><a href=""newsletter.asp?mode=detail&id=" & >rs("NewsletterID") & """>" & rs("NewsletterID") & "</a></B>" & vbcrlf > End If > rs.Close > Set rs = Nothing > CHtml = CHtml & "<BR>" & vbcrlf > CHtml = CHtml & "<BR>" & vbcrlf > CHtml = CHtml & "<BR>" & vbcrlf > strSQL = "SELECT EMail FROM Newsletter WHERE Section = >'" & Group & "'" > Set rs = Server.CreateObject("ADODB.Recordset") > rs.CursorLocation = adUseClient > rs.Open (strSQL), Conn, adOpenForwardOnly, >adLockReadOnly, adCmdText > MaxCount = 0 > While Not rs.EOF > MaxCount = MaxCount + 1 > strTo = rs("EMail") > strSubject = MessageSubject > strFrom = "[EMAIL PROTECTED]" > strBody = Message > Set objCDOMail = Server.CreateObject("CDONTS.NewMail") > objCDOMail.From = StrFrom > objCDOMail.To = strTo > objCDOMail.Subject = strSubject > objCDOMail.Body = strBody > objCDOMail.Send > Set objCDOMail = Nothing > CHtml = CHtml & rs("EMail") & vbcrlf > CHtml = CHtml & "<BR>" & vbcrlf > rs.MoveNext > Wend > rs.Close > Set rs = Nothing > CHtml = CHtml & "<BR>" & vbcrlf > CHtml = CHtml & "Mails sent to <B>" & MaxCount & "</B> >adresses" & vbcrlf End If > > >| 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
