Solved

Setting email priority in access97 vba code

Posted on 2000-04-13
3
280 Views
Last Modified: 2012-05-04
I have this piece of code I use in Access97 which sends an email to Groupwise5.5 and it works just fine. What I would like to do is add a priority to the mail being sent but I do not know what the line of code is. I have tried
oMessage.Priority.High and oMessage.Priority = High
nether works. Also, what is the line of code for putting a mail address in the CC box?

Set oApp = CreateObject("NovellGroupWareSession")
Set oAcct = oApp.login("", "")
Set oMessages = oAcct.Mailbox.Messages
'create new message
Set oMessage = oMessages.Add()
'get mail address
oMessage.Recipients.Add ToYou
oMessage.Recipients.Add ToCC
'get subject for message
oMessage.Subject = Subj
'get message text
oMessage.BodyText = Mess
'get attachement if any
oMessage.attachments.Add AttchFile
'send it out
oMessage.Send

thanks for any help
bobh




0
Comment
Question by:bhynes
  • 2
3 Comments
 
LVL 7

Accepted Solution

by:
Believer earned 75 total points
ID: 2714485
Unfortunately, when you use the following method to set object references:
   Set oApp = CreateObject("NovellGroupWareSession")
you don't get intelli-sense or object model.
Have you tried, therefore, setting a reference (tools... references) to the GroupWise object model so you can use intelli-sense or, better yet, review the object model (view...object browser or simply F2)?
0
 

Author Comment

by:bhynes
ID: 2717986
The answer was the long way around and took me a long time to figure out when all I needed was oMessage.Priority = 3. Even so, thanks for the help it did get me to an answer.
0
 
LVL 7

Expert Comment

by:Believer
ID: 2723030
You're welcome, but sorry it turned out to be the long way around :(
0

Featured Post

Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question