$PBExportHeader$u_tabpg_smtp.sru forward global type u_tabpg_smtp from u_tabpg end type type cbx_debugviewer from checkbox within u_tabpg_smtp end type type cbx_logfile from checkbox within u_tabpg_smtp end type type cb_del from commandbutton within u_tabpg_smtp end type type cb_addfile from commandbutton within u_tabpg_smtp end type type st_7 from statictext within u_tabpg_smtp end type type lb_attachments from listbox within u_tabpg_smtp end type type cbx_sendhtml from checkbox within u_tabpg_smtp end type type st_6 from statictext within u_tabpg_smtp end type type sle_send_email from singlelineedit within u_tabpg_smtp end type type st_4 from statictext within u_tabpg_smtp end type type st_3 from statictext within u_tabpg_smtp end type type sle_from_email from singlelineedit within u_tabpg_smtp end type type sle_from_name from singlelineedit within u_tabpg_smtp end type type st_2 from statictext within u_tabpg_smtp end type type mle_body from multilineedit within u_tabpg_smtp end type type cb_send from commandbutton within u_tabpg_smtp end type type sle_subject from singlelineedit within u_tabpg_smtp end type type st_1 from statictext within u_tabpg_smtp end type type sle_send_name from singlelineedit within u_tabpg_smtp end type type st_5 from statictext within u_tabpg_smtp end type end forward global type u_tabpg_smtp from u_tabpg string text = "Send Mail" cbx_debugviewer cbx_debugviewer cbx_logfile cbx_logfile cb_del cb_del cb_addfile cb_addfile st_7 st_7 lb_attachments lb_attachments cbx_sendhtml cbx_sendhtml st_6 st_6 sle_send_email sle_send_email st_4 st_4 st_3 st_3 sle_from_email sle_from_email sle_from_name sle_from_name st_2 st_2 mle_body mle_body cb_send cb_send sle_subject sle_subject st_1 st_1 sle_send_name sle_send_name st_5 st_5 end type global u_tabpg_smtp u_tabpg_smtp type variables end variables on u_tabpg_smtp.create int iCurrent call super::create this.cbx_debugviewer=create cbx_debugviewer this.cbx_logfile=create cbx_logfile this.cb_del=create cb_del this.cb_addfile=create cb_addfile this.st_7=create st_7 this.lb_attachments=create lb_attachments this.cbx_sendhtml=create cbx_sendhtml this.st_6=create st_6 this.sle_send_email=create sle_send_email this.st_4=create st_4 this.st_3=create st_3 this.sle_from_email=create sle_from_email this.sle_from_name=create sle_from_name this.st_2=create st_2 this.mle_body=create mle_body this.cb_send=create cb_send this.sle_subject=create sle_subject this.st_1=create st_1 this.sle_send_name=create sle_send_name this.st_5=create st_5 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cbx_debugviewer this.Control[iCurrent+2]=this.cbx_logfile this.Control[iCurrent+3]=this.cb_del this.Control[iCurrent+4]=this.cb_addfile this.Control[iCurrent+5]=this.st_7 this.Control[iCurrent+6]=this.lb_attachments this.Control[iCurrent+7]=this.cbx_sendhtml this.Control[iCurrent+8]=this.st_6 this.Control[iCurrent+9]=this.sle_send_email this.Control[iCurrent+10]=this.st_4 this.Control[iCurrent+11]=this.st_3 this.Control[iCurrent+12]=this.sle_from_email this.Control[iCurrent+13]=this.sle_from_name this.Control[iCurrent+14]=this.st_2 this.Control[iCurrent+15]=this.mle_body this.Control[iCurrent+16]=this.cb_send this.Control[iCurrent+17]=this.sle_subject this.Control[iCurrent+18]=this.st_1 this.Control[iCurrent+19]=this.sle_send_name this.Control[iCurrent+20]=this.st_5 end on on u_tabpg_smtp.destroy call super::destroy destroy(this.cbx_debugviewer) destroy(this.cbx_logfile) destroy(this.cb_del) destroy(this.cb_addfile) destroy(this.st_7) destroy(this.lb_attachments) destroy(this.cbx_sendhtml) destroy(this.st_6) destroy(this.sle_send_email) destroy(this.st_4) destroy(this.st_3) destroy(this.sle_from_email) destroy(this.sle_from_name) destroy(this.st_2) destroy(this.mle_body) destroy(this.cb_send) destroy(this.sle_subject) destroy(this.st_1) destroy(this.sle_send_name) destroy(this.st_5) end on event constructor;call super::constructor;sle_send_name.text = of_getreg("SendName", "") sle_send_email.text = of_getreg("SendEmail", "") sle_from_name.text = of_getreg("FromName", "") sle_from_email.text = of_getreg("FromEmail", "") sle_subject.text = of_getreg("Subject", "") mle_body.text = of_getreg("Body", "") If of_getreg("SendHTML", "N") = "Y" Then cbx_sendhtml.checked = True Else cbx_sendhtml.checked = False End If If of_getreg("LogFile", "N") = "Y" Then cbx_logfile.checked = True Else cbx_logfile.checked = False End If If of_getreg("DebugViewer", "N") = "Y" Then cbx_debugviewer.checked = True Else cbx_debugviewer.checked = False End If end event event destructor;call super::destructor;of_setreg("SendName", sle_send_name.text) of_setreg("SendEmail", sle_send_email.text) of_setreg("FromName", sle_from_name.text) of_setreg("FromEmail", sle_from_email.text) of_setreg("Subject", sle_subject.text) of_setreg("Body", mle_body.text) If cbx_sendhtml.checked Then of_setreg("SendHTML", "Y") Else of_setreg("SendHTML", "N") End If If cbx_logfile.checked Then of_setreg("LogFile", "Y") Else of_setreg("LogFile", "N") End If If cbx_debugviewer.checked Then of_setreg("DebugViewer", "Y") Else of_setreg("DebugViewer", "N") End If end event event ue_pagechanged;call super::ue_pagechanged;sle_send_name.SetFocus() end event type cbx_debugviewer from checkbox within u_tabpg_smtp integer x = 1280 integer y = 1360 integer width = 590 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Log to Debug Viewer" end type type cbx_logfile from checkbox within u_tabpg_smtp integer x = 805 integer y = 1360 integer width = 443 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Log to file" end type type cb_del from commandbutton within u_tabpg_smtp integer x = 37 integer y = 1120 integer width = 261 integer height = 100 integer taborder = 90 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Delete" end type event clicked;// delete attachment Integer li_row li_row = lb_attachments.SelectedIndex() If li_row > 0 Then lb_attachments.DeleteItem(li_row) End If end event type cb_addfile from commandbutton within u_tabpg_smtp integer x = 37 integer y = 992 integer width = 261 integer height = 100 integer taborder = 80 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Add" end type event clicked;String ls_pathname, ls_filename, ls_filter Integer li_rc ls_filter = "All files,*.*" li_rc = GetFileOpenName("Select File to Attach", & ls_pathname, ls_filename, "", ls_filter) If li_rc = 1 Then lb_attachments.AddItem(ls_pathname) End If end event type st_7 from statictext within u_tabpg_smtp integer x = 329 integer y = 928 integer width = 315 integer height = 56 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Attachments:" boolean focusrectangle = false end type type lb_attachments from listbox within u_tabpg_smtp integer x = 329 integer y = 992 integer width = 2016 integer height = 292 integer taborder = 70 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 boolean vscrollbar = true boolean sorted = false borderstyle borderstyle = stylelowered! end type type cbx_sendhtml from checkbox within u_tabpg_smtp integer x = 329 integer y = 1360 integer width = 443 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Send as HTML" end type type st_6 from statictext within u_tabpg_smtp integer x = 1257 integer y = 52 integer width = 210 integer height = 56 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "To Email:" alignment alignment = right! boolean focusrectangle = false end type type sle_send_email from singlelineedit within u_tabpg_smtp integer x = 1499 integer y = 40 integer width = 846 integer height = 84 integer taborder = 20 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type st_4 from statictext within u_tabpg_smtp integer x = 1198 integer y = 176 integer width = 270 integer height = 64 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "From Email:" alignment alignment = right! boolean focusrectangle = false end type type st_3 from statictext within u_tabpg_smtp integer x = 18 integer y = 176 integer width = 279 integer height = 64 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "From Name:" alignment alignment = right! boolean focusrectangle = false end type type sle_from_email from singlelineedit within u_tabpg_smtp integer x = 1499 integer y = 168 integer width = 846 integer height = 84 integer taborder = 40 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type sle_from_name from singlelineedit within u_tabpg_smtp integer x = 329 integer y = 168 integer width = 846 integer height = 84 integer taborder = 30 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type st_2 from statictext within u_tabpg_smtp integer x = 155 integer y = 432 integer width = 142 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Body:" alignment alignment = right! boolean focusrectangle = false end type type mle_body from multilineedit within u_tabpg_smtp integer x = 329 integer y = 424 integer width = 2016 integer height = 444 integer taborder = 60 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type cb_send from commandbutton within u_tabpg_smtp integer x = 2011 integer y = 1344 integer width = 334 integer height = 100 integer taborder = 100 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Send" end type event clicked;String ls_body, ls_server, ls_uid, ls_pwd String ls_filename, ls_port, ls_encrypt, ls_errormsg Integer li_idx, li_max Boolean lb_html, lb_Return UInt lui_port SetPointer(HourGlass!) ls_server = of_getreg("Server", "") If ls_server = "" Then MessageBox("Edit Error", & "You must specify Server on the Settings tab first!", StopSign!) Return End If If sle_send_email.text = "" Then sle_send_email.SetFocus() MessageBox("Edit Error", & "To Email is a required field!", StopSign!) Return End If If sle_from_email.text = "" Then sle_from_email.SetFocus() MessageBox("Edit Error", & "From Email is a required field!", StopSign!) Return End If If sle_subject.text = "" Then sle_subject.SetFocus() MessageBox("Edit Error", & "Subject is a required field!", StopSign!) Return End If If mle_body.text = "" Then mle_body.SetFocus() MessageBox("Edit Error", & "Body is a required field!", StopSign!) Return End If If Not gn_smtp.of_ValidEmail(sle_from_email.text, ls_errormsg) Then sle_from_email.SetFocus() MessageBox("Edit Error", ls_errormsg, StopSign!) Return End If If Not gn_smtp.of_ValidEmail(sle_send_email.text, ls_errormsg) Then sle_send_email.SetFocus() MessageBox("Edit Error", ls_errormsg, StopSign!) Return End If If cbx_sendhtml.Checked Then 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 lui_port = Long(of_getreg("Port", "25")) // *** set email properties ********************* gn_smtp.of_ResetAll() gn_smtp.of_SetPort(lui_port) gn_smtp.of_SetServer(ls_server) gn_smtp.of_SetLogFile(cbx_logfile.Checked, "smtp_logfile10.txt") gn_smtp.of_SetDebugViewer(cbx_debugviewer.Checked) gn_smtp.of_SetSubject(sle_subject.text) gn_smtp.of_SetBody(ls_body, lb_html) gn_smtp.of_SetFrom(sle_from_email.text, sle_from_name.text) gn_smtp.of_AddAddress(sle_send_email.text, sle_send_name.text) gn_smtp.of_SetXMailer("Microsoft Outlook 14.0") // *** set Userid/Password if required ********** If of_getreg("Auth", "N") = "Y" Then ls_uid = of_getreg("Userid", "") ls_pwd = of_getreg("Password", "") gn_smtp.of_SetLogin(ls_uid, ls_pwd) End If // *** add any attachments ********************** 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, True) Next // *** send the message ************************* ls_encrypt = of_getreg("Encrypt", "None") 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 end event type sle_subject from singlelineedit within u_tabpg_smtp integer x = 329 integer y = 296 integer width = 2016 integer height = 84 integer taborder = 50 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type st_1 from statictext within u_tabpg_smtp integer x = 105 integer y = 304 integer width = 192 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Subject:" alignment alignment = right! boolean focusrectangle = false end type type sle_send_name from singlelineedit within u_tabpg_smtp integer x = 329 integer y = 40 integer width = 846 integer height = 84 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 borderstyle borderstyle = stylelowered! end type type st_5 from statictext within u_tabpg_smtp integer x = 73 integer y = 48 integer width = 224 integer height = 64 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "To Name:" alignment alignment = right! boolean focusrectangle = false end type
File: u_tabpg_smtp.sru
Size: 17262
Date: Tue, 11 Oct 2022 03:11:04 +0200
Size: 17262
Date: Tue, 11 Oct 2022 03:11:04 +0200
- u_tabpg u_tabpg_smtp(sru)
- checkbox cbx_debugviewer
- checkbox cbx_logfile
- commandbutton cb_del
- commandbutton cb_addfile
- statictext st_7
- listbox lb_attachments
- checkbox cbx_sendhtml
- statictext st_6
- singlelineedit sle_send_email
- statictext st_4
- statictext st_3
- singlelineedit sle_from_email
- singlelineedit sle_from_name
- statictext st_2
- multilineedit mle_body
- commandbutton cb_send
- singlelineedit sle_subject
- statictext st_1
- singlelineedit sle_send_name
- statictext st_5