home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / email.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-15  |  4.5 KB  |  150 lines
  1. VERSION 2.00
  2. Begin Form EMAIL 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Email"
  5.    ClientHeight    =   5205
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   5865
  9.    Height          =   5610
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5205
  15.    ScaleWidth      =   5865
  16.    Top             =   1140
  17.    Width           =   5985
  18.    Begin SSFrame Frame3D1 
  19.       Font3D          =   0  'None
  20.       Height          =   4830
  21.       Left            =   120
  22.       TabIndex        =   7
  23.       Top             =   180
  24.       Width           =   5535
  25.       Begin TextBox addtext 
  26.          Height          =   300
  27.          Left            =   1290
  28.          TabIndex        =   0
  29.          Top             =   945
  30.          Width           =   4005
  31.       End
  32.       Begin TextBox MessageText 
  33.          Height          =   1635
  34.          Left            =   180
  35.          MultiLine       =   -1  'True
  36.          ScrollBars      =   2  'Vertical
  37.          TabIndex        =   3
  38.          Top             =   2565
  39.          Width           =   5145
  40.       End
  41.       Begin TextBox SubjectText 
  42.          Height          =   285
  43.          Left            =   1290
  44.          TabIndex        =   2
  45.          Top             =   1845
  46.          Width           =   4005
  47.       End
  48.       Begin TextBox CCText 
  49.          Height          =   285
  50.          Left            =   1290
  51.          TabIndex        =   1
  52.          Top             =   1395
  53.          Width           =   4005
  54.       End
  55.       Begin CommandButton EmailHelp 
  56.          Caption         =   "Help"
  57.          Height          =   375
  58.          Left            =   4050
  59.          TabIndex        =   6
  60.          Top             =   315
  61.          Width           =   1185
  62.       End
  63.       Begin CommandButton EmailCancel 
  64.          Caption         =   "Cancel"
  65.          Height          =   375
  66.          Left            =   2700
  67.          TabIndex        =   5
  68.          Top             =   315
  69.          Width           =   1215
  70.       End
  71.       Begin CommandButton EmailSend 
  72.          Caption         =   "Send"
  73.          Height          =   375
  74.          Left            =   1350
  75.          TabIndex        =   4
  76.          Top             =   315
  77.          Width           =   1215
  78.       End
  79.       Begin Label Label5 
  80.          BackColor       =   &H00C0C0C0&
  81.          Caption         =   "Note: You can add multiple entries to the email list by seperating the names by a semicolon."
  82.          Height          =   420
  83.          Left            =   180
  84.          TabIndex        =   12
  85.          Top             =   4275
  86.          Width           =   5145
  87.       End
  88.       Begin Label Label4 
  89.          BackColor       =   &H00C0C0C0&
  90.          Caption         =   "Message:"
  91.          Height          =   240
  92.          Left            =   210
  93.          TabIndex        =   11
  94.          Top             =   2295
  95.          Width           =   945
  96.       End
  97.       Begin Label Label3 
  98.          BackColor       =   &H00C0C0C0&
  99.          Caption         =   "Subject:"
  100.          Height          =   240
  101.          Left            =   180
  102.          TabIndex        =   10
  103.          Top             =   1890
  104.          Width           =   765
  105.       End
  106.       Begin Label Label2 
  107.          BackColor       =   &H00C0C0C0&
  108.          Caption         =   "CC:"
  109.          Height          =   285
  110.          Left            =   210
  111.          TabIndex        =   9
  112.          Top             =   1440
  113.          Width           =   975
  114.       End
  115.       Begin Label Label1 
  116.          BackColor       =   &H00C0C0C0&
  117.          Caption         =   "To:"
  118.          Height          =   285
  119.          Left            =   210
  120.          TabIndex        =   8
  121.          Top             =   990
  122.          Width           =   825
  123.       End
  124.    End
  125. Dim EmailTo As String
  126. Dim ListCounter As Integer
  127. Sub EmailAdd_Click ()
  128. End Sub
  129. Sub EmailCancel_Click ()
  130.  Unload Me
  131.  CancelCheck = 1
  132. End Sub
  133. Sub EmailListcombo_Click ()
  134. End Sub
  135. Sub EmailSend_Click ()
  136. 'Dim I As Integer
  137.                                  
  138. 'MsgBox Str(ListCounter)
  139. 'For I = 1 To ListCounter
  140. 'MsgBox ToList(I)
  141.  'Temp$ = ToList(I)
  142.  'Main.Report1.EMailToList(I - 1) = Temp$
  143. 'Next I
  144.   Main.Report1.EMailToList = AddText.Text
  145.   Main.Report1.EMailSubject = SubjectText.Text
  146.   Main.Report1.EMailCCList = CCText.Text
  147.   Main.Report1.EMailMessage = MessageText.Text
  148.  Unload Me
  149. End Sub
  150.