Někdy můžete potřebovat z vaší ASP aplikace odesílat e-maily. Pro ASP to není žádný problém a proto v dnešním článku se seznámíme s objektem CDONTS.NewMail, pomocí něhož můžete posílat libovolné e-mail zprávy na libovolné adresy.

Vytvoření instance objektu NewMail
Instanci objektu NewMal vytvoříme nám již důvěrně známou konstrukcí Server.CreateObject.

   dim mymail
   set mymail=server.CreateObject(„cdonts.newmail“)

Vlastnost To
Řetězec, který obsahuje adresáta nebo seznam adresátu, kteří obdrží e-mail. Adresy se v seznamu oddělují pomocí středníku.

MyMail.To=“ondrej.kopp@example.net;miroslav.kucera@example.net“

Vlastnost Cc
Řetězec, který obsahuje adresáta nebo seznam adresátu, kteří obdrží kopii e-mailu. Adresy se v seznamu oddělují pomocí středníku.

MyMail.Cc=“ondrej.kopp@example.net;miroslav.kucera@example.net“

Vlastnost Bcc
Řetězec, který obsahuje adresáta nebo seznam adresátu, kteří obdrží slepou kopii e-mailu. Adresy se v seznamu oddělují pomocí středníku.

MyMail.Bcc=“ondrej.kopp@example.net;miroslav.kucera@example.net“

Vlastnost From
Řetězec, který obsahuje adresu odesílatele e-mailu. Při zadávaní adresy odesílatele je třeba zadat pouze jednu adresu a zadaná adresa nesmí obsahovat středník.

MyMail.From=“ondrej.kopp@example.net;miroslav.kucera@example.net“

Vlastnost Subject
Pomocí vlastnosti Subject nastavíte předmět odesílaného e-mailu. Lze zadat i prázdný řetězec, ale předmět mailu náleží k etice e-mail komunikace.

MyMail.Subject=“E-mail pomocí ASP“

Vlastnost Body
Pomocí vlastnosti Body definujeme vlastní obsah e-mailu

MyMail.Body=“Mailování pomocí ASP je tak jednoduché“

Metoda Send
Po řadě vlastností tu máme konečně jednu metodu a to sice metodu Send, která zajišťuje vlastní odeslání e-mailu.

MyMail.Send

Nyní již známe základní vlastnosti objektu NewMail a pomocí metody Send můžeme odesílat E-maily.

Na příkladu si ukážeme jak pomocí jednoduchého formuláře odesílat e-mail přímo z www stránky.

<%
email=Request.Form(„email“)
text=Request.Form(„text“)
if len(email)>0 then
   on error resume next
   dim mymail
   set mymail=server.CreateObject(„cdonts.newmail“)
   mymail.from=“ondrej.kopp@example.net“
   mymail.to=email
   mymail.cc=“ondrej.kopp@example.net“
   mymail.subject=“O posilani mailu“
   mymail.body=text
   mymail.send
   if err.number<>0 then
      Response.Write („Neodesláno“)
      err.clear
   else
      Response.Write („odeslano“)
   end if%>
   on error goto 0%>
   <br>
   <A HREF=“<%=Request.ServerVariables(„script_name“)%>“>Návrat zpět</A><%
else%>
   <form action=“<%=Request.ServerVariables(„script_name“)%>#priklad“ method=post id=form1 name=form1>
   Email adresa :<INPUT type=“text“ name=EMAIL><br>
   Text E-mailu :<TEXTAREA rows=2 cols=20 name=TEXT>
   </TEXTAREA><br>
   <INPUT type=“submit“ value=“Odeslat“ id=submit1 name=submit1>
   <INPUT type=“reset“ value=“Vymazat formulář“ id=reset1 name=reset1>
   </form><%
end if%>

To je pro dnešek vše. A co nás čeká příště?
Dozvíte se mimo jiné jak změnit prioritu e-mailové zprávy, ale třeba i to, jak poslat e-mail ve formátu HTML či jak změnit kódovou stránku e-mailové zprávy a jak připojit přílohu k e-mailu.

Starší komentáře ke článku

Pokud máte zájem o starší komentáře k tomuto článku, naleznete je zde.

2 Příspěvků v diskuzi

  1. Vůbec to nefunguje. Stále to hlásí chybu číslo 91 – Object variable or With block variable not set.
    Domnívám se, že chybá nějaká součást windows a nebo služba ISS není plně funkční. V článku není uvedeno, co je nutné nainstalovat, aby to fungovalo. Co s tím?

Odpovědět