Nyhetsbrev!

27 svar · 714 visningar · startad av Asa 14 aug. 2002 · sida 2 av 2

Frågan, av Asa 14 aug. 2002

Jag har problem å kunna skicka nyhetsbrev till ex hotmailadresser! Vet intevad som kan strula! Hoppas nån vet! Min kod: <%Set RecSet=Conn.Execute("SELECT From nyhetsbrev") Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf) On Error Resume Next x=0 Do Until RecSet.EOF Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail") SmartMail.Server = SMTP SmartMail.Se

Läs frågan i sin helhet →

AsaMedlem sedan dec. 20011 860 inlägg

14 aug. 2002 17:33#21

Hmm - okej! Ska använda Jmail oxå! Med html kod! Hur ska jag skriva då? Orkar du göra om min kod?

PatrikBMedlem sedan mars 20002 836 inlägg

14 aug. 2002 17:36#22

Kan ta ngn dag eller 2 ....

Vilken version av JMail har du??

PatrikBMedlem sedan mars 20002 836 inlägg

14 aug. 2002 17:42#23

... annars kan du kika här hur du skapar ett HTML Mail med JMail 4.3

cya,
PatrikB

AsaMedlem sedan dec. 20011 860 inlägg

14 aug. 2002 17:43#24

Jag har det nyaste tror jag. Jag kan kolla lite på det

trexter.comMedlem sedan apr. 20021 203 inlägg

15 aug. 2002 06:50#25

Ingenting som har med saken att göra riktigt men en gång när jag registrerade mig på et textbaserat ASP-spel och skulle få ett lösenord på emailen så fick man inte använda Hotmail så det är kanske inte ett problem du är ensam om!

PatrikBMedlem sedan mars 20002 836 inlägg

15 aug. 2002 07:30#26

Det var nog av någon annan anledning som du inte fick använda hotmail.

Själv brukar jag, till vissa applikationer, använda mig av en block-lista. I den block-listan finns de flesta "anonyma" mail-konton med typ hotmail, yahoo, mail.ru etc

cya,
PatrikB

crisse6Medlem sedan dec. 20002 526 inlägg

15 aug. 2002 09:46#27

det är nog bara en funktion dom har lagt till....tror jag iaf ;) jag använder cdonts och där är det inga problem med att skicka till hotmail....

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

15 aug. 2002 09:47#28

Hejsan, jag har denna kod till när man har tryck "Skicka nyhetsbrev", men det funkar inte att skicka till hotmailadresser och till andra så syns inte själva meddelandet, vad kan vara fel?

If Request.Querystring("action") = "sent" Then

Set RecSet=Conn.Execute("SELECT * From nyhetsbrev")

Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf)

On Error Resume Next
Do While Not RecSet.EOF

Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")
SmartMail.Server = "mail.aleborg.com"  
SmartMail.SenderAddress = dinemail
SmartMail.Recipients.Add RecSet("Email")
SmartMail.Subject = Request.Form("Subject")
    
Body = "<font face=verdana size=1>"
Body = Body & "<b>Nyhetsbrev från " & sidnamn & "!</b><br>"  
Body = Body & "---------------------------------------------------------------------<br>"
Body = Body & "<b>Skickades:</b>  " & Now & "<br>"
Body = Body & "---------------------------------------------------------------------<br>"
HTML = HTML & Meddelande & "<br>"  
Body = Body & "</font>"

SmartMail.Body = Body
SmartMail.Charset = "iso-8859-1"
SmartMail.ContentType = "text/html" 
SmartMail.SendMail

RecSet.MoveNext
Loop
    
RecSet.Close
Set RecSet = Nothing

Session("mess") = "<b>Nyhetsbrevet har nu skickats!</b>"
Response.Redirect "admin.asp?sektion=4"

End If