[ASP] Re: [ASP] RE: [ASP] Re: [ASP] RE: [ASP] Mailkomponente gesucht für einen Mailverteiler / t.onlin e Problem

[Christopher]

...vielen Dank Stefan, das mit dem Funktionsaufruf und dem Check, ob nicht
schon eine Mail an diese Adresse verschickt wurde, ist eine gute Idee.

Gruß
Chris

----- Original Message -----
From: "Mayer, Stefan" <Stefan.Mayer@keymile.com>
To: <activeserverpages@glengamoi.com>
Sent: Thursday, December 16, 2004 8:37 AM
Subject: [ASP] RE: [ASP] Re: [ASP] RE: [ASP] Mailkomponente gesucht für
einen Mailverteiler / t.online Problem


> Hättest du ein paar gute Codezeilen parat oder Quellen, wo ich nützliche
> Hinweise finde ? Wie geht es sonst , dass man keine 2999 läufe braucht?

--- cut ---
<%Server.ScriptTimeout = 9000
dim eMail, contentID
set email = Server.CreateOBject( "JMail.SMTPMail" )
email.ServerAddress = "smtp.x-press.at"
email.Sender = "webmaster@x-press.at"
email.SenderName = "WebMaster / x-press.at"
contentId = email.AddAttachment(server.MapPath("x.jpg"))

function SendTheHTMLMail (strMail,strName,strSubj,strMsg,strHTML)
on error resume next
if strMail <> "" then
hOut = Replace(strHTML,"###LOGO###","<img border=""0"" src=""cid:" &
contentID & """>")
email.ClearRecipients
email.AddRecipient strMail
email.Subject = "[x-press.at/oc] - " & strSubj
eMail.HTMLBody = hOut
email.Execute
end if
end function

%>
<!-- #include file="../inc.asp" -->
<% if request("do")=1 then
strSQL = "SELECT * From Mitglieder order by Nachname,Vorname"
OpenDB ' Erzeugt eine Connection zur Datenbank - mehr nicht
rs.Open strSQL, Conn
MyHTML = Request.Form("HTML")
while not rs.eof
BodyHTML = MyHTML
em = RS("EMail")
if instr(emalle,em)=0 then ' Checken, ob nicht schon eine Mail an diese
Adresse verschickt wurde...
htmlIn="<table border=""0"" cellpadding=""0"" cellspacing=""0""
style=""border-collapse: collapse"" bordercolor=""#111111""><tr><td
width=""200""><a
href=""http://x-press.at/oc"">###LOGO###</a></td><td><b><font
face=""Verdana"" size=""4"">Newsletter</font></b></td></tr><tr><td
width=""100%"" colspan=""2""><hr color=""#000000""
size=""1""></td></tr><tr><td width=""100%""
colspan=""2"">###BODY###<br><font face=""Verdana"" size=""2"">Dein
&quot;Schnelllogin&quot; -<a href=""http://x-press.at/oc/q.asp?P=" &
RS("P_ID") & "&Username="&server.Urlencode(RS("Username"))&""">hier
klicken!</a></td></tr><tr><td width=""100%"" colspan=""2""><hr
color=""#000000"" size=""1""></td></tr><tr><td width=""100%"" colspan=""2""
align=""center""><font size=""1"" face=""Verdana""><a
href=""http://x.press.at/oc/"">http://x.press.at/oc/</a> - Bankverbindung:
Erste; 280.404.320.00 (BLZ: 20.111), Stefan Mayer.</font></td></tr></table>"
BodyHTML = Replace(htmlIn,"###BODY###",BodyHtml)
outhtml = Replace(Bodyhtml,"[#NICK#]",RS("UserName"))
outhtml = Replace(outhtml,"[#USERNAME#]",Server.Urlencode(RS("Username")))
outhtml = Replace(outhtml,"[#ID#]",RS("ID"))
outhtml = Replace(outhtml,"[#PASS#]",RS("Pwd"))
outhtml = Replace(outhtml,"[#PID#]",RS("P_ID"))

SendTheHTMLMail em,rs("Username"),Request("Betreff"),out,outhtml
Response.write "Gesendet an " & RS("Username") & " (" & RS("EMail")& ") - "
& RS("ID")&"<br>"
    response.flush
emalle = emalle & "~" & em
end if
rs.movenext
wend
end if

%>
Fertig!
--- cut ---

Da hast so ziemlich alles drinnen, incl dem Mitsenden des Logos in der
HTML-Mail.

Stefan.
_______________________________________________
ActiveServerPages Mailingliste, Postings senden an:
ActiveServerPages@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/activeserverpages