Also: So schauts jetzt aus:
While Not rs.EOF
MaxCount = MaxCount + 1
strTo = rs("EMail")
strSubject = MessageSubject
strFrom = "[EMAIL PROTECTED]"
strBody = Message
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAdress = StrFrom
Mailer.RemoteHost = "mail.meinewebsite.com"
Mailer.To = strTo
Mailer.Subject = strSubject
Mailer.Body = strBody
Mailer.Send
Set Mailer = Nothing
CHtml = CHtml & rs("EMail") & vbcrlf
CHtml = CHtml & "<BR>" & vbcrlf
rs.MoveNext
Wend
Leider kann das ASPMAil wohl die Variable strTo nicht auslesen. Ich
denke mal, die Schleife geht einfach nicht.
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
