Példa e-mailek küldésére CDO-val ASP-ben

Ezt a funkciót arra használtam, hogy folyamatosan e-maileket küldjek az ASP-n lévő oldalaim űrlapjairól, ezért csak egy fájlt kell létrehoznom, és be kell írnom, hogy e-maileket küldjek az ASP-be.

SendMail funkció (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
A HIBA FOLYTATÁSÁRÓL KÖVETKEZŐ

 'SMS-t küldhet hitelesítéssel egy SMTP-kiszolgálón

 Const cdoSendUsingPickup = 1 'Üzenet küldése az SMTP helyi könyvtárfelvétel szolgáltatással
Const cdoSendUsingPort = 2 'Küldés hálózaton keresztül, SMTP hálózaton keresztül

 Const cdoAnonymous = 0 'Ne hitelesítsen
 Const cdoBasic = 1 'Azonosítás (egyszerű szöveg)
 Const cdoNTLM = 2 'NTLM

 Set objMessage = CreateObject ("CDO.Message")
 objMessage. Tárgy = kérdés
 objMessage. From = f felhasználónév & ""
 objMessage. To = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 HA fadjoint <> "" AKKOR
 objMessage. AddAttachment fadjoint
 VÉGE HA

 '== Itt állíthatja be az SMTP szervert.

 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Funkció befejezése
%>