Creates and initializes a licensed EMail object at runtime.
![]() | Type | Description | ||
| An EMail object being created |
Use the NewEMail property to create licensed EMail objects at runtime. If you deploy an application that uses CreateObject or New statements for creating new EMail objects, the application wont work on the machine where the ExEMail wasn't licensed. Instead, you have to use NewEmail and NewMessage properties to create licensed objects at runtime.
The following sample shows how to send an email using blocking mode:
Private Sub Form_Load()
Dim m As Message
Set m = Runtime1.NewMessage
If (0 = m.Send("me", "mike1@Unknown2.com,mike2@Unknown2.com,mike3@Unknown2.com", "Hello")) Then
MsgBox "The message was delivered OK."
End If
End Sub
The following sample shows how to send an email using non-blocking way:
Dim WithEvents e As EMail
Private Sub e_EndSend(ByVal Msg As EXEMAILLibCtl.IMessage)
If (Msg.LastError = 0) Then
MsgBox "The message was delivered OK."
End If
Debug.Print e.Error(Msg.LastError)
End Sub
Private Sub Form_Load()
Set e = Runtime1.NewEMail
Dim m As Message
Set m = Runtime1.NewMessage
Set m.Notifier = e
m.Send "me", "mike1@Unknown2.com,mike2@Unknown2.com,mike3@Unknown2.com", "Hello"
End Sub