오늘은 사용자 메시지를 개발 중인데, 한 개는 데이터베이스에 저장하고, 다른 한 개는 지정된 사서함으로 보내야 하는데, 서버가 지원하면 메시지 정보가 전송됩니다. 이메일로. 먼저 On Error Resume Next라는 문구가 있어야 합니다.
그런 다음 jmail 예를 재개해 보십시오.
희미한 JMail
JMail=Server.CreateObject(JMail.Message) 설정
인스턴스에 대해 판단합니다. 구성 요소가 성공적으로 설치되지 않으면 인스턴스가 생성되지 않습니다.
JMail이 아무것도 아니라면
응답.쓰기는 지원되지 않습니다.
또 다른
응답.쓰기 지원
종료 조건
다른 구성 요소도 동일한 방식으로 처리되므로 매우 간단합니다.
전역 파일에서 처리하는 것이 가장 좋으므로 사용시에는 걱정하지 않으셔도 됩니다.
가장 좋은 방법은 이메일 생성을 표에 넣은 다음 보내는 것에 대해 이야기하는 것입니다.
다음과 같이 코드 코드를 복사합니다.
함수 IsObjInstalled(strClassString)
오류 발생 시 다음 재개
IsObjInstalled = 거짓
오류 = 0
DimxTestObj
xTestObj = Server.CreateObject(strClassString) 설정
0 = Err이면 IsObjInstalled = True
xTestObj = 없음 설정
오류 = 0
기능 종료
판정 코드:
IsObjInstalled(JMail.Message)=True이면{
IsObjInstalled(JMail.Message) =True인 경우
SendStat = Jmail(***@vevb.com, 인터넷에서 보낸 고객 메시지, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>웹사이트 사용자 메시지</title></head><body>메시지 사람: &txtname&<br>성별: &xingbie&<br>상담 웹사이트: &txtweb&<br>연락처 정보: &txttel&<br>메시지 내용 :&계속 ent&<br>IP 주소:&ipaddress&<br>메시지 시간:&now()&<br><br>이 이메일은 시스템에서 자동으로 전송되므로 회신이 필요하지 않습니다.<!--스크립트 홈 www.vevb.com-- ><br ><br></body></html>,GB2312,text/html)
종료하면
}
jmail 전송 기능
다음과 같이 코드 코드를 복사합니다.
' ============================================
' jmail이 이메일을 보냅니다.
' ============================================
기능 Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'항목 매개변수:
' mailTo 수신자 이메일 주소
'mailTopic 메일 주제
' mailBody 이메일 본문(내용)
' mailCharset 메일 문자 집합(예: GB2312 또는 US-ASCII)
' mailContentType 이메일 본문 형식(예: text/plain 또는 text/html)
'반환 값:
' 문자열, 전송이 성공하면 OK가 반환되고, 실패하면 오류 메시지가 반환됩니다.
'용법:
' 1) 상수, 즉 Const로 시작하는 변수를 설정합니다.
'2) 다음과 유사한 코드를 사용하여 메시지를 보냅니다.
'흐릿한 SendStat
'SendStat = Jmail([email protected], 테스트 Jmail, 테스트 편지입니다!, GB2312, text/html)
'응답.쓰기 SendStat
'********************필요에 따라 상수를 설정하여 시작하세요******************
Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword
ConstFromNameCn = 복권 네트워크의 발신자 중국어 이름(중국어 이메일을 보낼 때 사용됨)(예: 'Zhang San')
ConstFromNameEn = bc5'발신자의 영어 이름(영어 이메일을 보낼 때 사용), 예: 'zhangsan'
ConstFrom = [email protected]' 보낸 사람의 이메일 주소(예: '[email protected]')
ConstMailDomain = smtp.163.com'smtp 서버 주소(예: smtp.163.com)
ConstMailServerUserName = [email protected]'smtp 서버의 사서함 로그인 이름(예: 'zhangsan'). 보내는 사람의 이메일 주소와 꼭 일치하세요!
ConstMailServerPassword = www.vevb.com'smtp 서버의 메일함 로그인 비밀번호
'********************필요에 따라 상수를 설정하여 종료****************
'------다음 내용은 변경할 필요가 없습니다--------- -------- ---------------
오류 발생 시 다음 재개
희미한 myJmail
myJmail = Server.CreateObject(JMail.Message) 설정
myJmail.Logging = False'로깅
myJmail.ISOEncodeHeaders = False'Mail 헤더는 ISO-8859-1 인코딩을 사용하지 않습니다.
myJmail.ContentTransferEncoding = base64'메일 인코딩이 base64로 설정되었습니다.
myJmail.AddHeader Priority,3'메일 헤더를 추가하세요. 변경하지 마세요!
myJmail.AddHeader MSMail-Priority,Normal'메일 헤더를 추가하세요. 변경하지 마세요!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'메일 헤더를 추가하세요. 변경하지 마세요!
myJmail.AddHeader MimeOLE, Microsoft MimeOLE V6.00.2800.1441에서 제작'메일 헤더를 추가하세요. 변경하지 마세요!
myJmail.Charset = mailCharset
myJmail.ContentType = mailContentType
UCase(mailCharset) = GB2312이면
myJmail.FromName = ConstFromNameCn
또 다른
myJmail.FromName = ConstFromNameEn
종료 조건
myJmail.From = ConstFrom
myJmail.Subject = mailTopic
myJmail.Body = 메일바디
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.ConstMailDomain 보내기
myJmail.닫기
myJmail=nothing으로 설정
오류가 발생한 경우
Jmail=Err.설명
Err.Clear
또 다른
Jmail=확인
종료 조건
오류 발생 시 0으로 이동
기능 종료