BO+email via GroupWise or SMTP

On Thu, 29 Apr 1999 14:22:28 -0400, Ioannis Hasandras IHASANDRAS@FTC.GOV
wrote:

Is anyone out there using GroupWise to send email from BO?
An example script so I can use it for DAS?

Try the script below. We are using GroupWise 5.5.1. Our network people
installed the software, so I am not sure if they needed to install the SDK
in a special way or if it is automatic. Hopefully this will work for you.

Chad Berghorst
Gordon Food Service

sub SendMail (strSubj as String,strMsg as String)
dim GWApp as Object 'NovellGroupWareSession
dim Account As Object
dim NewMail As Object

set GWApp = CreateObject(“NovellGroupWareSession”)
set Account = GWApp.Login(“”, ,“”)
set NewMail = Account.MailBox.Messages.Add

with NewMail
.Recipients.Add (“gw_user”)
.Subject = strSubj
.BodyText = strMsg
.Attachments.Add (ActiveDocument.FullName)
.Send
end with
end sub

sub main
dim strMsg as String
dim strSubj as String

on error goto error_handler
strSubj = “Mail test - send report”
strMsg = “It must have worked.”

call SendMail(strSubj, strMsg)
msgbox(“The mail has been sent.”)
exit sub

error_handler:
msgbox("Error " & Err & ": " & Error$)

end sub

Gordon Food Service


Listserv Archives (BOB member since 2002-06-25)