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

Áspiskígyó   /   by admin   /   July 04, 2021

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.

E-mail küldése 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

 '== Az SMTP szerver itt van konfigurálva.

 objMessage. Konfiguráció. Mezők. _ Tétel
 ("

instagram story viewer
https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 'A távoli SMTP-kiszolgáló neve vagy IP-címe
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" helyi gazda "

 'Hitelesítés típusa, NINCS, Alap (Base64 kódolású), NTLM
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

 'Az Ön felhasználói azonosítója az SMTP szerveren
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/sendusername") =" FELHASZNÁLÓ "

 'Jelszavát az SMTP szerveren
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" JELSZÓ "

 'Szerver port (általában 25)
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

 'SSL használata a kapcsolathoz (hamis vagy igaz)
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Hamis

 'TIMEOUT másodpercben, az a maximális idő, ameddig a CDO megpróbál kapcsolatot létesíteni az SMTP-vel
 objMessage. Konfiguráció. Mezők. _ Tétel
 ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

 objMessage. Konfiguráció. Mezők. Frissítés

 '== Fejezze be az SMTP-konfigurációt ==

 objMessage. Küld

 SendEmail = femailpara & ","

Funkció befejezése
%>

Címkék felhő
Értékelés
0
Nézetek
0
Hozzászólások
YOU MIGHT ALSO LIKE