mapi32: Implementation for MAPISendMail.

Implement MAPISendMail, stub MAPILogoff and make the stubs for
MAPIInitialize, MAPILogon{,Ex} and MAPILogoff return success.

dlls/mapi32/Makefile.in

@@ -4,13 +4,14 @@ SRCDIR    = @srcdir@
 VPATH     = @srcdir@
 MODULE    = mapi32.dll
 IMPORTLIB = libmapi32.$(IMPLIBEXT)
-IMPORTS   = shlwapi ole32 user32 kernel32 ntdll
+IMPORTS   = shlwapi shell32 ole32 user32 kernel32 ntdll
 EXTRALIBS = -luuid $(LIBUNICODE)
 
 C_SRCS = \
 	imalloc.c \
 	mapi32_main.c \
 	prop.c \
+	sendmail.c \
 	util.c
 
 SUBDIRS = tests

dlls/mapi32/mapi32.spec

@@ -147,8 +147,8 @@
 207 stdcall CbOfEncoded@4(ptr) CbOfEncoded
 208 stub MAPISendDocuments
 209 stdcall MAPILogon(long ptr ptr long long ptr)
-210 stub MAPILogoff
-211 stub MAPISendMail
+210 stdcall MAPILogoff(long long long long)
+211 stdcall MAPISendMail(long long ptr long long)
 212 stub MAPISaveMail
 213 stub MAPIReadMail
 214 stub MAPIFindNext

dlls/mapi32/mapi32_main.c

@@ -67,28 +67,39 @@ HRESULT WINAPI DllCanUnloadNow(void)
     return MAPI_ObjectCount == 0 ? S_OK : S_FALSE;
 }
 
-HRESULT WINAPI MAPIInitialize ( LPVOID lpMapiInit )
+HRESULT WINAPI MAPIInitialize(LPVOID init)
 {
-    ERR("Stub\n");
-    return MAPI_E_NOT_INITIALIZED;
+    FIXME("(%p) Stub\n", init);
+    return SUCCESS_SUCCESS;
 }
 
-ULONG WINAPI MAPILogon(ULONG ulUIParam, LPSTR lpszProfileName, LPSTR
-lpszPassword, FLAGS flFlags, ULONG ulReserver, LPLHANDLE lplhSession)
+ULONG WINAPI MAPILogon(ULONG uiparam, LPSTR profile, LPSTR password,
+    FLAGS flags, ULONG reserved, LPLHANDLE session)
 {
-    ERR("Stub\n");
-    return MAPI_E_LOGON_FAILED;
+    FIXME("(0x%08lx %s %p 0x%08lx 0x%08lx %p) Stub\n", uiparam,
+          debugstr_a(profile), password, flags, reserved, session);
+
+    if (session) *session = 1;
+    return SUCCESS_SUCCESS;
 }
 
-HRESULT WINAPI MAPILogonEx(ULONG_PTR ulUIParam, LPWSTR lpszProfileName,
-                           LPWSTR lpszPassword, ULONG flFlags,
-                           LPMAPISESSION *lppSession)
+ULONG WINAPI MAPILogoff(LHANDLE session, ULONG uiparam, FLAGS flags,
+    ULONG reserved )
 {
-    ERR("Stub\n");
-    return MAPI_E_LOGON_FAILED;
+    FIXME("(0x%08lx 0x%08lx 0x%08lx 0x%08lx) Stub\n", session,
+          uiparam, flags, reserved);
+    return SUCCESS_SUCCESS;
+}
+
+HRESULT WINAPI MAPILogonEx(ULONG_PTR uiparam, LPWSTR profile,
+    LPWSTR password, ULONG flags, LPMAPISESSION *session)
+{
+    FIXME("(0x%08lx %s %p 0x%08lx %p) Stub\n", uiparam,
+          debugstr_w(profile), password, flags, session);
+    return SUCCESS_SUCCESS;
 }
 
 VOID WINAPI MAPIUninitialize(void)
 {
-    ERR("Stub\n");
+    FIXME("Stub\n");
 }

dlls/mapi32/sendmail.c

@@ -0,0 +1,199 @@
+/*
+ * MAPISendMail implementation
+ *
+ * Copyright 2005 Hans Leidekker
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "config.h"
+#include "wine/port.h"
+
+#include <stdio.h>
+#include <stdarg.h>
+
+#include "windef.h"
+#include "winbase.h"
+#include "winerror.h"
+#include "winnls.h"
+#include "objbase.h"
+#include "mapi.h"
+#include "winreg.h"
+#include "shellapi.h"
+#include "shlwapi.h"
+#include "wine/debug.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(mapi);
+
+/**************************************************************************
+ *  MAPISendMail	(MAPI32.211)
+ *
+ * Send a mail.
+ *
+ * PARAMS
+ *  session  [I] Handle to a MAPI session.
+ *  uiparam  [I] Parent window handle.
+ *  message  [I] Pointer to a MAPIMessage structure.
+ *  flags    [I] Flags.
+ *  reserved [I] Reserved, pass 0.
+ *
+ * RETURNS
+ *  Success: SUCCESS_SUCCESS
+ *  Failure: MAPI_E_FAILURE
+ *
+ * NOTES
+ *  This is a temporary hack. 
+ */
+ULONG WINAPI MAPISendMail( LHANDLE session, ULONG uiparam,
+    lpMapiMessage message, FLAGS flags, ULONG reserved )
+{
+    ULONG ret = MAPI_E_FAILURE;
+    unsigned int i, to_count = 0, cc_count = 0, bcc_count = 0;
+    unsigned int to_size = 0, cc_size = 0, bcc_size = 0, subj_size, body_size;
+
+    char *address = "", *to = "", *cc = "", *bcc = "", *subject, *body;
+    static const char format[] =
+        "mailto:\"%s\"?subject=\"%s\"&cc=\"%s\"&bcc=\"%s\"&body=\"%s\"";
+    char *mailto = NULL, *escape = NULL;
+    HRESULT res;
+    DWORD size;
+
+    TRACE( "(0x%08lx 0x%08lx %p 0x%08lx 0x%08lx)\n", session, uiparam,
+           message, flags, reserved );
+
+    if (!message) return MAPI_E_FAILURE;
+
+    for (i = 0; i < message->nRecipCount; i++)
+    {
+        if (!message->lpRecips)
+        {
+            WARN("No recipients found\n");
+            return MAPI_E_FAILURE;
+        }
+
+        address = message->lpRecips[i].lpszAddress;
+        if (address)
+        {
+            switch (message->lpRecips[i].ulRecipClass)
+            {
+            case MAPI_ORIG:
+                TRACE( "From: %s", debugstr_a(address) );
+                break;
+            case MAPI_TO:
+                TRACE( "To: %s", debugstr_a(address) );
+                to_size += lstrlenA( address ) + 1;
+                break;
+            case MAPI_CC:
+                TRACE( "Cc: %s", debugstr_a(address) );
+                cc_size += lstrlenA( address ) + 1;
+                break;
+            case MAPI_BCC:
+                TRACE( "Bcc: %s", debugstr_a(address) );
+                bcc_size += lstrlenA( address ) + 1;
+                break;
+            default:
+                TRACE( "Unknown recipient class: %ld\n",
+                       message->lpRecips[i].ulRecipClass );
+            }
+        }
+        else
+            FIXME("Name resolution and entry identifiers not supported\n");
+    }
+    if (message->nFileCount) FIXME("Ignoring attachments\n");
+
+    subject = message->lpszSubject ? message->lpszSubject : "";
+    body = message->lpszNoteText ? message->lpszNoteText : "";
+
+    TRACE( "Subject: %s\n", debugstr_a(subject) );
+    TRACE( "Body: %s\n", debugstr_a(body) );
+
+    subj_size = lstrlenA( subject );
+    body_size = lstrlenA( body );
+
+    ret = MAPI_E_INSUFFICIENT_MEMORY;
+    if (to_size)
+    {
+        to = HeapAlloc( GetProcessHeap(), 0, to_size );
+        if (!to) goto exit;
+    }
+    if (cc_size)
+    {
+        cc = HeapAlloc( GetProcessHeap(), 0, cc_size );
+        if (!cc) goto exit;
+    }
+    if (bcc_size)
+    {
+        bcc = HeapAlloc( GetProcessHeap(), 0, bcc_size );
+        if (!bcc) goto exit;
+    }
+
+    if (message->lpOriginator)
+        TRACE( "From: %s\n", debugstr_a(message->lpOriginator->lpszAddress) );
+
+    for (i = 0; i < message->nRecipCount; i++)
+    {
+        address = message->lpRecips[i].lpszAddress;
+        if (address)
+        {
+            switch (message->lpRecips[i].ulRecipClass)
+            {
+            case MAPI_TO:
+                if (to_count) lstrcatA( to, "," );
+                lstrcatA( to, address );
+                to_count++;
+                break;
+            case MAPI_CC:
+                if (cc_count) lstrcatA( cc, "," );
+                lstrcatA( cc, address );
+                cc_count++;
+                break;
+            case MAPI_BCC:
+                if (bcc_count) lstrcatA( bcc, "," );
+                lstrcatA( bcc, address );
+                bcc_count++;
+                break;
+            }
+        }
+    }
+    ret = MAPI_E_FAILURE;
+    size = sizeof(format) + to_size + cc_size + bcc_size + subj_size + body_size;
+    
+    mailto = HeapAlloc( GetProcessHeap(), 0, size );
+    if (!mailto) goto exit;
+
+    sprintf( mailto, format, to, subject, cc, bcc, body );
+
+    size = 0;
+    res = UrlEscapeA( mailto, NULL, &size, URL_ESCAPE_SPACES_ONLY );
+    if (res != E_POINTER) goto exit;
+
+    escape = HeapAlloc( GetProcessHeap(), 0, size );
+    if (!escape) goto exit;
+
+    res = UrlEscapeA( mailto, escape, &size, URL_ESCAPE_SPACES_ONLY );
+    if (res != S_OK) goto exit;
+
+    if ((UINT_PTR)ShellExecuteA( NULL, "open", escape, NULL, NULL, 0 ) > 32)
+        ret = SUCCESS_SUCCESS;
+
+exit:
+    HeapFree( GetProcessHeap(), 0, to );
+    HeapFree( GetProcessHeap(), 0, cc );
+    HeapFree( GetProcessHeap(), 0, bcc );
+    HeapFree( GetProcessHeap(), 0, mailto );
+    HeapFree( GetProcessHeap(), 0, escape );
+
+    return ret;
+}

include/mapi.h

@@ -43,6 +43,13 @@ typedef struct
     LPVOID lpFileType;
 } MapiFileDesc, *lpMapiFileDesc;
 
+#ifndef MAPI_ORIG
+#define MAPI_ORIG   0
+#define MAPI_TO     1
+#define MAPI_CC     2
+#define MAPI_BCC    3
+#endif
+
 typedef struct
 {
     ULONG ulReserved;

include/mapicode.h

@@ -29,6 +29,10 @@
 #define MAKE_MAPI_E(e) (MAKE_MAPI_SCODE(1,FACILITY_ITF,(e)))
 #define MAKE_MAPI_S(e) (MAKE_MAPI_SCODE(0,FACILITY_ITF,(e)))
 
+#ifndef SUCCESS_SUCCESS
+#define SUCCESS_SUCCESS     0L
+#endif
+
 /* Errors */
 #define MAPI_E_ACCOUNT_DISABLED            ((SCODE)0x80040124)
 #define MAPI_E_AMBIGUOUS_RECIP             ((SCODE)0x80040700)