af Jonas Astrup, HTML.dk
Sidst opdateret d. 23. marts 2001
Med dette script kan du afsende e-mails med ASP direkte fra dit website. Scriptet kræver at CDONTS er installeret på den server hvor dit website er placeret.
For overskuelighedens skyld er scriptet lavet i en simpel og en avanceret udgave. Den simple udgave indeholder kun de allermest nødvendige oplysninger, som skal til for at sende en mail. Den avancerede udgave giver mulighed for at sende CC, BCC, vedhæfte filer, angive prioritet, m.v.
De mest basale egenskaber, som skal defineres for at sende en mail med CDONTS
<% Dim objCDO ' CDONTS.NewMail objektet Set objCDO = Server.CreateObject("CDONTS.NewMail") ' Her sættes afsender adresse objCDO.From = "afsender@domain.dk" ' Her sættes modtager adresse objCDO.To = "modtager@domain.dk" ' Her sættes overskriften på mailen objCDO.Subject = "testmail" ' Her sættes selve teksten til mailen objCDO.Body = "Dette er en testmail afsendt fra www.html.dk." 'send mail objCDO.Send ' Fjern objekt igen Set objCDO = Nothing %>
Ovenstående kan også sammenskrives på følgende måde, hvor FROM, TO, SUBJECT og BODY erstattes med de relevante adresser og tekst:
<% Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.Send("FROM","TO","SUBJECT","BODY") Set objCDO = Nothing %>
En udvidelse af ovenstående script, hvor der er mulighed for at sende CC, BCC, vedhæfte filer, angive prioritet, m.v.
<% Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "afsender@domain.dk" objCDO.To = "modtager@domain.dk" objCDO.Subject = "testmail" objCDO.Body = "Dette er en testmail afsendt fra www.html.dk." ' ----------------------------------------------------- ' * Ekstra egenskaber (valgfrit) ' Modtager af kopi objCDO.Cc = "modtager2@domain.dk" ' Modtager af blind kopi objCDO.Bcc = "modtager3@domain.dk" ' Prioritet: 1 = Høj, 2 = Normal (standard), 3 = Lav objCDO.Importance = 2 ' TekstFormat: 0 = HTML, 1 = Text (standard) objCDO.BodyFormat = 1 ' MailFormat: 1 = Mime format, 2 = Text (standard) objCDO.MailFormat = 2 ' Attachment (bemærk stiangivelsen på serveren) objCDO.AttachFile("c:\inetpub\wwwroot\test.txt") ' ----------------------------------------------------- 'send mail objCDO.Send ' Fjern objekt igen Set objCDO = Nothing %>
