Hi All,
Below is a function I want to use in AccessXP, it works as is but as
the comment says I need to manually open Tools - References and check
off 'Groupware Type Library' and I'm hoping someone here can show me
some sample code so I do not have to do that manually. If I run this
without that library checked off I get this error message
'Compile Error - User Defined Type Not Defined'
thanks
bobh.
Public Function SendGWMail(DisplayMsg As Boolean, _
strTo As String, strCC As String, strBCC As String, _
strSubject As String, strBody As String, strAttachPathFile As String)
As Boolean
' In order for this function to work you must check Groupware Type
Library under Tools - References
' This will log you in to Groupwise if you are not logged in already
except if you have your
' Groupwise account password protected then you must log-in to
Groupwise first.
Const NGW$ = "NGW"
Dim GWCom As Object
Dim RetStr As String, MessageId As String
SendGWMail = False
' Create the Groupwise session
Dim gwappl As GroupwareTypeLibrary.Application2
Dim gwacc As GroupwareTypeLibrary.Account2
Dim gwnewmessage As GroupwareTypeLibrary.Message
Set gwappl = CreateObject("NovellGroupWareSession")
Set gwacc = gwappl.Login
Set gwnewmessage = gwacc.WorkFolder.Messages.Add("GW.Message.mail",
egwDraft)
' Create the message
With gwnewmessage
With .Recipients
' Add the To recipient(s) to the message
If (strTo <"") Then
'.Add strTo
.Add strTo, NGW, egwTo
End If
' Add the CC recipient(s) to the message
If (strCC <"") Then
.Add strCC, NGW, egwCC
End If
' Add the BCC recipient(s) to the message
If (strBCC <"") Then
.Add strBCC, NGW, egwBC
End If
End With
' Set the Subject, Body, and Importance of the message
.Subject = strSubject
.BodyText = strBody
.Priority = egwHigh
' Add attachments to the message.
If (strAttachPathFile <"") Then
.Attachments.Add strAttachPathFile, egwFile
End If
' Should we display the message before sending?
If DisplayMsg Then
' Display message to user
MessageId = .MessageId
Set GWCom = CreateObject("GroupwiseCommander")
GWCom.Execute "ItemOpen (""" & MessageId & """)", RetStr
GWCom.Execute "ItemSetText (""X00"";To!; """ & strTo & """; 0)",
RetStr
Else
.Send
End If
End With
SendGWMail = True
Set gwnewmessage = Nothing
End Function
