Some Help to get started needed for a newbie

Question

I am attempting to add some simple email functionality to a small utility
program I am writing in Delphi for my school. We have used Groupwise for
many years and I have programmed a bit in Delphi but mainly database work.
Can anyone tell me where to find some documentation that will help me to
get started in using the GW Tokens API with Delphi?
How do I install it?
Do I need a Type Library for it to use it effectively with Delphi?
Is there some sort of basic skeleton code that I can refer to?
I would greatly appreciate any help that anyone might offer here.
Thanks
Alan Humphries

Answer 1

freemat2 wrote:
Ooops putting some info would have helped.
It will be a long hard road but..
for VB (so you will need to translate for Delphi)
Add references to Groupwise.exe to your project and Groupware type library
GWCMA1.DLL
Then this will create a new email and drop in a few addresses if supplied
(eg from your CRM)
Public Sub SendEmail(ByVal lsEmailAddress As String, ByVal lsDomain As
String, lblProgress As Label)
Dim vCommander As Object
Dim rc As Long
Dim sResult As String
Dim lsOperation As String
Dim i As Integer
Dim sUserName As String
Dim sEmailTo As String
Dim nPtr As String
Dim lsMsg As String
On Error GoTo Error_Trap
lsMsg = ""
If lsEmailAddress = "" Then
lsMsg = lsMsg & "Please supply a recipients email address" & vbCrLf
End If
If lsMsg > "" Then
lblProgress.Caption = lsMsg
MsgBox lsMsg
Exit Sub
End If
If lsDomain > "" Then
lsEmailAddress = lsEmailAddress & "@" & lsDomain
End If
Set vCommander = CreateObject("GroupwiseCommander")
DoEvents
lblProgress.Caption = "Create email"
rc = vCommander.Execute("NewMail()", sResult)
sEmailTo = lsEmailAddress
While sEmailTo > ""
nPtr = InStr(sEmailTo, ";")
If nPtr = 0 Then
sUserName = sEmailTo
sEmailTo = ""
Else
If nPtr > 1 Then
sUserName = left$(sEmailTo, nPtr - 1)
End If
If nPtr < Len(sEmailTo) Then
sEmailTo = Mid$(sEmailTo, nPtr + 1)
End If
End If
lblProgress.Caption = "Add " & sUserName
lsOperation = "TextSetTo(" & vbDoubleQuotes & sUserName &
vbDoubleQuotes & "; True) "
rc = vCommander.Execute(lsOperation, sResult)
If sResult > "" Then
MsgBox "Error adding " & sEmailTo & " ,because " & vbCrLf &
sResult
End If
Wend
lblProgress.Caption = ""
DoEvents
Exit_Proc:
Exit Sub
Error_Trap:
MsgBox "Error creating email " & vbCrLf & Err.Description
lblProgress.Caption = "Error: " & Err.Description
Resume Exit_Proc
End Sub
> Michael Risch wrote:
> > DId you look at the Groupwise developer PDF or the sample code on the
> > website? Both should be helpful.
> > [email protected] wrote in news:KSlQh.218$7e7.73@prv-
> > forum2.provo.novell.com:
> > > Thanks - this is starting to look like a long, hard road
> > >
> > > Alan Humphries
> > >
> > >> Since you are using Delphi, all I can suggest is the PDF :-(
> > >>
> > >> Never ever had any luck with early binding and Delphi
> > >>
> > >> No need to install anything besides the GW Client though
> > >>
> > >>
> > >> --
> > >> Best Regards
> > >>
> > >> Tommy Mikkelsen
> > >>
> > >> IT Quality A/S
> > >> Denmark
> > >>
> > >> Novell Developer Forums SYSOP
> > >>
> > >> Please Report back any success or failure, That way we all learn
> > >>
> > >> Sorry, but no support through email
> > >>
> > >> "I hate bugs".......Tommy Lee Jones, MIB
> > >>
> > >> Be a GroupWiseR, go http://www.groupwiser.net
> > >
> > >