Příklad funkce pro odesílání e-mailů s CDO v ASP

Tuto funkci jsem vytvořil k neustálému odesílání e-mailů z formulářů mých stránek v ASP, takže musím pouze vytvořit soubor a zahrnout ho k odesílání e-mailů v ASP.

Funkce Odeslat poštu (odesílatele jména, odesílatele femailu, fmessage, femailpara, fasunto, fadjoint)
NA CHYBU POKRAČOVAT DALŠÍ

 „Odeslat textovou poštu pomocí ověřování na serveru SMTP

 Const cdoSendUsingPickup = 1 'Odeslat zprávu pomocí služby vyzvednutí místního adresáře SMTP
Const cdoSendUsingPort = 2 'Odeslat pomocí sítě, SMTP přes síť

 Const cdoAnonymous = 0 'Neověřovat
 Const cdoBasic = 1 'Ověřit základní (prostý text)
 Const cdoNTLM = 2 'NTLM

 Set objMessage = CreateObject ("CDO.Message")
 objMessage. Předmět = vydání
 objMessage. From = f sendername & ""
 objMessage. To = femailpara
 objMessage. Skrytá kopie = fbcc
 objMessage. TextBody = fmessage
 POKUD fadjoint <> "" POTOM
 objMessage. AddAttachment fadjoint
 END IF

 '== Zde je nakonfigurován server SMTP.

 objMessage. Konfigurace. Pole. Položka _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Ukončit funkci
%>