home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap25 / vbu2504.frm < prev    next >
Text File  |  1995-09-13  |  5KB  |  192 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   " "
  4.    ClientHeight    =   3285
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1500
  7.    ClientWidth     =   5520
  8.    Height          =   3690
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3285
  12.    ScaleWidth      =   5520
  13.    Top             =   1155
  14.    Width           =   5640
  15.    Begin VB.TextBox Text2 
  16.       Height          =   2115
  17.       Left            =   1440
  18.       MultiLine       =   -1  'True
  19.       ScrollBars      =   2  'Vertical
  20.       TabIndex        =   6
  21.       Text            =   "vbu2504.frx":0000
  22.       Top             =   540
  23.       Width           =   3915
  24.    End
  25.    Begin VB.TextBox Text1 
  26.       Height          =   300
  27.       Left            =   1440
  28.       TabIndex        =   3
  29.       Text            =   "Text1"
  30.       Top             =   120
  31.       Width           =   3915
  32.    End
  33.    Begin VB.CommandButton Command1 
  34.       Caption         =   "E&xit"
  35.       Height          =   300
  36.       Index           =   2
  37.       Left            =   4200
  38.       TabIndex        =   2
  39.       Top             =   2820
  40.       Width           =   1200
  41.    End
  42.    Begin VB.CommandButton Command1 
  43.       Caption         =   "&Cancel"
  44.       Height          =   300
  45.       Index           =   1
  46.       Left            =   2820
  47.       TabIndex        =   1
  48.       Top             =   2820
  49.       Width           =   1200
  50.    End
  51.    Begin VB.CommandButton Command1 
  52.       Caption         =   "&Send"
  53.       Height          =   300
  54.       Index           =   0
  55.       Left            =   1440
  56.       TabIndex        =   0
  57.       Top             =   2820
  58.       Width           =   1200
  59.    End
  60.    Begin MSMAPI.MAPIMessages MAPIMessages1 
  61.       Left            =   240
  62.       Top             =   1800
  63.       _Version        =   65536
  64.       _ExtentX        =   741
  65.       _ExtentY        =   741
  66.       _StockProps     =   0
  67.    End
  68.    Begin MSMAPI.MAPISession MAPISession1 
  69.       Left            =   240
  70.       Top             =   1140
  71.       _Version        =   65536
  72.       _ExtentX        =   741
  73.       _ExtentY        =   741
  74.       _StockProps     =   0
  75.    End
  76.    Begin VB.Label Label2 
  77.       BorderStyle     =   1  'Fixed Single
  78.       Caption         =   "Problem:"
  79.       Height          =   300
  80.       Left            =   120
  81.       TabIndex        =   5
  82.       Top             =   540
  83.       Width           =   1200
  84.    End
  85.    Begin VB.Label Label1 
  86.       BorderStyle     =   1  'Fixed Single
  87.       Caption         =   "Customer:"
  88.       Height          =   300
  89.       Left            =   120
  90.       TabIndex        =   4
  91.       Top             =   120
  92.       Width           =   1200
  93.    End
  94. End
  95. Attribute VB_Name = "Form1"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Option Explicit
  99.  
  100.  
  101. Private Sub Command1_Click(Index As Integer)
  102.     '
  103.     ' handle user clicks
  104.     '
  105.     Select Case Index
  106.         Case 0
  107.             ' send out report
  108.             DoMAPISend
  109.             ClearForm
  110.         Case 1
  111.             ' cancel this report
  112.             ClearForm
  113.         Case 2
  114.             ' exit this program
  115.             Unload Me
  116.     End Select
  117.     '
  118. End Sub
  119.  
  120.  
  121. Private Sub Form_Load()
  122.     DoMAPILogOn
  123.     ClearForm
  124. End Sub
  125.  
  126.  
  127. Private Sub Form_Unload(Cancel As Integer)
  128.     DoMAPILogOff
  129. End Sub
  130.  
  131.  
  132.  
  133. Public Sub ClearForm()
  134.     '
  135.     ' clear this form for next input
  136.     '
  137.     Text1 = ""
  138.     Text2 = ""
  139. End Sub
  140.  
  141. Public Sub DoMAPILogOn()
  142.     '
  143.     ' attempt to log on to mail services
  144.     '
  145.     On Error GoTo DoMAPILogOnErr
  146.     '
  147.     MAPISession1.DownloadMail = False
  148.     MAPISession1.UserName = "MS-Mail Only"
  149.     MAPISession1.SignOn
  150.     MAPIMessages1.SessionID = MAPISession1.SessionID
  151.     Exit Sub
  152.     '
  153. DoMAPILogOnErr:
  154.     MsgBox Error$, vbCritical, "Error Code: " + Str(Err) + " [DoMAPILogOn]"
  155.     Unload Me
  156.     End
  157. End Sub
  158.  
  159. Public Sub DoMAPILogOff()
  160.     '
  161.     ' log off mapi services
  162.     '
  163.     On Error Resume Next
  164.     MAPISession1.SignOff
  165.     '
  166. End Sub
  167.  
  168. Public Sub DoMAPISend()
  169.     '
  170.     ' put together message and
  171.     ' ship it out
  172.     '
  173.     On Error GoTo DoMAPISendErr
  174.     '
  175.     MAPIMessages1.Compose
  176.     MAPIMessages1.MsgSubject = "Trouble Report for " + Me.Text1
  177.     MAPIMessages1.MsgNoteText = Me.Text2
  178.     MAPIMessages1.RecipAddress = "MS:COMTRAX/PO1/mca"
  179.     MAPIMessages1.Send
  180.     '
  181.     Exit Sub
  182.     '
  183. DoMAPISendErr:
  184.     MsgBox Error$, vbCritical, "Error Code: " + Str(Err) + " [DoMAPISend]"
  185.     Exit Sub
  186. End Sub
  187.  
  188.  
  189.  
  190.  
  191.  
  192.