dmtestform.frm

好东西

VERSION 5.00
Begin VB.Form DMTestForm 
   Caption         =   "DevMailer Test Application"
   ClientHeight    =   4995
   ClientLeft      =   2670
   ClientTop       =   1950
   ClientWidth     =   6390
   LinkTopic       =   "Form1"
   ScaleHeight     =   4995
   ScaleWidth      =   6390
   Begin VB.CommandButton SendEmail 
      Caption         =   "Send &Email"
      Height          =   495
      Left            =   4680
      TabIndex        =   8
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox Server_Address 
      Height          =   285
      Left            =   1440
      TabIndex        =   2
      Text            =   "mail.domain.com"
      Top             =   840
      Width           =   2655
   End
   Begin VB.TextBox Message_Body 
      Height          =   3375
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   4
      Text            =   "DMTestForm.frx":0000
      Top             =   1440
      Width           =   6135
   End
   Begin VB.TextBox To_Address 
      Height          =   285
      Left            =   1440
      TabIndex        =   1
      Text            =   "[e-mail]"
      Top             =   480
      Width           =   2655
   End
   Begin VB.TextBox From_Address 
      Height          =   285
      Left            =   1440
      TabIndex        =   0
      Text            =   "[e-mail]"
      Top             =   120
      Width           =   2655
   End
   Begin VB.Label Label4 
      Caption         =   "Message:"
      Height          =   495
      Left            =   360
      TabIndex        =   7
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "SMTP Server"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "To"
      Height          =   255
      Left            =   720
      TabIndex        =   5
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "From"
      Height          =   255
      Left            =   720
      TabIndex        =   3
      Top             =   120
      Width           =   855
   End
End
Attribute VB_Name = "DMTestForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub SendEmail_Click()
    ' Geocel DevMailer 1.0
    ' Visual Basic Usage Example
    ' (c) 1999, Geocel International, Inc.
    '
    ' - DevMailer can be found at:
    ' - http://www.geoce.com/devmailer/

    ' Create DevMailer Object
     Set Mailer = CreateObject("Geocel.Mailer")

    ' Add first SMTP server
     Mailer.AddServer DMTestForm.Server_Address, 25
    
    ' Set Sender Information
     Mailer.FromAddress = DMTestForm.From_Address
     Mailer.FromName = "Devmailer Test"

    ' Add a recipient to the message
     Mailer.AddRecipient DMTestForm.To_Address, ""

    ' Set the Subject and Body
     Mailer.Subject = "Welcome to DevMailer"

     Mailer.Body = DMTestForm.Message_Body & vbCrLf

    ' Send Email - Perform Error Checking
    bSuccess = Mailer.Send()

    If bSuccess = False Then
        If Mailer.Queued = False Then
            MsgBox ("Could not send message..queueing failed!")
        Else
            MsgBox ("Could not send message..queued instead!")
        End If
    Else
        MsgBox ("Message Sent Successfully!")
    End If

End Sub