[AccessD] Attach Database Using SendObject

Outlook is definitely MAPI compliant.  That's what those annoying
security patches were all about. :o{

Charlotte Foust

-----Original Message-----
From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] 
Sent: Wednesday, September 17, 2003 2:59 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Attach Database Using SendObject


Stuart:

Thanks.  I'll give it a try.  Is Outlook MAPI compliant?

Rocky

----- Original Message ----- 
From: "Stuart McLachlan" <stuart at lexacorp.com.pg>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, September 17, 2003 3:20 PM
Subject: Re: [AccessD] Attach Database Using SendObject


> On 17 Sep 2003 at 9:44, Rocky Smolin - Beach Access S wrote:
>
> > Very similar to what I use but I'm trying to get away from using 
> > Outlook.  That's why I though of SendObject because it should 
> > trigger whatever the user's default mail client is.  I think.
> >
> > Rocky
> >
>
> SendObject will only send objects which are in a database, not a 
> database or any other sort of file.
>
> My solution in this case (I stay right away from OE/Outlook whenever
> possible) is to Shell out to a little utility I wrote called MAPISend.

> You can download it (11KB) from http://www.lexacorp.com.pg Here's what

> I say about it on my software page:
>
> MAPISend is a simple Command Line utility to send messages (and
> attachments) via any MAPI compliant email system (such as Pegasus 
> Mail). You can use it in batch files or macros/modules in other 
> programs to automate emailing documents. If you run MAPISend without 
> any parameters, it will display a simple help screen.
>
> One use for MAPISend is to email MS Word documents easily (which you 
> normally can't do unless you use MS Outlook.) To do this, just put put

> this Macro in your Normal.dot template file and create a menu item or 
> toolbar button to invoke the macro:
>
> Public Sub send_document()
> Dim lngResult As Long
> If Documents.Count >= 1 Then
>   If ActiveDocument.Saved = False Then
>       ActiveDocument.Save
>   End If
>   lngResult = Shell("Mapisend /E /F " & ActiveDocument.Name) Else
>   MsgBox "No documents are open"
> End If
>
> End Sub
>
>
> --
> Lexacorp Ltd
> http://www.lexacorp.com.pg
> Information Technology Consultancy, Software Development,System
> Support.
>
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com