|
|
#include <wtypes.h>
//#include <oaidl.h>
#include <oleauto.h>
#include <mapi.h>
// Structures and Functions used by BMAPI and VB2C
#define RECIPIENT ((USHORT)0x0001)
#define FILE ((USHORT)0x0002)
#define MESSAGE ((USHORT)0x0004)
#define USESAFEARRAY ((USHORT)0x1000)
#if defined (WIN32)
#ifndef BMAPI_ENTRY // PFP
#define BMAPI_ENTRY ULONG FAR PASCAL // define BMAPI_ENTRY PFP
#endif // PFP
#else
#ifndef BMAPI_ENTRY // PFP
#define BMAPI_ENTRY ULONG __export FAR PASCAL // define BMAPI_ENTRY PFP
#endif // PFP
#endif
#ifndef LHANDLE
#define LHANDLE ULONG
#endif
#ifndef ERR
#define ERR USHORT
#endif
//-----------------------------------------------------------------------
// WIN32 definitions of 32 bit VB interface function support
//-----------------------------------------------------------------------
typedef struct{ ULONG ulReserved; BSTR bstrSubject; BSTR bstrNoteText; BSTR bstrMessageType; BSTR bstrDate; BSTR bstrConversationID; ULONG flFlags; ULONG nRecipCount; ULONG nFileCount;} VB_Message,FAR *lpVB_Message;
typedef VB_Message VB_MESSAGE;typedef VB_Message FAR *LPVB_MESSAGE;
typedef struct{ ULONG ulReserved; ULONG ulRecipClass; BSTR bstrName; BSTR bstrAddress; ULONG ulEIDSize; BSTR bstrEID;} VB_Recip,FAR *lpVB_Recip;
typedef VB_Recip VB_RECIPIENT;typedef VB_Recip FAR *LPVB_RECIPIENT;
typedef struct{ ULONG ulReserved; ULONG flFlags; ULONG nPosition; BSTR bstrPathName; BSTR bstrFileName; BSTR bstrFileType;} VB_File, FAR *lpVB_File;
/*
// OLEAUT32.DLL loadlib and getprocaddress support
// WINOLEAUTAPI_(void) SysFreeString(BSTR);
typedef VOID (STDAPICALLTYPE *LPFNSYSFREESTRING) ( BSTR bstr );
// WINOLEAUTAPI_(unsigned int) SysStringByteLen(BSTR bstr);
typedef UINT (STDAPICALLTYPE *LPFNSYSSTRINGBYTELEN) (BSTR bstr);
// WINOLEAUTAPI_(BSTR) SysAllocString(const OLECHAR FAR*);
typedef BSTR (STDAPICALLTYPE *LPFNSYSALLOCSTRING) (const OLECHAR * szwString);
// WINOLEAUTAPI_(int) SysReAllocString(BSTR FAR*, const OLECHAR FAR*);
typedef INT (STDAPICALLTYPE *LPFNSYSREALLOCSTRING) (BSTR * lpBstr, const OLECHAR * szwString);
// WINOLEAUTAPI_(unsigned int) SysStringLen(BSTR);
typedef UINT (STDAPICALLTYPE *LPFNSYSSTRINGLEN) (BSTR bstr);
// WINOLEAUTAPI SafeArrayAccessData(SAFEARRAY FAR* psa, void HUGEP* FAR* ppvData);
typedef HRESULT (STDAPICALLTYPE *LPFNSAFEARRAYACCESSDATA) (struct tagSAFEARRAY *psa, void **ppvData);
// WINOLEAUTAPI SafeArrayUnaccessData(SAFEARRAY FAR* psa);
typedef HRESULT (STDAPICALLTYPE *LPFNSAFEARRAYUNACCESSDATA) (struct tagSAFEARRAY *psa);
extern LPFNSYSFREESTRING lpfnSysFreeString;extern LPFNSYSSTRINGBYTELEN lpfnSysStringByteLen;extern LPFNSYSALLOCSTRING lpfnSysAllocString;extern LPFNSYSREALLOCSTRING lpfnSysReAllocString;extern LPFNSYSSTRINGLEN lpfnSysStringLen;extern LPFNSAFEARRAYACCESSDATA lpfnSafeArrayAccessData;extern LPFNSAFEARRAYUNACCESSDATA lpfnSafeArrayUnaccessData;
#undef SysFreeString
#undef SysStringByteLen
#undef SysAllocString
#undef SysReAllocString
#undef SysStringLen
#undef SafeArrayAccessData
#undef SafeArrayUnaccessData
#define SysFreeString (*lpfnSysFreeString)
#define SysStringByteLen (*lpfnSysStringByteLen)
#define SysAllocString (*lpfnSysAllocString)
#define SysReAllocString (*lpfnSysReAllocString)
#define SysStringLen (*lpfnSysStringLen)
#define SafeArrayAccessData (*lpfnSafeArrayAccessData)
#define SafeArrayUnaccessData (*lpfnSafeArrayUnaccessData)
*/
typedef VB_File VB_FILE;typedef VB_File FAR * LPVB_FILE;
typedef MapiMessage VB_MAPI_MESSAGE;typedef MapiMessage FAR * LPMAPI_MESSAGE;typedef LPMAPI_MESSAGE FAR *LPPMAPI_MESSAGE;
typedef MapiRecipDesc MAPI_RECIPIENT;typedef MapiRecipDesc FAR * LPMAPI_RECIPIENT;typedef LPMAPI_RECIPIENT FAR *LPPMAPI_RECIPIENT;
typedef MapiFileDesc MAPI_FILE;typedef MapiFileDesc FAR * LPMAPI_FILE;typedef LPMAPI_FILE FAR * LPPMAPI_FILE;
typedef HANDLE FAR * LPHANDLE;
typedef VB_File VB_FILE;typedef VB_File FAR * LPVB_FILE;
typedef MapiMessage VB_MAPI_MESSAGE;typedef MapiMessage FAR * LPMAPI_MESSAGE;typedef LPMAPI_MESSAGE FAR *LPPMAPI_MESSAGE;
typedef MapiRecipDesc MAPI_RECIPIENT;typedef MapiRecipDesc FAR * LPMAPI_RECIPIENT;typedef LPMAPI_RECIPIENT FAR *LPPMAPI_RECIPIENT;
typedef MapiFileDesc MAPI_FILE;typedef MapiFileDesc FAR * LPMAPI_FILE;typedef LPMAPI_FILE FAR * LPPMAPI_FILE;
typedef HANDLE FAR * LPHANDLE;typedef LPHANDLE FAR * LPPHANDLE;
/*
#if defined WIN32
//-----------------------------------------------------------------------
// WIN32 definitions of 32 bit VB interface functions
//-----------------------------------------------------------------------
BMAPI_ENTRY BMAPISendMail (LHANDLE hSession, ULONG ulUIParam, LPVB_MESSAGE lpM, LPSAFEARRAY * lppsaRecips, LPSAFEARRAY * lppsaFiles, ULONG flFlags, ULONG ulReserved);
BMAPI_ENTRY BMAPIFindNext(LHANDLE hSession, ULONG ulUIParam, BSTR * bstrType, BSTR * bstrSeed, ULONG flFlags, ULONG ulReserved, BSTR * lpbstrId);
BMAPI_ENTRY BMAPIReadMail (LPULONG lpulMessage, LPULONG nRecips, LPULONG nFiles, LHANDLE hSession, ULONG ulUIParam, BSTR * lpbstrID, ULONG flFlags, ULONG ulReserved);
BMAPI_ENTRY BMAPIGetReadMail(ULONG lpMessage, LPVB_MESSAGE lpvbMessage, LPSAFEARRAY * lppsaRecips, LPSAFEARRAY * lppsaFiles, LPVB_RECIPIENT lpvbOrig);
BMAPI_ENTRY BMAPISaveMail( LHANDLE hSession, ULONG ulUIParam, LPVB_MESSAGE lpM, LPSAFEARRAY * lppsaRecips, LPSAFEARRAY * lppsaFiles, ULONG flFlags, ULONG ulReserved, BSTR * lpbstrID);
BMAPI_ENTRY BMAPIAddress (LPULONG lpulRecip, LHANDLE hSession, ULONG ulUIParam, BSTR * lpbstrCaption, ULONG ulEditFields, BSTR * lpbstrLabel, LPULONG lpulRecipients, LPSAFEARRAY * lppsaRecip, // LPVB_RECIPIENT
ULONG ulFlags, ULONG ulReserved);
BMAPI_ENTRY BMAPIGetAddress (ULONG ulRecipientData, ULONG count, LPSAFEARRAY * lppsaRecips);
BMAPI_ENTRY BMAPIDetails (LHANDLE hSession, ULONG ulUIParam, LPVB_RECIPIENT lpVB, ULONG ulFlags, ULONG ulReserved);
BMAPI_ENTRY BMAPIResolveName (LHANDLE hSession, ULONG ulUIParam, BSTR bstrMapiName, ULONG ulFlags, ULONG ulReserved, LPVB_RECIPIENT lpVB);*/
typedef ULONG (FAR PASCAL BMAPISENDMAIL)( LHANDLE hSession, ULONG ulUIParam, LPVB_MESSAGE lpM, LPSAFEARRAY * lppsaRecips, LPSAFEARRAY * lppsaFiles, ULONG flFlags, ULONG ulReserved);typedef BMAPISENDMAIL FAR *LPBMAPISENDMAIL;BMAPISENDMAIL BMAPISendMail;
typedef ULONG (FAR PASCAL BMAPIFINDNEXT)( LHANDLE hSession, ULONG ulUIParam, BSTR * bstrType, BSTR * bstrSeed, ULONG flFlags, ULONG ulReserved, BSTR * lpbstrId);typedef BMAPIFINDNEXT FAR *LPBMAPIFINDNEXT;BMAPIFINDNEXT BMAPIFindNext;
typedef ULONG (FAR PASCAL BMAPIREADMAIL)( LPULONG lpulMessage, LPULONG nRecips, LPULONG nFiles, LHANDLE hSession, ULONG ulUIParam, BSTR * lpbstrID, ULONG flFlags, ULONG ulReserved);typedef BMAPIREADMAIL FAR *LPBMAPIREADMAIL;BMAPIREADMAIL BMAPIReadMail;
typedef ULONG (FAR PASCAL BMAPIGETREADMAIL)( ULONG lpMessage, LPVB_MESSAGE lpvbMessage, LPSAFEARRAY * lppsaRecips, LPSAFEARRAY * lppsaFiles, LPVB_RECIPIENT lpvbOrig );typedef BMAPIGETREADMAIL FAR *LPBMAPIGETREADMAIL;BMAPIGETREADMAIL BMAPIGetReadMail;
typedef ULONG (FAR PASCAL BMAPISAVEMAIL)( LHANDLE hSession, ULONG ulUIParam, LPVB_MESSAGE lpM, LPSAFEARRAY * lppsaRecips, LPSAFEARRAY * lppsaFiles, ULONG flFlags, ULONG ulReserved, BSTR * lpbstrID);typedef BMAPISAVEMAIL FAR *LPBMAPISAVEMAIL;BMAPISAVEMAIL BMAPISaveMail;
typedef ULONG (FAR PASCAL BMAPIADDRESS)( LPULONG lpulRecip, LHANDLE hSession, ULONG ulUIParam, BSTR * lpbstrCaption, ULONG ulEditFields, BSTR * lpbstrLabel, LPULONG lpulRecipients, LPSAFEARRAY * lppsaRecip, // LPVB_RECIPIENT
ULONG ulFlags, ULONG ulReserved);typedef BMAPIADDRESS FAR *LPBMAPIADDRESS;BMAPIADDRESS BMAPIAddress;
typedef ULONG (FAR PASCAL BMAPIGETADDRESS)( ULONG ulRecipientData, ULONG count, LPSAFEARRAY * lppsaRecips);typedef BMAPIGETADDRESS FAR *LPBMAPIGETADDRESS;BMAPIGETADDRESS BMAPIGetAddress;
typedef ULONG (FAR PASCAL BMAPIDETAILS)( LHANDLE hSession, ULONG ulUIParam, LPVB_RECIPIENT lpVB, ULONG ulFlags, ULONG ulReserved);typedef BMAPIDETAILS FAR *LPBMAPIDETAILS;BMAPIDETAILS BMAPIDetails;
typedef ULONG (FAR PASCAL BMAPIRESOLVENAME)( LHANDLE hSession, ULONG ulUIParam, BSTR bstrMapiName, ULONG ulFlags, ULONG ulReserved, LPVB_RECIPIENT lpVB);typedef BMAPIRESOLVENAME FAR *LPBMAPIRESOLVENAME;BMAPIRESOLVENAME BMAPIResolveName;
|
