home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 1999 October / PCpro_1999_10.ISO / Tools / wwmfix / Source / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-28  |  5.4 KB  |  182 lines
  1. VERSION 5.00
  2. Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   3  'Fester Dialog
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   5775
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3855
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5775
  15.    ScaleWidth      =   3855
  16.    StartUpPosition =   2  'Bildschirmmitte
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "&Info"
  19.       Height          =   435
  20.       Index           =   3
  21.       Left            =   60
  22.       TabIndex        =   7
  23.       Top             =   5280
  24.       Width           =   915
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "&Abbruch"
  28.       Height          =   435
  29.       Index           =   1
  30.       Left            =   1020
  31.       TabIndex        =   6
  32.       Top             =   5280
  33.       Width           =   915
  34.    End
  35.    Begin VB.TextBox Anhang 
  36.       Height          =   285
  37.       Left            =   960
  38.       Locked          =   -1  'True
  39.       MultiLine       =   -1  'True
  40.       ScrollBars      =   2  'Vertikal
  41.       TabIndex        =   4
  42.       Text            =   "Form1.frx":0442
  43.       Top             =   4740
  44.       Width           =   2715
  45.    End
  46.    Begin VB.Frame Frame1 
  47.       Caption         =   "Empf
  48. ngerauswahl"
  49.       Height          =   5115
  50.       Left            =   60
  51.       TabIndex        =   8
  52.       Top             =   60
  53.       Width           =   3735
  54.       Begin VB.TextBox Betreff 
  55.          Height          =   285
  56.          Left            =   840
  57.          TabIndex        =   2
  58.          Top             =   1200
  59.          Width           =   2775
  60.       End
  61.       Begin VB.TextBox Nachricht 
  62.          Height          =   2655
  63.          Left            =   120
  64.          MultiLine       =   -1  'True
  65.          ScrollBars      =   2  'Vertikal
  66.          TabIndex        =   3
  67.          Top             =   1740
  68.          Width           =   3495
  69.       End
  70.       Begin VB.TextBox EmpfAdr 
  71.          Height          =   285
  72.          Left            =   840
  73.          TabIndex        =   1
  74.          Top             =   660
  75.          Width           =   2775
  76.       End
  77.       Begin VB.TextBox EmpfName 
  78.          Height          =   285
  79.          Left            =   840
  80.          TabIndex        =   0
  81.          Top             =   300
  82.          Width           =   2775
  83.       End
  84.       Begin VB.Label Label1 
  85.          BorderStyle     =   1  'Fest Einfach
  86.          Caption         =   "Betreff:"
  87.          Height          =   285
  88.          Index           =   3
  89.          Left            =   120
  90.          TabIndex        =   12
  91.          Top             =   1200
  92.          Width           =   705
  93.       End
  94.       Begin VB.Label Label1 
  95.          BorderStyle     =   1  'Fest Einfach
  96.          Caption         =   "Anhang:"
  97.          Height          =   285
  98.          Index           =   2
  99.          Left            =   180
  100.          TabIndex        =   11
  101.          Top             =   4680
  102.          Width           =   705
  103.       End
  104.       Begin VB.Label Label1 
  105.          BorderStyle     =   1  'Fest Einfach
  106.          Caption         =   "Adresse:"
  107.          Height          =   285
  108.          Index           =   1
  109.          Left            =   120
  110.          TabIndex        =   10
  111.          Top             =   660
  112.          Width           =   705
  113.       End
  114.       Begin VB.Label Label1 
  115.          BorderStyle     =   1  'Fest Einfach
  116.          Caption         =   "Name:"
  117.          Height          =   285
  118.          Index           =   0
  119.          Left            =   120
  120.          TabIndex        =   9
  121.          Top             =   300
  122.          Width           =   705
  123.       End
  124.    End
  125.    Begin VB.CommandButton Command1 
  126.       Caption         =   "&Senden"
  127.       Height          =   435
  128.       Index           =   0
  129.       Left            =   1980
  130.       TabIndex        =   5
  131.       Top             =   5280
  132.       Width           =   1815
  133.    End
  134.    Begin MSMAPI.MAPIMessages MAPIMessages1 
  135.       Left            =   -120
  136.       Top             =   720
  137.       _ExtentX        =   1005
  138.       _ExtentY        =   1005
  139.       _Version        =   327681
  140.       AddressEditFieldCount=   1
  141.       AddressModifiable=   0   'False
  142.       AddressResolveUI=   0   'False
  143.       FetchSorted     =   0   'False
  144.       FetchUnreadOnly =   0   'False
  145.    End
  146.    Begin MSMAPI.MAPISession MAPISession1 
  147.       Left            =   -120
  148.       Top             =   60
  149.       _ExtentX        =   1005
  150.       _ExtentY        =   1005
  151.       _Version        =   327681
  152.       DownloadMail    =   -1  'True
  153.       LogonUI         =   -1  'True
  154.       NewSession      =   0   'False
  155.    End
  156. Attribute VB_Name = "Form1"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Option Explicit
  162. Private Sub Command1_Click(Index As Integer)
  163.     Select Case Index
  164.         Case 0 'send
  165.             SendMail
  166.             Unload Me
  167.         Case 1 'abbr
  168.             Unload Me
  169.         Case 3 'info
  170.             ShowInfo
  171.     End Select
  172. End Sub
  173. Private Sub EmpfAdr_Change()
  174.     ChkSendButtonConditions
  175. End Sub
  176. Private Sub EmpfName_Change()
  177.     ChkSendButtonConditions
  178. End Sub
  179. Private Sub Form_Unload(Cancel As Integer)
  180.     EndPrg
  181. End Sub
  182.