|
까페 게시판에 있던 메일 프로그램을 테스트 해보니
메일 인증에서 오류가 나기에 최신버젼 찾아서 올립니다.
우선 프로그램은 여기서 받으시면 되고요.
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 다 됨...
태그 : 사무직이 이런걸 해야되는건지 ㅠㅠ
|