Notice
Recent Posts
Recent Comments
Tags more
«   2024/12   »
일 월 화 수 목 금 토
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
Archives
Today
Total
관리 메뉴

웹개발자의 기지개

[ASP] 구글메일 발송하기 본문

ASP

[ASP] 구글메일 발송하기

http://portfolio.wonpaper.net 2024. 1. 11. 21:43

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
<%@ Codepage="65001" language="VBScript" %>
  <%
 
  dim mailbody
 
  mailBody = "쏠라쏠라~ " 
 
  
  Set objCMsg = Server.CreateObject("CDO.message")
  Set iConf = objCMsg.Configuration
 
 
  strschema = "http://schemas.microsoft.com/cdo/configuration/"
 
 
  With iConf.Fields
  
 
  .item(strschema & "sendusing") = 2
 
  .item(strschema & "smtpserverport") = 465 
 
  .item(strschema & "smtpserver") = "smtp.gmail.com"
 
  .item(strschema & "smtpusessl") = True 
 
  .item(strschema & "sendusername") = "본인 gmail ID@gmail.com"
 
  .item(strschema & "sendpassword") = "gmail password"
 
  .item(strschema & "smtpauthenticate") = 1 
 
  .Item(strschema & "smtpconnectiontimeout") = 60
 
  .Update
 
  End With
 
 
  objCMsg.From = "admin" & "<gmail id@gmail.com>" '보내는 이메일
 
  objCMsg.To =  "abc@abc.com" '받는 이메일
 
  objCMsg.subject = "email 제목"   
 
  objCMSg.BodyPart.Charset="utf-8"         '/// 한글을 위해선 꼭 넣어 주어야 합니다.
 
  objCMsg.HTMLbody = mailBody
 
  objCMSg.HTMLBodyPart.Charset="utf-8" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
 
  objCMsg.Send 
 
  set objCMsg = nothing
  Set iConf = Nothing
  %>
 cs

 

 

참고 : https://umtaengnote.tistory.com/5

 

'ASP' 카테고리의 다른 글

[ASP] 특정문자가 포함된 문자열 찾기(instr, instrrev)  (1) 2024.01.11
[ASP] 현재 파일명 구하기  (0) 2024.01.11
[ASP] 유니크한 업로드 파일명 만들기  (0) 2024.01.11
[ASP] 3초후 페이지 지연시키기  (0) 2024.01.11
[ASP] 파일업로드 제한하기 (확장자 체크)  (0) 2023.09.27
'ASP' Related Articles more
Comments