ფუნქციის მაგალითი CDP– ით ელ.ფოსტის გაგზავნის ფუნქციისთვის

ასპ / by admin / July 04, 2021

ეს ფუნქცია შევაჩერე, რომ მუდმივად გავგზავნო ელ.ფოსტა ჩემი გვერდების ფორმებიდან ASP– ში, ასე რომ, მხოლოდ ფაილი უნდა შევქმნა და ჩავრთო ASP– ში ელ.ფოსტის გაგზავნისთვის.

ფოსტის გაგზავნის ფუნქცია (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
შეცდომის შესახებ შემდეგი რეზიუმე

'გაგზავნეთ ტექსტური ფოსტა ავტორიზაციის გამოყენებით SMTP სერვერზე

Const cdoSendUsingPickup = 1 'გაგზავნეთ შეტყობინება SMTP ადგილობრივი დირექტორიის პიკაპის სერვისის გამოყენებით
Const cdoSendUsingPort = 2 'გაგზავნა ქსელის გამოყენებით, SMTP ქსელში

Const cdoAnonym = 0 'ნუ ავტორიზაცია
CdoBasic = 1 'ძირითადი (უბრალო ტექსტის) ავტორიზაცია
კონსტ. CdoNTLM = 2 'NTLM

მითითებული objMessage = CreateObject ("CDO.Message")
obj შეტყობინება. თემა = საკითხი
obj შეტყობინება. From = f sendername & ""
obj შეტყობინება. To = femailpara
obj შეტყობინება. Bcc = fbcc
obj შეტყობინება. TextBody = fmessage
IF fadjoint შემდეგ>
obj შეტყობინება. მიამაგრეთ fadjoint
ᲓᲐᲐᲡᲠᲣᲚᲔ ᲗᲣ

'== SMTP სერვერი აქ არის კონფიგურირებული.

obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("

instagram story viewer

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

'დისტანციური SMTP სერვერის სახელი ან IP
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

"ავთენტიფიკაციის ტიპი, NONE, Basic (Base64 კოდირებული), NTLM
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'თქვენი მომხმარებლის ID SMTP სერვერზე
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" მომხმარებელი "

'თქვენი პაროლი SMTP სერვერზე
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" პაროლი "

"სერვერის პორტი (როგორც წესი, 25)
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

"გამოიყენეთ SSL კავშირისთვის (ყალბი ან მართალი)
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = ცრუ

'TIMEOUT წამებში, მაქსიმალური დრო, როდესაც CDO შეეცდება SMTP- თან კავშირი დაამყაროს
obj შეტყობინება. კონფიგურაცია. ველები. ნივთი _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

obj შეტყობინება. კონფიგურაცია. ველები. განახლება

'== SMTP კონფიგურაციის დასრულება ==

obj შეტყობინება. გაგზავნა

SendEmail = femailpara & ","

დასრულების ფუნქცია
%>

წარწერები ღრუბელი

ასპ

რეიტინგი

Დათვალიერება

კომენტარები