Subversion Repositories or1k

/* tclmapi.c - Tcl interface to MAPI.

   Copyright (C) 1997 Cygnus Solutions

   Written by Tom Tromey <tromey@cygnus.com>.  */

#ifdef _WIN32

#include <windows.h>

#include <mapi.h>

#include <stdio.h>

#include <tcl.h>

#include "guitcl.h"

#include "subcommand.h"

/* Usage for the mapi command:

   mapi simple-send TO-ADDRESS SUBJECT TEXT.

   This command has been deliberately kept very simple; it only does

   what we need.  However it can be extended by adding new subcommands

   if necessary.  */

static int

mapi_command (ClientData cd, Tcl_Interp *interp, int argc, char *argv[])

{

  MapiMessage message;

  MapiRecipDesc to;

  ULONG result;

  message.ulReserved = 0;

  message.lpszSubject = argv[3];

  message.lpszNoteText = argv[4];

  message.lpszMessageType = NULL;

  message.lpszDateReceived = NULL;

  message.lpszConversationID = NULL;

  message.flFlags = 0;

  message.lpOriginator = NULL;

  message.nRecipCount = 1;

  message.lpRecips = &to;

  message.nFileCount = 0;

  message.lpFiles = NULL;

  to.ulReserved = 0;

  to.ulRecipClass = MAPI_TO;

  to.lpszName = "";

  /* FIXME: smtp:address?  */

  to.lpszAddress = argv[2];

  to.ulEIDSize = 0;

  to.lpEntryID = NULL;

  result = MAPISendMail (0, 0, &message, MAPI_LOGON_UI, 0);

  if (result != SUCCESS_SUCCESS)

    {

      /* We could decode the error here.  */

      char buf[20];

      sprintf (buf, "0x%lx", result);

      Tcl_AppendResult (interp, argv[0], ": failed with status ",

                        buf, (char *) NULL);

      return TCL_ERROR;

    }

  return TCL_OK;

}

static const struct ide_subcommand_table mapi_table[] =

{

  { "simple-send", mapi_command, 5, 5 },

  { NULL, NULL, 0, 0 }

};

int

ide_create_mapi_command (Tcl_Interp *interp)

{

  return ide_create_command_with_subcommands (interp, "ide_mapi",

                                              mapi_table, NULL, NULL);

}

#endif /* _WIN32 */