Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/vbccmail/ccmail.frm

Visual Basic Form | 1998-02-18 | 9.9 KB | 299 lines

VERSION 5.00
Object = "{067CC705-D99C-11CF-AF7D-0020AFC0FB3A}#1.0#0"; "IPocx.ocx"
Object = "{BF53F9E0-DCA5-11CF-AF7E-0020AFC0FB3A}#1.0#0"; "IPocxD.ocx"
Begin VB.Form Form1
   BorderStyle     =   0  'None
   Caption         =   "ccmail import/export"
   ClientHeight    =   5460
   ClientLeft      =   8865
   ClientTop       =   2145
   ClientWidth     =   5325
   Icon            =   "CCMAIL.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5460
   ScaleWidth      =   5325
   ShowInTaskbar   =   0   'False
   Begin IPOCXDLib.IPocxD tcpd
      Left            =   2520
      Top             =   60
      _Version        =   65536
      _ExtentX        =   2037
      _ExtentY        =   820
      _StockProps     =   0
      LocalAddr       =   "192.168.0.1"
      LocalPort       =   25
   End
   Begin VB.ListBox List2
      Height          =   2595
      Left            =   0
      TabIndex        =   4
      Top             =   2700
      Width           =   5295
   End
   Begin IPOCXLib.IPocx tcps
      Left            =   4710
      Top             =   -120
      _Version        =   65536
      _ExtentX        =   820
      _ExtentY        =   1085
      _StockProps     =   0
      HostAddr        =   ""
      HostPort        =   0
      LocalAddr       =   ""
      LocalPort       =   0
   End
   Begin VB.CheckBox Spooler
      Caption         =   "Timer Off"
      Height          =   255
      Left            =   150
      TabIndex        =   1
      Top             =   30
      Width           =   1095
   End
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   4230
      Top             =   -30
   End
   Begin VB.ListBox List1
      Height          =   2400
      Left            =   0
      TabIndex        =   0
      Top             =   270
      Width           =   5295
   End
   Begin VB.Label txCountdown
      Height          =   255
      Left            =   3240
      TabIndex        =   3
      Top             =   0
      Width           =   1095
   End
   Begin VB.Label Label1
      Caption         =   "Next Check in"
      Height          =   255
      Left            =   2040
      TabIndex        =   2
      Top             =   0
      Width           =   1215
   End
   Begin VB.Menu filemenu
      Caption         =   "File"
      Begin VB.Menu mnGMTOFFSET
         Caption         =   "GMT offset"
      End
      Begin VB.Menu mnLOCALPO
         Caption         =   "Local Post Office"
      End
      Begin VB.Menu mnGatewayPo
         Caption         =   "Gateway Post Office"
      End
      Begin VB.Menu mnccmailPassword
         Caption         =   "cc:Mail Password"
      End
      Begin VB.Menu mnblank
         Caption         =   "--"
      End
      Begin VB.Menu mnsmtpUUCPfolder
         Caption         =   "AK's mail UUCP import folder"
      End
      Begin VB.Menu mnccmailexportprogfldr
         Caption         =   "cc:Mail EXPORT program Folder"
      End
      Begin VB.Menu mnCCMAILPODIR
         Caption         =   "cc:Mail Post Office Folder"
      End
      Begin VB.Menu mnccmailfolders
         Caption         =   "ccmail Main folder"
      End
      Begin VB.Menu mnCCmailspoolfolder
         Caption         =   "SMTP->cc:Mail Export Folder"
      End
      Begin VB.Menu mninetdomainname
         Caption         =   "Internet domain Name"
      End
      Begin VB.Menu mnInternetDefaultname
         Caption         =   "Internet Default User Name"
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
#Const fullrun = True
Dim ImACTIVE As Boolean
Dim countdown As Long
Dim justaccepted As Boolean
Dim incombuffer As String
'GPL (C) Alan Knowles 1998
Private Sub Form_Load()
countdown = 3
 CCmail_to_smtp.GMToffset = "+0800"
 CCmail_to_smtp.LocalPO = "YOURCCMAILPOSTOFFICE"
CCmail_to_smtp.GatewayPO = "YOURCCMAILINTERNETPOSTOFFICENAME"
CCmail_to_smtp.CCMAILpassword = "YOURMASTERCCMAILPOSTOFFICE"
CCmail_to_smtp.CCMAILpodir = "m:\ccdata" ' must be in Dos 8.3 format
CCmail_to_smtp.CCMAILEXPORTprognFOLDER = "\\env_server\sys\ccmail\ccmail\" 'must be in \\networkname... style
CCmail_to_smtp.CCMAILEXPORTFOLDER = "c:\cctemp\" ' mus be in dos 8.3 format!
CCmail_to_smtp.CCMAILWORKINGFOLDER = CCmail_to_smtp.CCMAILEXPORTFOLDER & "working\"
CCmail_to_smtp.CCERRORDIR = CCmail_to_smtp.CCMAILEXPORTFOLDER & "errors\"
CCmail_to_smtp.CCMAILTEMPFILE = CCmail_to_smtp.CCMAILEXPORTFOLDER & "00000000.00"
CCmail_to_smtp.inetDOMAIN = "your.registered.domain.name"
CCmail_to_smtp.DEFAULTfromUSER = "postmaster"
CCmail_to_smtp.DEFAULTfromADDRESS = CCmail_to_smtp.DEFAULTfromUSER & "@" & CCmail_to_smtp.inetDOMAIN
  Spooler.value = 0
  Timer1.Enabled = False
  ImACTIVE = False
  tcpd.Listen
   justaccepted = False
End Sub
'Private Sub Form_Resize()
  'If Form1.Width - 150 < 50 Then
  '  List1.Width = 50
 ' Else
'    List1.Width = Form1.Width - 150
  'End If
 ' If Form1.Height - 950 < 50 Then
'    List1.Height = 50'
'  Else'
    'List1.Height = Form1.Height - 950
'  End If
'End Sub
Private Sub mnccmailexportprogfldr_Click()
Dim newvalue As String
   newvalue = InputBox("cc:Mail Export Program Folder", "Config", CCmail_to_smtp.CCMAILEXPORTprognFOLDER)
   If Not newvalue = "" Then
     CCmail_to_smtp.CCMAILEXPORTprognFOLDER = newvalue
  End If
End Sub
Private Sub mnccmailfolders_Click()
Dim newvalue As String
   newvalue = InputBox("cc:Mail Export Folder", "Config", CCmail_to_smtp.CCMAILEXPORTFOLDER)
   If Not newvalue = "" Then
     CCmail_to_smtp.CCMAILEXPORTFOLDER = newvalue
     CCmail_to_smtp.CCMAILWORKINGFOLDER = CCmail_to_smtp.CCMAILEXPORTFOLDER & "working\"
     CCmail_to_smtp.CCERRORDIR = CCmail_to_smtp.CCMAILEXPORTFOLDER & "errors\"
     CCmail_to_smtp.CCMAILTEMPFILE = CCmail_to_smtp.CCMAILEXPORTFOLDER & "00000000.000"
End If
End Sub
Private Sub mnccmailPassword_Click()
Dim newvalue As String
   newvalue = InputBox("cc:Mail Gateway Password", "Config", CCmail_to_smtp.CCMAILpassword)
   If Not newvalue = "" Then
     CCmail_to_smtp.CCMAILpassword = newvalue
    End If
End Sub
Private Sub mnCCMAILPODIR_Click()
Dim newvalue As String
   newvalue = InputBox("cc:Mail Post Office Folder", "Config", CCmail_to_smtp.CCMAILpodir)
      If Not newvalue = "" Then
     CCmail_to_smtp.CCMAILpodir = newvalue
End If
End Sub
Private Sub mnCCmailspoolfolder_Click()
Dim newvalue As String
   newvalue = InputBox("SMTP - > ccmail Spool folder", "Config", CCmail_to_smtp.CCMAILSPOOLFOLDER)
     If Not newvalue = "" Then
  CCmail_to_smtp.CCMAILSPOOLFOLDER = newvalue
End If
End Sub
Private Sub mnGatewayPo_Click()
Dim newvalue As String
   newvalue = InputBox("cc:Mail Gateway Post Office Name", "Config", CCmail_to_smtp.GatewayPO)
      If Not newvalue = "" Then
     CCmail_to_smtp.GatewayPO = newvalue
End If
End Sub
Private Sub mnGMTOFFSET_Click()
Dim newvalue As String
   newvalue = InputBox("GMT offset value", "GMToffset", CCmail_to_smtp.GMToffset)
      If Not newvalue = "" Then
   CCmail_to_smtp.GMToffset = newvalue
End If
End Sub
Private Sub mninetdomainname_Click()
Dim newvalue As String
   newvalue = InputBox("Internet Domain Name", "Internet Domain", CCmail_to_smtp.inetDOMAIN)
      If Not newvalue = "" Then
  CCmail_to_smtp.inetDOMAIN = newvalue
End If
End Sub
Private Sub mnInternetDefaultname_Click()
Dim newvalue As String
   newvalue = InputBox("Address which error messages will be sent from", "Default User", CCmail_to_smtp.DEFAULTfromUSER)
      If Not newvalue = "" Then
  CCmail_to_smtp.DEFAULTfromUSER = newvalue
  CCmail_to_smtp.DEFAULTfromADDRESS = CCmail_to_smtp.DEFAULTfromUSER & "@" & CCmail_to_smtp.inetDOMAIN
End If
End Sub
Private Sub mnLOCALPO_Click()
Dim newvalue As String
   newvalue = InputBox("cc:Mail Post Office Name", "Config", CCmail_to_smtp.LocalPO)
      If Not newvalue = "" Then
     CCmail_to_smtp.LocalPO = newvalue
End If
End Sub
Private Sub mnsmtpUUCPfolder_Click()
Dim newvalue As String
newvalue = InputBox("UUCP import folder for POP server", "Config", CCmail_to_smtp.UUCPdir)
If Not newvalue = "" Then
  CCmail_to_smtp.UUCPdir = newvalue
End If
End Sub
Private Sub Spooler_Click()
  If Spooler.value = 1 Then
    Spooler.Caption = "Timer ON"
    Timer1.Enabled = True
  Else
      Spooler.Caption = "Timer OFF"
    Timer1.Enabled = False
  End If
End Sub
Private Sub tcpd_ConnRequest()
incombuffer = ""
   smtpin.InitInboundConnection tcpd.Accept
End Sub
Private Sub tcpd_DataReceived(ByVal Connid As Integer, ByVal data As String, ByVal l As Long)
 Dim outdata As String
  incombuffer = incombuffer & Left(data, l)
  Do While InStr(incombuffer, vbCrLf) > 0
    outdata = Left(incombuffer, InStr(incombuffer, vbCrLf))
    'debug.print outdata
      outdata = Left(outdata, Len(outdata))
    If Asc(Right(outdata, 1)) < 32 Then
      outdata = Left(outdata, Len(outdata) - 1)
    End If
    incombuffer = Mid(incombuffer, InStr(incombuffer, vbCrLf) + 2)
    'debug.print incombuffer
    smtpin.InboundRemoteCmd outdata, Connid
  Loop
'   End If
End Sub
Private Sub tcps_DataReceived(ByVal data As String, ByVal l As Long)
  smtpsend.SMTP_incoming Left(data, l)
End Sub
Private Sub tcps_Disconnected()
'debug.print "disconnected"
End Sub
Private Sub Timer1_Timer()
  countdown = countdown - 1
  If Not ImACTIVE And countdown < 1 Then
    ImACTIVE = True
    ccMail_Gateway_Main
    ImACTIVE = False
    countdown = 300
  Else
    txCountdown.Caption = countdown & " seconds"
  End If
  If List1.ListCount > 50 Then
    List1.RemoveItem List1.ListCount - 1
  End If
   If List2.ListCount > 50 Then
    List2.RemoveItem List2.ListCount - 1
  End If
End Sub