농부지기 :: 파워빌더.공통함수

파워빌더.공통함수 - 메일1

파워빌더/공통함수 2017. 1. 26. 23:57

[ 파워빌더.공통함수 - 메일1 ]

☞

까페 게시판에 있던 메일 프로그램을 테스트 해보니

메일 인증에서 오류가 나기에 최신버젼 찾아서 올립니다.

우선 프로그램은 여기서 받으시면 되고요.

http://www.topwizprogramming.com/freecode/emailsmtp.zip

소스

1. Global Variables에 아래 한줄 추가해 주시고요. (로컬 변수에 선언해도 간게 없을듯 싶어유...)

n_smtp gn_smtp // 메일 발송을 위한 변수

2. 아래 2개만 사용하실 라이브러리에 복사해 넣으시고유 (다른건 디자인적인거라 의미 없을듯 싶어유...)

n_smtp
n_winsock

3. 버튼 하나 맹그신후에유...

String ls_body, ls_server, ls_uid, ls_pwd
String ls_filename, ls_port, ls_encrypt
Integer li_idx, li_max
Boolean lb_html, lb_Return
UInt lui_port

SetPointer(HourGlass!)

// HTML 메일로 보낼때 아래꺼 주석 지워주세유...

//If cbx_sendhtml.Checked Then // 체크박스 만들어서 HMTL / TEXT 메일 선택하도록 한거임
// ls_body = "<html><body bgcolor='#FFFFFF' topmargin=8 leftmargin=8><h2>"
// ls_body += of_replaceall(mle_body.text, "~r~n", "<br>") + "</h2>"
// ls_body += "</body></html>"
// lb_html = True
//Else
// ls_body = mle_body.text
// lb_html = False
//End If

// *** set email properties *********************

gn_smtp.of_ResetAll()
gn_smtp.of_SetPort(25)
gn_smtp.of_SetServer("메일서버이름")
gn_smtp.of_SetReceipt(False)
gn_smtp.of_SetLogFile(False, "smtp_logfile.txt")
gn_smtp.of_SetSubject("메일 제목")
gn_smtp.of_SetBody("메일 내용", False)
gn_smtp.of_SetFrom("발송메일주소", "발송자이름")
gn_smtp.of_AddAddress("수신자메일주소", "수신자이름")

// *** set Userid/Password if required **********
gn_smtp.of_SetLogin("아이디", "패스워드")

// *** add any attachments **********************

// 여긴 첨부파일임 gn_smtp.of_AddAttachment(파일이름인가 경로인가 넣어주면될듯)
//li_max = lb_attachments.TotalItems()
//For li_idx = 1 To li_max
// ls_filename = lb_attachments.Text(li_idx)
// gn_smtp.of_AddAttachment(ls_filename)
//Next

// *** send the message *************************
// 메일 서버 로그인 방식

ls_encrypt = ""
choose case ls_encrypt
case "SSL"
  lb_Return = gn_smtp.of_SendSSLMail()
case "TLS"
  lb_Return = gn_smtp.of_SendTLSMail()
case else
  lb_Return = gn_smtp.of_SendMail()
end choose

If lb_Return Then
MessageBox("SendMail", "Mail successfully sent!")
Else
MessageBox("SendMail Error", gn_smtp.of_GetLastError())
End If

끝...

쉽게 응용 가능 하실꺼유...

테스트 환경 : Windows7 (64Bit), Appeon 6.5 다 됨...

태그 : 사무직이 이런걸 해야되는건지 ㅠㅠ

저작자표시

'파워빌더 > 공통함수' 카테고리의 다른 글

파워빌더.공통함수 - escape (0)	2017.01.26
파워빌더.공통함수 - xmlParser (0)	2017.01.26
파워빌더.공통함수 - 10진수 <-> 36진수 (0)	2017.01.26
파워빌더.공통함수 - 시간 지연 시키기 (0)	2017.01.26
파워빌더.공통함수 - 숫자를 한들로 변환 (0)	2017.01.26