Jmail

4 svar · 186 visningar · startad av Erik Juhlin 24 sep. 2000

Erik JuhlinMedlem sedan maj 200010 687 inlägg

Frågan24 sep. 2000 14:33#1

Har länge försökt att få CDONTS till att funka på Netintense, men det funkar fortfarande inte.
För ett tag sen fick jag tipset om att Jmail funkar där. Hur gör man då för att skicka mail med Jmail?
Kan någon göra om den här kodsnutten?
<%
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "kerstin@juhlin.nu"
CDOMail.To = "erik@juhlin.nu"
CDOMail.Cc = "anna@juhlin.nu"
CDOMail.Subject = "Test"
CDOMail.Body = "Detta är en test av CDONTS-mail!"
CDOMail.Send
Set CDOMail = Nothing
%>

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

AGMedlem sedan mars 20001 266 inlägg

24 sep. 2000 15:09#2

Detta använder jag mig av, omgjort till din ära:

<%
Set JMail = Server.CreateObject("JMail.SMTPMail") 

' Below you should enter your own SMTP-server 
JMail.ServerAddress = "mail.digital-network.nu:25" 

JMail.Sender = "kerstin@juhlin.nu"
JMail.Subject = "Test av jmail"

JMail.AddRecipient "erik@juhlin.nu" 

JMail.Priority = 3
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.body = "Test av Jmail, det fungerar grattis!"

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 

JMail.Execute
%>

Hittade ingen kod för cc fält men det hittar du enkelt på deras sida, www.dimac.net

Andreas

[Redigerat av AG den 24 sep 2000]

Erik JuhlinMedlem sedan maj 200010 687 inlägg

24 sep. 2000 16:35#3

Tack, funkar perfekt! :)

CC är inte alls viktigt..

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

Erik JuhlinMedlem sedan maj 200010 687 inlägg

24 sep. 2000 16:53#4

Om man vill ha fält som namn och så, hur lägger man in det då?

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

AGMedlem sedan mars 20001 266 inlägg

24 sep. 2000 17:28#5

Det finns en smart funktion till det:

JMail.body = "Detta är användaren:" & vbcrlf & vbcrlf

Dim el
'add every form element and its value to the email
FOR EACH el IN Request.Form
JMail.appendtext( el & ": " & Request.form(el) & vbcrlf )
NEXT

Den gör så att den lopar formsen från den tidigare sidan, så du inte behöver ange vilka som skall vara med.

Andreas