home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / emailm_1 / vbemail.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-18  |  2.2 KB  |  74 lines
  1. VERSION 5.00
  2. Begin VB.Form frmEmailMessage 
  3.    Caption         =   "Email Message using Outlook 98"
  4.    ClientHeight    =   4215
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7035
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4215
  10.    ScaleWidth      =   7035
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdSendEmail 
  13.       Caption         =   "Send Email"
  14.       Height          =   495
  15.       Left            =   240
  16.       TabIndex        =   6
  17.       Top             =   3480
  18.       Width           =   1215
  19.    End
  20.    Begin VB.TextBox txtBody 
  21.       Height          =   2535
  22.       Left            =   1920
  23.       TabIndex        =   5
  24.       Top             =   1440
  25.       Width           =   4695
  26.    End
  27.    Begin VB.TextBox txtSubject 
  28.       Height          =   285
  29.       Left            =   1920
  30.       TabIndex        =   3
  31.       Top             =   960
  32.       Width           =   4095
  33.    End
  34.    Begin VB.TextBox txtEmailUser 
  35.       Height          =   285
  36.       Left            =   1920
  37.       TabIndex        =   0
  38.       Text            =   "email@domain.com"
  39.       Top             =   480
  40.       Width           =   4095
  41.    End
  42.    Begin VB.Label lblBody 
  43.       Caption         =   "Enter Body:"
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   4
  47.       Top             =   1440
  48.       Width           =   1575
  49.    End
  50.    Begin VB.Label lblSubject 
  51.       Caption         =   "Enter Subject:"
  52.       Height          =   255
  53.       Left            =   120
  54.       TabIndex        =   2
  55.       Top             =   960
  56.       Width           =   1575
  57.    End
  58.    Begin VB.Label lblEmailUser 
  59.       Caption         =   "Enter Email address: "
  60.       Height          =   255
  61.       Left            =   120
  62.       TabIndex        =   1
  63.       Top             =   480
  64.       Width           =   1575
  65.    End
  66. Attribute VB_Name = "frmEmailMessage"
  67. Attribute VB_GlobalNameSpace = False
  68. Attribute VB_Creatable = False
  69. Attribute VB_PredeclaredId = True
  70. Attribute VB_Exposed = False
  71. Private Sub cmdSendEmail_Click()
  72. Call SendMail(txtEmailUser.Text, txtSubject.Text, txtBody.Text)
  73. End Sub
  74.