Tja: Das Objekt unterst�tzt diese Eigenschaft oder Methode nicht.: 'objCDOMail.AddRecipient'
Leider, Reinhold -----Urspr�ngliche Nachricht----- Von: Roman Pittroff [mailto:[EMAIL PROTECTED]] Gesendet: Dienstag, 19. M�rz 2002 20:18 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] RE: AW: RE: Newsletter Versuche mal das :) Set objCDOMail = Server.CreateObject("SMTPsvg.Mailer") objCDOMail.FromName = StrFrom objCDOMail.AddRecipient = strTo objCDOMail.Subject = strSubject objCDOMail.BodyTex = strBody if objCDOMail.SendMail then Response.Write "Mail sent..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if Gruss Roman Pittroff Consulting Bangkok, Thailand >-----Original Message----- >From: Reinhold Becker [mailto:[EMAIL PROTECTED]] >Sent: Wednesday, March 20, 2002 1:38 AM >To: ASP Diskussionsliste fuer Anfaenger >Subject: [aspdebeginners] AW: RE: Newsletter > > >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/anmel>den/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 > | 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
