For Windows 2000, it is required that Service Pack 4 (SP4) be installed. For Windows XP, Service Pack 2 (SP2) must be installed.
Operating System Minimum Version Windows 2000 5.00.2195 Windows XP 5.10.2600 Windows 2003 Server 5.20.3790 Windows Vista 6.00.6000
InternetMail1.ComposeMessage(strFrom, strTo, strCc, strBcc,
editSubject.Text, _
strMessageText, _
strMessageHTML)
The strMessageText argument would contain the plain text version of the
message body, while the strMessageHTML argument would contain the HTML version.
Refer to the online technical reference documentation for more information.
If Len(editFileName.Text) > 0 Then
InternetMail1.AttachFile(editFileName.Text)
End If
Binary files are automatically encoded using the standard base64 algorithm, while text
files may be included inline or explicitly encoded. Refer to the online technical
reference documentation for more information.
bHasAttachments = False
For nPart = 0 To InternetMail1.MessageParts - 1
InternetMail1.MessagePart = nPart
If Len(InternetMail1.Attachment) > 0 Then
bHasAttachments = True
Exit For
End If
Next
The MessageParts property returns the current number of parts in a
multipart message. The For..Next loop iterates through each message part, checking the
value of the Attachment property, and if it returns something other than
an empty string then the message contains an attachment and the loop is exited.
Dim nError As Long
nError = InternetMail1.Connect(editServerName.Text, , _
editUserName.Text, _
editPassword.Text)
If nError Then
MsgBox "Unable to connect to " & editServerName.Text & vbCrLf & _
InternetMail1.LastErrorString, vbExclamation
Exit Sub
End If
If InternetMail1.MessageCount > 0 Then
MsgBox "This mailbox has " & InternetMail1.MessageCount & _
" new messages available", vbInformation
End If
InternetMail1.Disconnect
Note that this example presumes that new messages are eventually downloaded by the
client and deleted from the server. For more information about retrieving e-mail messages,
refer to the online technical reference.
Dim objInternetMail As New InternetMailCtl.InternetMailThe other approach is to use the CreateObject method:
Dim objInternetMail As Object
Dim strLicenseKey As String
Set objInternetMail = CreateObject("SocketTools.InternetMail.5")
objInternetMail.Initialize strLicenseKey
Note that the strLicenseKey value must be obtained from the csimkey5.bas
module that was created in the \Include folder where the product was installed. The
Initialize method must be called explicitly when using the
CreateObject function; otherwise a licensing error will occur when
redistributing the application.
ActivePatch
Information about ActivePatch, the file patching toolkit.
File Transfer Control
Information about the Catalyst File Transfer control.
Internet Mail Control
Information about the Catalyst Internet Mail control.
SocketTools Editions
Information about the SocketTools suite of products.
SocketTools Subscription
Information about the SocketTools subscription plan.
SocketWrench Editions
Information about the SocketWrench components.
Product Licensing
Product licensing information for customers and evaluators.
Technical Support
Technical support options and policies for developers.