Funkcijos siųsti el. Laiškus su CDO ASP pavyzdys

Asp / by admin / July 04, 2021

Aš sukūriau šią funkciją, kad galėčiau nuolat siųsti el. Laiškus iš savo puslapių formų ASP, todėl turiu sukurti tik failą ir jį įtraukti, kad galėčiau siųsti el. Laiškus į ASP.

„Mail Mail“ funkcija (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
DĖL KLAIDOS ATNAUJINIMO KITA

„Siųskite teksto laišką naudodamiesi autentifikavimu SMTP serveryje

Const cdoSendUsingPickup = 1 'Siųsti pranešimą naudodami SMTP vietinio katalogo paėmimo paslaugą
Const cdoSendUsingPort = 2 'Siųsti naudojant tinklą, SMTP per tinklą

Const cdoAnonymous = 0 'Nepatvirtinti
Const cdoBasic = 1 'Patvirtinti pagrindinį (paprastas tekstas)
Const cdoNTLM = 2 'NTLM

Nustatyti objMessage = CreateObject ("CDO.Message")
objMessage. Tema = klausimas
objMessage. From = f siuntimo vardas & ""
objMessage. To = femailpara
objMessage. Bcc = fbcc
objMessage. „TextBody“ = f žinutė
JEIGU fadjoint <> "" TADA
objMessage. „AddAttachment fadjoint“
PABAIGA

'== Čia sukonfigūruosite SMTP serverį.

objMessage. Konfigūracija. Laukai. _ Prekė
("

instagram story viewer

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

'Nuotolinio SMTP serverio pavadinimas arba IP
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" vietinis šeimininkas "

'Autentifikavimo tipas, NĖRA, pagrindinis (užkoduotas „Base64“), NTLM
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

„Jūsų vartotojo ID SMTP serveryje
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" VARTOTOJAS "

'Jūsų slaptažodis SMTP serveryje
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" Slaptažodis "

„Serverio prievadas (paprastai 25)
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Ryšiui naudokite SSL (False or True)
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Klaidinga

TIMEOUT sekundėmis - maksimalus laikas, per kurį CDO bandys užmegzti ryšį su SMTP
objMessage. Konfigūracija. Laukai. _ Prekė
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Konfigūracija. Laukai. Atnaujinti

'== Baigti SMTP konfigūraciją ==

objMessage. Siųsti

SendEmail = femailpara & ","

Pabaigos funkcija
%>

Žymos debesys

Įvertinimas

Peržiūrų

Komentarai