Access Right 
Author Message
 Access Right

Dear all
     I have also get a problem on my program. The program function is call
outlook or outlook express to send the mail with attach file.

 The code is :

      oSession = CREATEOBJECT("MSMapi.MapiSession")
      oMessage = CREATEOBJECT("MSMapi.MapiMessages")

      oSession.LogonUI = .t.
      oSession.SignOn

      *-- The message control needs to reference the session control's ID.
      oMessage.SessionID = oSession.SessionID
      oMessage.MsgIndex = -1

      *-- Set up our message and send it.
      oMessage.Compose
      oMessage.msgsubject =  " No. : " + alltrim(thisform.text1.value)

      *-- Create an array holding the attachment file names.
      DIMENSION lcAttachment(1)
      lcAttachment(1) = ' + alltrim(thisform.text1.value) + '.pdf'

      *-- Attach the files.
      FOR lnCount = 1 TO ALEN(lcAttachment)
         oMessage.AttachmentIndex = lnCount - 1
         oMessage.AttachmentPathName = lcAttachment(lnCount)
      ENDFOR

      *-- Send the message on its way.
      oMessage.send(1)
      oSession.signoff

     I got the error message is "OLE ERROR 0x80040112 : class no access
right"



Wed, 31 Aug 2005 17:30:53 GMT  
 Access Right
Hi JJ:

Try the code in these articles and see if they help fix this error:

175052 HOWTO: Send a Message in Visual FoxPro Using Active Messaging
http://support.microsoft.com/?id=175052

181899 PRB: Multiple E-mail Attachments Cause Error with MSMAPI OCX
http://support.microsoft.com/?id=181899

I hope this helps.

This posting is provided "AS IS" with no warranties, and confers no rights.

Sincerely,
Microsoft FoxPro Technical Support
Lee Mitchell

Quote:
> Dear all
>      I have also get a problem on my program. The program function is call
> outlook or outlook express to send the mail with attach file.
>  The code is :
>       oSession = CREATEOBJECT("MSMapi.MapiSession")
>       oMessage = CREATEOBJECT("MSMapi.MapiMessages")

 >      oSession.LogonUI = .t.

Quote:
>       oSession.SignOn
>      *-- The message control needs to reference the session control's ID.
>      oMessage.SessionID = oSession.SessionID
>      oMessage.MsgIndex = -1

>      *-- Set up our message and send it.
>      oMessage.Compose
>      oMessage.msgsubject =  " No. : " + alltrim(thisform.text1.value)
>      *-- Create an array holding the attachment file names.
>      DIMENSION lcAttachment(1)
>      lcAttachment(1) = ' + alltrim(thisform.text1.value) + '.pdf'

 >     *-- Attach the files.
Quote:
>      FOR lnCount = 1 TO ALEN(lcAttachment)
>         oMessage.AttachmentIndex = lnCount - 1
>         oMessage.AttachmentPathName = lcAttachment(lnCount)
>      ENDFOR
>      *-- Send the message on its way.
>      oMessage.send(1)
>      oSession.signoff
>     I got the error message is "OLE ERROR 0x80040112 : class no access
>right"



Sat, 03 Sep 2005 00:50:38 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Expanding Netware access rights in a FP app?

2. access rights in VFP application

3. Accessing Access

4. Accessing FoxPro tables with Access 2002

5. Access to Access

6. Accessing Access mdb from foxpro?

7. accessing access files

8. Regarding Accessing External database using MS-Access and MS-Visual Basic

9. How do I access FPD26 Tables with Access

10. FoxPro accessing MS-Access

11. Access access

12. foxpro and access....or foxpro vs access

 

 
Powered by phpBB® Forum Software