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
