Enabled = False SendMailFromAccess btnCancel. Transparent = True InitVariables End Sub Private Sub btnSend_Click () btnFocus. Terminate CancelSending = True CurrentEmailIsFinished = True End If End Sub Private Sub Form_Load () btnCancel. Enabled = False If Not ( oSmtp Is Nothing ) Then oSmtp. Mail Private CurrentEmailIsFinished As Boolean Private HasErrorWithEmail As Boolean Private ErrorDescription As String Private CancelSending As Boolean Private Sub InitVariables () CurrentEmailIsFinished = True HasErrorWithEmail = False ErrorDescription = "" CancelSending = False End Sub Private Sub btnCancel_Click () btnFocus. ' To use the following codes, please download and install ' on your machine Option Compare Database Private WithEvents oSmtp As EASendMailObjLib.
0 Comments
Leave a Reply. |