ASP에서 CDO로 이메일을 보내는 기능의 예

ASP에서 내 페이지의 형태로 이메일을 지속적으로 보내도록이 기능을 만들었 기 때문에 ASP에서 이메일을 보내기 위해 파일을 만들고 포함시키기 만하면됩니다.

메일 보내기 기능 (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
오류시 다음 다시 시작

 'SMTP 서버에서 인증을 사용하여 문자 메일 보내기

 Const cdoSendUsingPickup = 1 'SMTP 로컬 디렉터리 픽업 서비스를 사용하여 메시지 보내기
Const cdoSendUsingPort = 2 '네트워크를 사용하여 전송, 네트워크를 통해 SMTP

 Const cdoAnonymous = 0 '인증하지 않음
 Const cdoBasic = 1 '기본 인증 (일반 텍스트)
 상수 cdoNTLM = 2 'NTLM

 objMessage = CreateObject ( "CDO.Message") 설정
 objMessage. 제목 = 문제
 objMessage. 보낸 사람 = f sendername & ""
 objMessage. 받는 사람 = femailpara
 objMessage. 숨은 참조 = fbcc
 objMessage. TextBody = fmessage
 fadjoint <> ""다음
 objMessage. AddAttachment fadjoint
 END IF

 '== SMTP 서버가 여기에 구성됩니다.

 objMessage. 구성. 필드. 안건 _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 '원격 SMTP 서버의 이름 또는 IP
 objMessage. 구성. 필드. 안건 _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver") ="로컬 호스트 "

 '인증 유형, NONE, 기본 (Base64 인코딩), NTLM
 objMessage. 구성. 필드. 안건 _
 ("https://schemas.microsoft.com/cdo/configuration/authenticate

 SendEmail = femailpara & ","

끝 기능
%>