[RBASE-L] - Re: MAPI Mail Problem

[omafcox]

David,

Here is an example that morph from using mapimail4 to using Rmail 2.6.

There is one thing that you have to do is include all the items need for the email.

If incomplete it will not work!

Hope this helps!

Have a great day!

 

-- emailmessaging.RMD to demonstrate the use of Rmail 2.6

CLS
PAUSE 2 USING 'Now Let''s Automate Everything!' CAPTION ' Send MAPIMail4' ICON apps

CLEAR VAR vparameters,vquote,vdummy,vpipe,vto,vsubject,vcc,vbcc,vattachments,vformat,vpriority,vreceipt,vbody

--SET VAR vparameters TEXT = NULL
--SET VAR vquote TEXT = (CVAL('QUOTES'))
--SET VAR vdummy TEXT = 'vDummy'
--SET VAR vpipe TEXT = '|'
SET VAR vto TEXT = 'To:[EMAIL PROTECTED]'
SET VAR vfrom text = 'From:[EMAIL PROTECTED]'
SET VAR vsubject TEXT = 'Subject: '
SET VAR vcc TEXT = 'Cc:[EMAIL PROTECTED]'
SET VAR vbcc TEXT = 'Bcc:[EMAIL PROTECTED]'
SET VAR vattachments TEXT = 'X-Attachments:'
--C:\OCSI\All_About_CHOOSE_Commmand.pdf;c:\ocsi\HPNotebookRicky.pdf'
set var vformat text = 'Format:T'
set var vpriority text = 'Priority:1'
set var vreceipt text = 'Receipt:'
--SET VAR vbody TEXT = 'Body:Now you can also use this cool feature of R:BASE 7.6 for Windows'

--SET VAR vparameters = (.vquote+.vdummy&.vpipe+.vto&.vpipe+.vsubject&.vpipe+.vcc&.vpipe+.vbcc&.vpipe+.vbody&+.vpipe+.vattachments+.vquote)
SET VAR vbody TEXT = 'Will be later in the day getting there!  Now you can also use this cool feature of R:BASE 7.6 for Windows'
--SET VAR vparameters = (.vdummy&.vpipe+.vto&.vpipe+.vsubject&.vpipe+.vcc&.vpipe+.vbcc&.vpipe+.vbody&+.vpipe+.vattachments)
*(      To:[EMAIL PROTECTED]
          From:"Your Name" <[EMAIL PROTECTED]>
          Subject:Test Message
          Cc:
          Bcc:
          X-Attachments:
          Format:T
          Priority:1
          Receipt:[EMAIL PROTECTED]

          Dear Recipient,

          Your e-mail text here)

output test.mal
write .vto
write .vfrom
write .vsubject
write .vcc
write .vbcc
write .vattachments
write .vformat
write .vpriority
write .vreceipt
write .vbody
output screen

CLS

SET VAR vMailToGo = (UDF('@RMail.DLL','test.mal'))
--PLUGINS mapimail4.rbl &vparameters

PAUSE 2 USING 'Enjoy the Endless Possibilities of R:BASE 7.6 for Windows!' +
CAPTION ' Using Custom Plugins' ICON apps

CLEAR VAR vparameters,vquote,vdummy,vpipe,vto,vsubject,vcc,vbcc,vattachments,vformat,vpriority,vreceipt,vbody
RETURN

-------------- Original message from "David Blocker" <[EMAIL PROTECTED]>: --------------

Dear R:Base friends – I posted this question a week ago.  It’s possible someone sent me an answer but I never received it – for some reason I received no messages from the list for 2 days thereafter and then as mysteriously as it stopped, deliveries started again.  So here it it again:

 

I’m revisiting an application created some time ago in R:Base 7.5.  I have a menu item that is supposed to allow the user of the application to send an email  to me requesting help.  This is the EEP that I wrote and worked at the time I created it:

 

SET VAR vParameters TEXT = NULL

SET VAR vQuote TEXT = (CVAL('QUOTES'))

SET VAR vDummy TEXT = 'vDummy'

SET VAR vPipe TEXT = '|'

SET VAR vTo TEXT = 'To:[EMAIL PROTECTED]'

SET VAR vSubject TEXT = 'Subject:Help

SET VAR vParameters = +

(.vQuote+.vDummy&.vPipe+.vTo&.vPipe+.vSubject+.vQuote)

CLS

PLUGIN MAPIMAIL2.RBL &vParameters

CLEAR VAR vParameters, vQuote, vPipe, vTo, vSubject, vAttachments

RETURN

 

Running it under 7.6, I get first a Windows error message:  “No profiles have been created.  To create a new profile, use the Mail icon in the Control Panel.”  This is followed by the R:Base 7.6 error message:  “MAPI: Login Failure: ErrorCode = 3”.

 

When I go to the icon in the Control panel, the only options there refer to MS Outlook, which is not my email application (I use Outlook Express and I’m sure other users who will use this application down the road cannot be assumed to use Outlook Express).

 

I have tried using MAPIMAIL3 and 4 - no difference.

 

I’ve been unable to find help on this issue under R:Base Help (MAPMAIL rbl’s are not listed under PlugIns), Razzak’s Sample applications web site or his “From the Edge” site.  Can anyone direct me to the the right place to get help on this issue?  Or provide a solution?

 

David Blocker

 

David Blocker
[EMAIL PROTECTED]
Telephone: 781-344-1920
Cell Phone: 339-206-0261