2 * MAPISendMail implementation
4 * Copyright 2005 Hans Leidekker
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
35 #include "wine/debug.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(mapi
);
39 /**************************************************************************
40 * MAPISendMail (MAPI32.211)
45 * session [I] Handle to a MAPI session.
46 * uiparam [I] Parent window handle.
47 * message [I] Pointer to a MAPIMessage structure.
49 * reserved [I] Reserved, pass 0.
52 * Success: SUCCESS_SUCCESS
53 * Failure: MAPI_E_FAILURE
56 * This is a temporary hack.
58 ULONG WINAPI
MAPISendMail( LHANDLE session
, ULONG_PTR uiparam
,
59 lpMapiMessage message
, FLAGS flags
, ULONG reserved
)
61 ULONG ret
= MAPI_E_FAILURE
;
62 unsigned int i
, to_count
= 0, cc_count
= 0, bcc_count
= 0;
63 unsigned int to_size
= 0, cc_size
= 0, bcc_size
= 0, subj_size
, body_size
;
65 char *to
= NULL
, *cc
= NULL
, *bcc
= NULL
;
66 const char *address
, *subject
, *body
;
67 static const char format
[] =
68 "mailto:\"%s\"?subject=\"%s\"&cc=\"%s\"&bcc=\"%s\"&body=\"%s\"";
69 char *mailto
= NULL
, *escape
= NULL
;
73 TRACE( "(0x%08lx 0x%08lx %p 0x%08lx 0x%08x)\n", session
, uiparam
,
74 message
, flags
, reserved
);
76 if (!message
) return MAPI_E_FAILURE
;
78 for (i
= 0; i
< message
->nRecipCount
; i
++)
80 if (!message
->lpRecips
)
82 WARN("No recipients found\n");
83 return MAPI_E_FAILURE
;
86 address
= message
->lpRecips
[i
].lpszAddress
;
89 switch (message
->lpRecips
[i
].ulRecipClass
)
92 TRACE( "From: %s\n", debugstr_a(address
) );
95 TRACE( "To: %s\n", debugstr_a(address
) );
96 to_size
+= lstrlenA( address
) + 1;
99 TRACE( "Cc: %s\n", debugstr_a(address
) );
100 cc_size
+= lstrlenA( address
) + 1;
103 TRACE( "Bcc: %s\n", debugstr_a(address
) );
104 bcc_size
+= lstrlenA( address
) + 1;
107 TRACE( "Unknown recipient class: %d\n",
108 message
->lpRecips
[i
].ulRecipClass
);
112 FIXME("Name resolution and entry identifiers not supported\n");
114 if (message
->nFileCount
) FIXME("Ignoring attachments\n");
116 subject
= message
->lpszSubject
? message
->lpszSubject
: "";
117 body
= message
->lpszNoteText
? message
->lpszNoteText
: "";
119 TRACE( "Subject: %s\n", debugstr_a(subject
) );
120 TRACE( "Body: %s\n", debugstr_a(body
) );
122 subj_size
= lstrlenA( subject
);
123 body_size
= lstrlenA( body
);
125 ret
= MAPI_E_INSUFFICIENT_MEMORY
;
128 to
= HeapAlloc( GetProcessHeap(), 0, to_size
);
133 cc
= HeapAlloc( GetProcessHeap(), 0, cc_size
);
138 bcc
= HeapAlloc( GetProcessHeap(), 0, bcc_size
);
142 if (message
->lpOriginator
)
143 TRACE( "From: %s\n", debugstr_a(message
->lpOriginator
->lpszAddress
) );
145 for (i
= 0; i
< message
->nRecipCount
; i
++)
147 address
= message
->lpRecips
[i
].lpszAddress
;
150 switch (message
->lpRecips
[i
].ulRecipClass
)
153 if (to_count
) lstrcatA( to
, "," );
154 lstrcatA( to
, address
);
158 if (cc_count
) lstrcatA( cc
, "," );
159 lstrcatA( cc
, address
);
163 if (bcc_count
) lstrcatA( bcc
, "," );
164 lstrcatA( bcc
, address
);
170 ret
= MAPI_E_FAILURE
;
171 size
= sizeof(format
) + to_size
+ cc_size
+ bcc_size
+ subj_size
+ body_size
;
173 mailto
= HeapAlloc( GetProcessHeap(), 0, size
);
174 if (!mailto
) goto exit
;
176 sprintf( mailto
, format
, to
? to
: "", subject
, cc
? cc
: "", bcc
? bcc
: "", body
);
179 res
= UrlEscapeA( mailto
, NULL
, &size
, URL_ESCAPE_SPACES_ONLY
);
180 if (res
!= E_POINTER
) goto exit
;
182 escape
= HeapAlloc( GetProcessHeap(), 0, size
);
183 if (!escape
) goto exit
;
185 res
= UrlEscapeA( mailto
, escape
, &size
, URL_ESCAPE_SPACES_ONLY
);
186 if (res
!= S_OK
) goto exit
;
188 if ((UINT_PTR
)ShellExecuteA( NULL
, "open", escape
, NULL
, NULL
, 0 ) > 32)
189 ret
= SUCCESS_SUCCESS
;
192 HeapFree( GetProcessHeap(), 0, to
);
193 HeapFree( GetProcessHeap(), 0, cc
);
194 HeapFree( GetProcessHeap(), 0, bcc
);
195 HeapFree( GetProcessHeap(), 0, mailto
);
196 HeapFree( GetProcessHeap(), 0, escape
);