ASP a rozesílání emailů – žádný problém

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.