MailFromName= "고객"
SmtpFlag="0 "
메일 subject = "디자인 컨설팅"
메일 받는 사람
주제 주제
메시지 본문 메시지 내용
사용자 이름 보낸 사람의 사서함 사용자 이름입니다.
비밀번호 발신자의 사서함 비밀번호입니다.
보낸 사람의 전자 메일 주소
시작 SMTP 보낸 사람 메일 서버
비밀 우편물 숨은 참조 수신인
우편물을 수신자에게 초과 발송하다
AppendMessages 첨부 메시지 본문.
Sendmail (메일, 제목, 메시지 본문, 사용자 이름, 비밀번호, frommail, from SMTP, secret mail, chaosongmail, append messages) 을 호출합니다.
1 성공적으로 반환했습니다.
E_Server = "smtp. 163.com "'송신 서버.
E _ server user = "xxxx @163.com"' 로그인 사용자 이름.
E_ServerPass = "xxxxx "''로그인 비밀번호
E _ send man mail = "XXX @163.com"' 보낸 사람 이메일 주소' E_SendManName =' 시스템 관리자'' 보낸 사람 이름.
함수 SendMail ()
Dim Jmail
Set jmail = server.createobject ("jmail. 메시지) 를 참조하십시오
자메일. Charset = "GB23 12 "'전송 코드
자메일. Contenttransferencoding = "base64"
자메일. Encoding = "base64 "
자메일. 동일 인코딩 헤더 = false
자메일. ContentType="html/text" jmail 입니다. ISOEncodeHeaders ="False "
자메일. 소리 없음 = 실제
자메일. 우선 순위 = 3' 일반 메일
자메일. MailServerUserName =' 자신의 사서함 계정'' 사서함 사용자 이름, 실제 상황에 따라 수정해야 합니다.
자메일. MailServerPassword = "password "'사서함 비밀번호, 필요에 따라 수정해야 합니다.
자메일. From = "계정"
자메일. Subject = "주제"
자메일. AddRecipient ("계정")
자메일. AppendHTML 메시지
자메일. Body=mailcontent
Jmail.addcustomattachment server.mappath ("../fdcpx/images/1.gif)," image 자메일. AddRecipientBCC ("받는 사람의 사서함")' 숨은 참조 받는 사람
자메일. AddRecipientCC ("받는 사람의 사서함")' 를 받는 사람에게 참조합니다.
자메일. Appendbodyfromfile "c: \ \ ss.rar "'파일을 편지의 본문으로 사용합니다.
자메일. Add attachment server.mappath (formpath & 새 이름)
AppendMessages= ""또는 isnull(appendMessages) 인 경우
기타
자메일. AppendText ("인사말이나 기타 정보 추가와 같은 편지 본문 추가")' 인사말이나 기타 정보 추가와 같은 편지 본문을 추가합니다.
만약 ... 끝날거야
Jmail.send ("SMTP.163.com")' SMTP 서버, 실제 상황에 따라 수정해야 합니다.
Jmail = 없음 설정
SendMail= 1
기능을 종료합니다
SendMail%>