inetcomm: Add a stub for MimeOleCreateVirtualStream.

dlls/inetcomm/inetcomm.spec

@@ -55,7 +55,7 @@
 @ stub MimeOleCreateMessageParts
 @ stub MimeOleCreatePropertySet
 @ stub MimeOleCreateSecurity
-@ stub MimeOleCreateVirtualStream
+@ stdcall MimeOleCreateVirtualStream(ptr)
 @ stub MimeOleDecodeHeader
 @ stub MimeOleEncodeHeader
 @ stub MimeOleFileTimeToInetDate

dlls/inetcomm/mimeole.c

@@ -27,6 +27,7 @@
 #include "winbase.h"
 #include "winuser.h"
 #include "objbase.h"
+#include "ole2.h"
 #include "mimeole.h"
 
 #include "wine/debug.h"
@@ -54,3 +55,15 @@ HRESULT WINAPI MimeOleCreateMessage(IUnknown *pUnkOuter, IMimeMessage **ppMessag
     *ppMessage = NULL;
     return E_NOTIMPL;
 }
+
+/***********************************************************************
+ *              MimeOleCreateVirtualStream (INETCOMM.@)
+ */
+HRESULT WINAPI MimeOleCreateVirtualStream(IStream **ppStream)
+{
+    HRESULT hr;
+    FIXME("(%p)\n", ppStream);
+
+    hr = CreateStreamOnHGlobal(NULL, TRUE, ppStream);
+    return hr;
+}