473,320 Members | 1,817 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Groupwise Email from MS Access 2000

I'm trying to create an email message in Novell Groupwise (from
Access) which the user can edit before sending. Using the code below,
I can create a message just fine, but the problem is that it gets sent
out automatically, which is not what I want. If I comment out the
Call Message.Send part of the code, it stores the message in the Work
in Progress Folder, which is great - but it deletes all the
recipients' addresses in the "TO:" field.
Does anyone know of a way that I can fix the code so it doesn't send
the email out automatically, but allows the user to edit it before
sending.

Thank is advance for your help.
************************************************** ****************************
Private Sub Send_External_Mail()

Dim asloginname As String
Dim asloginoptions As String
' GroupWise Object API variabls
Dim GWApplication As Object
Dim GWRootAccount As Object
Dim GWAddressBooks As Object
Dim GWFolders As Object
Dim GWMailBoxFolder As Object
Dim gMessage As Object
Dim gRecipients As Object
Dim gAttachments As Object
Dim i As Integer
'On Error GoTo eSend_External_Mail

asloginname = ""
asloginoptions = ""
' Get the application object, login, and initialize the base object
Set GWApplication = CreateObject("NovellGroupWareSession")
Set GWRootAccount = GWApplication.Login(asloginname, asloginoptions)
Set GWAddressBooks = GWRootAccount.AddressBooks
Set GWFolders = GWRootAccount.AllFolders
Set GWMailBoxFolder = GWRootAccount.Mailbox
Dim lWorkFolder As Object
Dim lWorkMessages As Object
Dim lMessage As Object
Dim lGWMessage As Object

' In order to send a message, it must be created from the 'WorkFolder'
list
Set lWorkFolder = GWRootAccount.WorkFolder
Set lWorkMessages = lWorkFolder.Messages

' Add a blank message to the list
Set lMessage = lWorkMessages.Add("", "")

lMessage.bodytext.plaintext = strMessage 'RTrim(txtMessage.Text) +
vbLf
lMessage.Subject.plaintext = strSubject 'txtSubject.Text
'For i = 0 To GWncc1.Count - 1
Call lMessage.Recipients.Add(strTo) 'GWncc1.EmailAddress(i))
'Next

Call lMessage.Attachments.Add(strFile, "", MailTo & " Report.rtf")
'gsAttachmentDisplayName) 'txtAttachment.Text, "",
gsAttachmentDisplayName)
Call lMessage.Send

Set lGWMessage = Nothing
Set lWorkMessages = Nothing
Set lWorkFolder = Nothing
'Set CreateBlankMessage = Nothing
'MsgBox "Email sent successfully", vbInformation

' gMailForwarded = True

End Sub
Nov 12 '05 #1
1 4334
On Feb 10 2004, 10:02 am, at*******@hotmail.com (Atim) wrote in
news:5d**************************@posting.google.c om:
I'm trying to create an email message in Novell Groupwise (from
Access) which the user can edit before sending. Using the code below,
I can create a message just fine, but the problem is that it gets sent
out automatically, which is not what I want. If I comment out the
Call Message.Send part of the code, it stores the message in the Work
in Progress Folder, which is great - but it deletes all the
recipients' addresses in the "TO:" field.
Does anyone know of a way that I can fix the code so it doesn't send
the email out automatically, but allows the user to edit it before
sending.


In the code that you posted, you are using something called GroupWise
Object API to interact with the Groupwise engine. Object API does not
provide any user interface features - for example, the regular New Message
window that you see when you send a new email in Groupwise is provided by
the Groupwise client, which in turn uses Object API to interact with the
engine (more or less).

You have two options:

1. Create your own New Message window using an Access form. Then, from
code, create a new message based on user input on that form and send it.
In this case, the Groupwise class at
http://www.users.cloud9.net/~dfurman/code.htm may be useful to wrap the
Object API functionality in an easily accessible way.

2. Use Groupwise tokens. This is a method that allows you to automate
Groupwise client itself, so that you can start the client, open the regular
New Message window, prepopulate some of the fields, then have the user do
the rest. The code to do that is significantly different compared to what
you posted. Samples and documentation are available at
http://developer.novell.com/ndk/gwtoken.htm

--
remove a 9 to reply by email
Nov 12 '05 #2

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

1
by: Dennis Hartmann | last post by:
Has anyone found a "display" method for the GroupwareTypeLibrary.Message object, comparable to the Display method of the Outlook.MailItem object? I simply want end user or have the option of...
2
by: Norman Fritag | last post by:
Hi there are there any issues with sending multiple emails via GroupWise ver. 6??? please comment. Regards Norman
1
by: Molly J. Fagan | last post by:
Hello everyone-- I'm trying to develop a help desk system to replace Trak-It. We have a help desk e-mail address and want all messages sent to that e-mail address to go into an Access database...
5
by: Laertes | last post by:
Hi, I know there is already a plethora of emails regarding Groupwise/Access problems but mine is slightly different to the ones I've read about. I'm trying to use the sendobject command to...
2
by: acewood1 | last post by:
I've done some searching in the archives but can't seem to find an easy answer as to how to send a Groupwise email through Access 2003. I just need to open a new email and populate the "To:" line...
46
by: pixie | last post by:
Hi. I have an Access DB that is for contracts. I have used the code found on Tony's site for emailing a report per person containing only their information using GroupWise. It works great but I...
13
by: mcsheepie | last post by:
Hi I've been happily using Dimitri Furman's email code to send messages but since upgrading to Groupwise 7 i've hit a slight problem. The code works great and sends the email as expected, however if...
5
cori25
by: cori25 | last post by:
Hi, I have been trying to come up with a module in access using VB to allow email messages to be sent using GroupWise. I am having a hard time and was wondering if anyone has any experience with...
1
by: ncsthbell | last post by:
I saw a thread from last October with 'Tara99' where she apparently was trying to do exactly what I need to do, send enails from access using Groupwise. However, I did not see in the end where or if...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.