fiogf49gjkf0d For spell check, SLX included a scipt with version 6.2 for that that uses some Word automation for the spell check. This is the function that exists there (that you can use in 6.1, just paste it in)
Function SpellCheck(strText)
Dim strSelection, strResult
Dim objWord
Dim i
On Error Resume Next
strResult = ""
Set objWord = CreateObject("Word.Basic") 'DNL
objWord.AppMinimize
SpellCheck = strText
objWord.FileNewDefault
objWord.EditSelectAll
objWord.EditCut
objWord.Insert strText
objWord.StartOfDocument
objWord.ToolsSpelling
objWord.EditSelectAll
strSelection = objWord.Selection
If Mid(strSelection, Len(strSelection), 1) = chr(13) Then
strSelection = Mid(strSelection, 1, Len(strSelection) - 1)
End If
If Len(strSelection) > 1 Then
'Word strips linefeed characters (chr (10)) out of the returned text,
'so we have to put them back.
For i = 1 To Len(strSelection)
If Mid(strSelection, i, 1) = chr(13) Then
strResult = strResult & chr(13) & chr(10)
Else
strResult = strResult & Mid(strSelection, i, 1)
End If
Next
End If
SpellCheck = strResult
MsgBox Application.Translator.Localize("The spell check is complete."),, "SalesLogix"
objWord.FileCloseAll 2
objWord.AppClose
Set objWord = Nothing
End Function
Then to use it you would just call:
memo1.Text = SpellCheck(memo1.Text)
As far as e-mailing, it is an easy task with the built in QueMessage function. QueMessage is defined in the dev ref docs:
QueMessage
----------------------------------------------------
Available in
The SalesLogix Client, the Support Client
Function
The function populates the relevant parameters and displays the message editor. QueMessage can be by itself or with any of the listed parameters as long as the previous parameter is either filled in or blank. Be aware that some mail clients (or even Mailto: ) require an ASCII space for a blank value. The following example shows how "%20" would be used as:
QueMessage "me@home.com", "%20"
Object
Application.BasicFunctions.QueMessage
Syntax
QueMessage
Parameters
ToAddress = To Address for the e- mail
CCAddress = CC Address for the e-mail
BCCAddress = BCCAddress for the e-mail
Subject = Subject for the e-mail
Body = Body of the e-mail
Attach = Attachment path for the e-mail
Returns
Boolean |