![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mailcfgdlgunit.dfm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3 / ctrl|
Return to mailcfgdlgunit.dfm CVS log | Up to [Synchronet] / sbbs / src / sbbs3 / ctrl |
1.1 root 1: object MailCfgDlg: TMailCfgDlg
2: Left = 501
3: Top = 339
4: BorderStyle = bsDialog
5: Caption = 'Mail Server Configuration'
6: ClientHeight = 303
7: ClientWidth = 352
8: Color = clBtnFace
9: ParentFont = True
10: OldCreateOrder = True
11: Position = poScreenCenter
12: OnShow = FormShow
13: DesignSize = (
14: 352
15: 303)
16: PixelsPerInch = 120
17: TextHeight = 16
18: object OKBtn: TButton
19: Left = 25
20: Top = 258
21: Width = 92
22: Height = 31
23: Anchors = [akLeft, akBottom]
24: Caption = 'OK'
25: Default = True
26: ModalResult = 1
27: TabOrder = 0
28: OnClick = OKBtnClick
29: end
30: object CancelBtn: TButton
31: Left = 128
32: Top = 258
33: Width = 94
34: Height = 31
35: Anchors = [akLeft, akBottom]
36: Cancel = True
37: Caption = 'Cancel'
38: ModalResult = 2
39: TabOrder = 1
40: end
41: object ApplyButton: TButton
42: Left = 233
43: Top = 258
44: Width = 92
45: Height = 31
46: Anchors = [akLeft, akBottom]
47: Caption = 'Apply'
48: TabOrder = 2
49: OnClick = OKBtnClick
50: end
51: object PageControl: TPageControl
52: Left = 4
53: Top = 4
54: Width = 342
55: Height = 245
56: ActivePage = SendMailTabSheet
57: TabIndex = 3
58: TabOrder = 3
59: object GeneralTabSheet: TTabSheet
60: Caption = 'General'
61: object InterfaceLabel: TLabel
62: Left = 9
63: Top = 44
64: Width = 104
65: Height = 24
66: AutoSize = False
67: Caption = 'Interface (IP)'
68: ParentShowHint = False
69: ShowHint = True
70: end
71: object MaxClientsLabel: TLabel
72: Left = 9
73: Top = 76
74: Width = 104
75: Height = 24
76: AutoSize = False
77: Caption = 'Max Clients'
78: end
79: object MaxInactivityLabel: TLabel
80: Left = 9
81: Top = 108
82: Width = 104
83: Height = 24
84: AutoSize = False
85: Caption = 'Max Inactivity'
86: end
87: object LinesPerYieldLabel: TLabel
88: Left = 9
89: Top = 140
90: Width = 104
91: Height = 24
92: AutoSize = False
93: Caption = 'Lines Per Yield'
94: end
95: object AutoStartCheckBox: TCheckBox
96: Left = 9
97: Top = 12
98: Width = 145
99: Height = 24
100: Hint = 'Automatically startup mail servers'
101: Caption = 'Auto Startup'
102: ParentShowHint = False
103: ShowHint = True
104: TabOrder = 0
105: end
106: object NetworkInterfaceEdit: TEdit
107: Left = 113
108: Top = 44
109: Width = 185
110: Height = 24
111: Hint =
112: 'Enter your Network adapter'#39's static IP address here or blank for' +
113: ' <ANY>'
114: ParentShowHint = False
115: ShowHint = True
116: TabOrder = 2
117: end
118: object MaxClientsEdit: TEdit
119: Left = 113
120: Top = 76
121: Width = 48
122: Height = 24
123: Hint = 'Maximum number of simultaneous clients (default=10)'
124: ParentShowHint = False
125: ShowHint = True
126: TabOrder = 3
127: end
128: object MaxInactivityEdit: TEdit
129: Left = 113
130: Top = 108
131: Width = 48
132: Height = 24
133: Hint =
134: 'Maximum number of seconds of inactivity before disconnect (defau' +
135: 'lt=120)'
136: ParentShowHint = False
137: ShowHint = True
138: TabOrder = 4
139: end
140: object HostnameCheckBox: TCheckBox
141: Left = 185
142: Top = 12
143: Width = 146
144: Height = 24
145: Hint = 'Automatically lookup client'#39's hostnames via DNS'
146: Caption = 'Hostname Lookup'
147: ParentShowHint = False
148: ShowHint = True
149: TabOrder = 1
150: end
151: object DebugTXCheckBox: TCheckBox
152: Left = 185
153: Top = 76
154: Width = 146
155: Height = 24
156: Hint = 'Log all transmitted mail commands and responses (for debugging)'
157: Caption = 'Log Transmissions'
158: ParentShowHint = False
159: ShowHint = True
160: TabOrder = 6
161: end
162: object LogFileCheckBox: TCheckBox
163: Left = 185
164: Top = 140
165: Width = 146
166: Height = 24
167: Hint = 'Save log entries to a file (in your DATA directory)'
168: Caption = 'Log to Disk'
169: ParentShowHint = False
170: ShowHint = True
171: TabOrder = 7
172: end
173: object LinesPerYieldEdit: TEdit
174: Left = 113
175: Top = 140
176: Width = 48
177: Height = 24
178: Hint =
179: 'Number of lines of message text sent/received between time-slice' +
180: ' yields'
181: ParentShowHint = False
182: ShowHint = True
183: TabOrder = 5
184: end
185: object DebugRXCheckBox: TCheckBox
186: Left = 185
187: Top = 108
188: Width = 146
189: Height = 24
190: Hint = 'Log all transmitted mail commands and responses (for debugging)'
191: Caption = 'Log Responses'
192: ParentShowHint = False
193: ShowHint = True
194: TabOrder = 8
195: end
196: end
197: object SMTPTabSheet: TTabSheet
198: Caption = 'SMTP'
199: ImageIndex = 1
200: object TelnetPortLabel: TLabel
201: Left = 9
202: Top = 12
203: Width = 104
204: Height = 24
205: AutoSize = False
206: Caption = 'Listening Port'
207: end
208: object DefaultUserLabel: TLabel
209: Left = 9
210: Top = 108
211: Width = 104
212: Height = 24
213: AutoSize = False
214: Caption = 'Default User'
215: end
216: object MaxRecipientsLabel: TLabel
217: Left = 9
218: Top = 44
219: Width = 104
220: Height = 24
221: AutoSize = False
222: Caption = 'Max Recipients'
223: end
224: object MaxMsgSizeLabel: TLabel
225: Left = 9
226: Top = 76
227: Width = 104
228: Height = 24
229: AutoSize = False
230: Caption = 'Max Msg Size'
231: end
232: object SMTPPortEdit: TEdit
233: Left = 113
234: Top = 12
235: Width = 48
236: Height = 24
237: Hint = 'TCP port number for incoming SMTP connections (default=25)'
238: ParentShowHint = False
239: ShowHint = True
240: TabOrder = 0
241: end
242: object DebugHeadersCheckBox: TCheckBox
243: Left = 185
244: Top = 12
245: Width = 146
246: Height = 24
247: Hint = 'Log all received mail headers (for debugging)'
248: Caption = 'Log Headers'
249: ParentShowHint = False
250: ShowHint = True
251: TabOrder = 1
252: end
253: object DefaultUserEdit: TEdit
254: Left = 113
255: Top = 108
256: Width = 185
257: Height = 24
258: Hint =
259: 'Mail for unknown users will go into this user'#39's mailbox (e.g. "s' +
260: 'ysop")'
261: ParentShowHint = False
262: ShowHint = True
263: TabOrder = 3
264: end
265: object AllowRelayCheckBox: TCheckBox
266: Left = 9
267: Top = 143
268: Width = 288
269: Height = 23
270: Hint = 'Allow authenticated users to relay mail through this server'
271: Caption = 'Allow Authenticated Users to Relay Mail'
272: ParentShowHint = False
273: ShowHint = True
274: TabOrder = 4
275: OnClick = AllowRelayCheckBoxClick
276: end
277: object MaxRecipientsEdit: TEdit
278: Left = 113
279: Top = 44
280: Width = 48
281: Height = 24
282: Hint = 'Maximum number of recipients for a single message'
283: ParentShowHint = False
284: ShowHint = True
285: TabOrder = 2
286: end
287: object MaxMsgSizeEdit: TEdit
288: Left = 113
289: Top = 76
290: Width = 80
291: Height = 24
292: Hint = 'Maximum received message size (in bytes)'
293: ParentShowHint = False
294: ShowHint = True
295: TabOrder = 5
296: end
297: object AuthViaIpCheckBox: TCheckBox
298: Left = 9
299: Top = 175
300: Width = 288
301: Height = 23
302: Hint =
303: 'Allow SMTP authentication via other protocols (e.g. POP3, Telnet' +
304: ', etc) for relay'
305: Caption = 'Allow Authentication via POP3, Telnet, etc.'
306: ParentShowHint = False
307: ShowHint = True
308: TabOrder = 6
309: end
310: object NotifyCheckBox: TCheckBox
311: Left = 185
312: Top = 44
313: Width = 146
314: Height = 24
315: Hint = 'Notify local mail recipients of received e-mails'
316: Caption = 'Notify Recipients'
317: ParentShowHint = False
318: ShowHint = True
319: TabOrder = 7
320: end
321: end
322: object POP3TabSheet: TTabSheet
323: Caption = 'POP3'
324: ImageIndex = 2
325: object POP3PortLabel: TLabel
326: Left = 9
327: Top = 12
328: Width = 102
329: Height = 24
330: AutoSize = False
331: Caption = 'Listening Port'
332: end
333: object POP3PortEdit: TEdit
334: Left = 113
335: Top = 12
336: Width = 48
337: Height = 24
338: Hint = 'TCP port number for incoming POP3 connections (default=110)'
339: ParentShowHint = False
340: ShowHint = True
341: TabOrder = 0
342: end
343: object POP3LogCheckBox: TCheckBox
344: Left = 185
345: Top = 12
346: Width = 70
347: Height = 24
348: Hint = 'Log all POP3 user activity'
349: Caption = 'Log'
350: ParentShowHint = False
351: ShowHint = True
352: TabOrder = 1
353: end
354: object POP3EnabledCheckBox: TCheckBox
355: Left = 256
356: Top = 12
357: Width = 81
358: Height = 24
359: Hint = 'Enable the POP3 server (requires restart of mail server)'
360: Caption = 'Enabled'
361: ParentShowHint = False
362: ShowHint = True
363: TabOrder = 2
364: OnClick = POP3EnabledCheckBoxClick
365: end
366: end
367: object SendMailTabSheet: TTabSheet
368: Caption = 'SendMail'
369: ImageIndex = 3
370: object DeliveryAttemptsLabel: TLabel
371: Left = 9
372: Top = 44
373: Width = 104
374: Height = 24
375: AutoSize = False
376: Caption = 'Max Attempts'
377: end
378: object RescanFreqLabel: TLabel
379: Left = 167
380: Top = 44
381: Width = 71
382: Height = 24
383: Hint = 'Frequency (in seconds) of delivery attempts'
384: Alignment = taRightJustify
385: AutoSize = False
386: Caption = 'Frequency'
387: end
388: object DNSServerLabel: TLabel
389: Left = 9
390: Top = 152
391: Width = 72
392: Height = 16
393: Caption = 'DNS Server'
394: end
395: object DefCharsetLabel: TLabel
396: Left = 9
397: Top = 76
398: Width = 104
399: Height = 24
400: AutoSize = False
401: Caption = 'Default Charset'
402: end
403: object DNSRadioButton: TRadioButton
404: Left = 9
405: Top = 116
406: Width = 184
407: Height = 26
408: Hint =
409: 'Send mail directly to addressed mail server (requires DNS server' +
410: ' access)'
411: Caption = 'Direct Mail Delivery'
412: Checked = True
413: ParentShowHint = False
414: ShowHint = True
415: TabOrder = 3
416: TabStop = True
417: OnClick = DNSRadioButtonClick
418: end
419: object DNSServerEdit: TEdit
420: Left = 113
421: Top = 148
422: Width = 185
423: Height = 24
424: Hint = 'Host name or IP address of your ISP'#39's DNS server'
425: ParentShowHint = False
426: ShowHint = True
427: TabOrder = 4
428: end
429: object TcpDnsCheckBox: TCheckBox
430: Left = 250
431: Top = 180
432: Width = 65
433: Height = 24
434: Hint = 'Use TCP packets (instead of UDP) for DNS queries'
435: Caption = 'TCP'
436: ParentShowHint = False
437: ShowHint = True
438: TabOrder = 5
439: end
440: object RelayRadioButton: TRadioButton
441: Left = 169
442: Top = 116
443: Width = 192
444: Height = 26
445: Hint = 'Route all mail through an SMTP relay server'
446: Caption = 'Use Relay Server'
447: ParentShowHint = False
448: ShowHint = True
449: TabOrder = 6
450: OnClick = DNSRadioButtonClick
451: end
452: object DeliveryAttemptsEdit: TEdit
453: Left = 113
454: Top = 44
455: Width = 48
456: Height = 24
457: Hint = 'Maximum number of delivery attempts'
458: ParentShowHint = False
459: ShowHint = True
460: TabOrder = 1
461: end
462: object RescanFreqEdit: TEdit
463: Left = 250
464: Top = 44
465: Width = 48
466: Height = 24
467: Hint = 'Seconds between message base rescans'
468: ParentShowHint = False
469: ShowHint = True
470: TabOrder = 2
471: end
472: object SendMailCheckBox: TCheckBox
473: Left = 9
474: Top = 12
475: Width = 81
476: Height = 24
477: Hint = 'Enable the SendMail thread (requires restart of mail server)'
478: Caption = 'Enabled'
479: ParentShowHint = False
480: ShowHint = True
481: TabOrder = 0
482: OnClick = SendMailCheckBoxClick
483: end
484: object DefCharsetEdit: TEdit
485: Left = 113
486: Top = 76
487: Width = 80
488: Height = 24
489: Hint = 'Character set specified for locally generated e-mail messages'
490: ParentShowHint = False
491: ShowHint = True
492: TabOrder = 7
493: end
494: end
495: object RelayTabSheet: TTabSheet
496: Caption = 'Relay'
497: ImageIndex = 6
498: object RelayPortLabel: TLabel
499: Left = 240
500: Top = 12
501: Width = 33
502: Height = 26
503: Alignment = taRightJustify
504: AutoSize = False
505: Caption = 'Port'
506: end
507: object RelayServerLabel: TLabel
508: Left = 9
509: Top = 12
510: Width = 40
511: Height = 16
512: Caption = 'Server'
513: end
514: object RelayServerEdit: TEdit
515: Left = 65
516: Top = 12
517: Width = 168
518: Height = 24
519: Hint =
520: 'Host name or IP address of external SMTP server (for relaying ma' +
521: 'il)'
522: ParentShowHint = False
523: ShowHint = True
524: TabOrder = 0
525: end
526: object RelayPortEdit: TEdit
527: Left = 282
528: Top = 12
529: Width = 39
530: Height = 24
531: Hint = 'TCP port number for the SMTP relay server (default=25)'
532: ParentShowHint = False
533: ShowHint = True
534: TabOrder = 1
535: end
536: object RelayAuthGroupBox: TGroupBox
537: Left = 9
538: Top = 41
539: Width = 320
540: Height = 160
541: Caption = 'Authentication:'
542: TabOrder = 2
543: object RelayAuthNameLabel: TLabel
544: Left = 16
545: Top = 92
546: Width = 80
547: Height = 26
548: AutoSize = False
549: Caption = 'Name'
550: end
551: object RelayAuthPassLabel: TLabel
552: Left = 16
553: Top = 121
554: Width = 80
555: Height = 25
556: AutoSize = False
557: Caption = 'Password'
558: end
559: object RelayAuthNoneRadioButton: TRadioButton
560: Left = 16
561: Top = 28
562: Width = 113
563: Height = 24
564: Caption = 'None'
565: Checked = True
566: TabOrder = 0
567: TabStop = True
568: OnClick = RelayAuthRadioButtonClick
569: end
570: object RelayAuthPlainRadioButton: TRadioButton
571: Left = 169
572: Top = 28
573: Width = 113
574: Height = 24
575: Caption = 'Plain'
576: TabOrder = 1
577: OnClick = RelayAuthRadioButtonClick
578: end
579: object RelayAuthLoginRadioButton: TRadioButton
580: Left = 169
581: Top = 57
582: Width = 113
583: Height = 24
584: Caption = 'Login'
585: TabOrder = 2
586: OnClick = RelayAuthRadioButtonClick
587: end
588: object RelayAuthCramMD5RadioButton: TRadioButton
589: Left = 16
590: Top = 57
591: Width = 113
592: Height = 24
593: Caption = 'CRAM-MD5'
594: TabOrder = 3
595: OnClick = RelayAuthRadioButtonClick
596: end
597: object RelayAuthNameEdit: TEdit
598: Left = 105
599: Top = 92
600: Width = 185
601: Height = 24
602: Hint = 'User name to authenticate as'
603: ParentShowHint = False
604: ShowHint = True
605: TabOrder = 4
606: end
607: object RelayAuthPassEdit: TEdit
608: Left = 105
609: Top = 121
610: Width = 185
611: Height = 24
612: Hint = 'Password for authentication'
613: ParentShowHint = False
614: PasswordChar = '*'
615: ShowHint = True
616: TabOrder = 5
617: end
618: end
619: end
620: object SoundTabSheet: TTabSheet
621: Caption = 'Sound'
622: ImageIndex = 4
623: object SMTPSoundLabel: TLabel
624: Left = 9
625: Top = 12
626: Width = 101
627: Height = 24
628: AutoSize = False
629: Caption = 'Receive Mail'
630: end
631: object POP3SoundLabel: TLabel
632: Left = 9
633: Top = 76
634: Width = 101
635: Height = 26
636: AutoSize = False
637: Caption = 'POP3 Login'
638: end
639: object OutboundSoundLabel: TLabel
640: Left = 9
641: Top = 44
642: Width = 101
643: Height = 24
644: AutoSize = False
645: Caption = 'Sending Mail'
646: end
647: object InboundSoundEdit: TEdit
648: Left = 113
649: Top = 12
650: Width = 185
651: Height = 24
652: Hint = 'Sound file to play when inbound SMTP connections are accepted'
653: ParentShowHint = False
654: ShowHint = True
655: TabOrder = 0
656: end
657: object InboundSoundButton: TButton
658: Left = 304
659: Top = 12
660: Width = 25
661: Height = 26
662: Caption = '...'
663: TabOrder = 1
664: OnClick = InboundSoundButtonClick
665: end
666: object POP3SoundEdit: TEdit
667: Left = 113
668: Top = 76
669: Width = 185
670: Height = 24
671: Hint = 'Sound file to play when accepting POP3 connections'
672: ParentShowHint = False
673: ShowHint = True
674: TabOrder = 4
675: end
676: object POP3SoundButton: TButton
677: Left = 304
678: Top = 76
679: Width = 25
680: Height = 26
681: Caption = '...'
682: TabOrder = 5
683: OnClick = POP3SoundButtonClick
684: end
685: object OutboundSoundEdit: TEdit
686: Left = 113
687: Top = 44
688: Width = 185
689: Height = 24
690: Hint = 'Sound file to play when sending mail'
691: ParentShowHint = False
692: ShowHint = True
693: TabOrder = 2
694: end
695: object OutboundSoundButton: TButton
696: Left = 304
697: Top = 44
698: Width = 25
699: Height = 26
700: Caption = '...'
701: TabOrder = 3
702: OnClick = OutboundSoundButtonClick
703: end
704: end
705: object DNSBLTabSheet: TTabSheet
706: Caption = 'DNSBL'
707: ImageIndex = 5
708: ParentShowHint = False
709: ShowHint = True
710: object Label1: TLabel
711: Left = 128
712: Top = 105
713: Width = 41
714: Height = 16
715: Caption = 'Label1'
716: end
717: object DNSBLServersButton: TButton
718: Left = 9
719: Top = 9
720: Width = 112
721: Height = 25
722: Hint = 'DNS-based Blacklists'
723: Caption = 'Blacklists'
724: TabOrder = 0
725: OnClick = DNSBLServersButtonClick
726: end
727: object DNSBLGroupBox: TGroupBox
728: Left = 9
729: Top = 41
730: Width = 320
731: Height = 160
732: Caption = 'Mail from Blacklisted Servers:'
733: ParentShowHint = False
734: ShowHint = True
735: TabOrder = 1
736: object BLSubjectLabel: TLabel
737: Left = 16
738: Top = 92
739: Width = 80
740: Height = 26
741: AutoSize = False
742: Caption = 'Subject'
743: end
744: object BLHeaderLabel: TLabel
745: Left = 16
746: Top = 121
747: Width = 80
748: Height = 25
749: AutoSize = False
750: Caption = 'Header'
751: end
752: object BLRefuseRadioButton: TRadioButton
753: Left = 16
754: Top = 28
755: Width = 153
756: Height = 24
757: Hint = 'Refuse mail session with blacklisted servers'
758: Caption = 'Refuse Session'
759: ParentShowHint = False
760: ShowHint = True
761: TabOrder = 0
762: OnClick = DNSBLRadioButtonClick
763: end
764: object BLIgnoreRadioButton: TRadioButton
765: Left = 16
766: Top = 57
767: Width = 161
768: Height = 24
769: Hint = 'Pretend to receive blacklisted mail'
770: Caption = 'Silently Ignore'
771: ParentShowHint = False
772: ShowHint = True
773: TabOrder = 2
774: OnClick = DNSBLRadioButtonClick
775: end
776: object BLBadUserRadioButton: TRadioButton
777: Left = 169
778: Top = 28
779: Width = 128
780: Height = 24
781: Hint = 'Refuse mail address from blacklisted servers'
782: Caption = 'Refuse Mail'
783: TabOrder = 1
784: OnClick = DNSBLRadioButtonClick
785: end
786: object BLTagRadioButton: TRadioButton
787: Left = 169
788: Top = 57
789: Width = 96
790: Height = 24
791: Hint = 'Tag blacklisted mail with header and/or subject'
792: Caption = 'Tag with:'
793: ParentShowHint = False
794: ShowHint = True
795: TabOrder = 3
796: OnClick = DNSBLRadioButtonClick
797: end
798: object BLSubjectEdit: TEdit
799: Left = 105
800: Top = 92
801: Width = 185
802: Height = 24
803: Hint = 'Flag to add to subject of DNS-blacklisted mail'
804: ParentShowHint = False
805: ShowHint = True
806: TabOrder = 4
807: end
808: object BLHeaderEdit: TEdit
809: Left = 105
810: Top = 121
811: Width = 185
812: Height = 24
813: Hint = 'Flag to add to subject of DNS-blacklisted mail'
814: ParentShowHint = False
815: ShowHint = True
816: TabOrder = 5
817: end
818: end
819: object DNSBLExemptionsButton: TButton
820: Left = 128
821: Top = 9
822: Width = 113
823: Height = 25
824: Hint = 'Blacklist Exempted IP addresses'
825: Caption = 'Exempt IPs'
826: TabOrder = 2
827: OnClick = DNSBLExemptionsButtonClick
828: end
829: object BLDebugCheckBox: TCheckBox
830: Left = 256
831: Top = 9
832: Width = 73
833: Height = 25
834: Hint = 'Enable debug logging of DNSBL lookups'
835: Caption = 'Debug'
836: TabOrder = 3
837: end
838: end
839: object AdvancedTabSheet: TTabSheet
840: Caption = 'Advanced'
841: ImageIndex = 7
842: object AdvancedCheckListBox: TCheckListBox
843: Left = 16
844: Top = 16
845: Width = 305
846: Height = 185
847: ItemHeight = 16
848: Items.Strings = (
849: 'SendMail: Ignore '#39'in transit'#39' attribute'
850: 'Retain received mail files (in temp directory)'
851: 'Allow receipt of mail by user number'
852: 'Check '#39'Received'#39' header fields against DNSBL'
853: 'Throttle DNS blacklisted server sessions')
854: TabOrder = 0
855: end
856: end
857: end
858: object OpenDialog: TOpenDialog
859: Filter = 'Wave Files|*.wav'
860: Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
861: Left = 8
862: Top = 480
863: end
864: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.