Udsending af mails

Der findes et utal af mailkomponenter som der sender mail via serverens egen SMTP eller fra en ekstern SMTP. I de fleste komponenter kan du definere SMTP serveren ved simpelthen at skrive servernavnet.

For at sende flere mails kan du gøre sådan her.

<%
Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "justme@myaddress.com"
MyMail.To = "friend1@address1.com;friend2@address2.com"
MyMail.Cc = "friend3@address3.com;friend4@address4.com"
MyMail.Bcc = "friend5@address5.com;friend6@address6.com"
MyMail.Subject = "sending email via CDONTS NewMail"
MyMail.Body = "Sending email with CDONTS NewMail objects is easy! Try it!"
MyMail.Send
Set MyMail = Nothing
%>

Du kan sende flere mails ved at skrive emailadresserne adskildt ved hjælp af semikolon.. Objektet der bliver brugt her bruger den komponent der er inkluderet i IIS'en. Du definerer derefter bare din SMTP på IIS'en.

...Og Jmail mail:

<%

set jmail = server.createobject("JMAIL.SMTPMail")
jMail.sendername = "Ditnavn"
jMail.sender = "dinemail"
jMail.Subject = "dinbesked"
jMail.ServerAddress = "mail.snuseren.dk"
jMail.AddRecipient "modtagermail"
jMail.Body = " Tillykke mailen er sendt."
jMail.Priority = 3
jMail.execute


%>

//Snuseren.dk

Jmail har en massmailing funktion i den betalte udgave (49usd).
Den skulle være god - man jeg kan ikke få den til at virke!! :-(
(ny i ASP)

Hvis du vil sende ud til en liste:

<%

sql = "SELECT EMail FROM tablename"
Set rs = Connect.Execute(sql)

do while not (rs.bof or rs.eof)

set jmail = server.createobject("JMAIL.Message")
jMail.sendername = "Ditnavn"
jMail.sender = "dinemail"
jMail.Subject = "dinbesked"
jMail.ServerAddress = "mail.snuseren.dk"
jMail.AddRecipient rs("EMail")
jMail.Body = " Tillykke mailen er sendt."
jMail.Priority = 3
jMail.execute

rs.movenext
loop

%>

Det er vel at mærke en liste der er lagret i en DB! ;0)

hehe, jeg er helt med på alt det der .. jeg udsender over 100.000 mails om dagen ..

Det eneste det gik ud på var om man kunne få IIS'en til at sende mailene fra en anden server

Fra en anden server????

Det er da bare at gøre følgende så:

sql = "SELECT EMail FROM tablename"
Set rs = Connect.Execute(sql)

do while not (rs.bof or rs.eof)

set jmail = server.createobject("JMAIL.Message")
jMail.sendername = "Ditnavn"
jMail.sender = "dinemail"
jMail.Subject = "dinbesked"
jMail.ServerAddress = "mail.snuseren.dk"
jMail.AddRecipient rs("EMail")
jMail.Body = " Tillykke mailen er sendt."
jMail.Priority = 3
jMail.execute

rs.movenext
loop

If not msg.Send("server_navn/ip") Then
                Response.Write "Der opstod en fejl."
            Else
                Response.Write "Mailen er sendt."
            End if

Ok, vil det betyde at selve mail-filerne (dem der havde i pickup-mappen) heller ikke dannes på den IIS det køres fra ?