[wxWidgets.git] / contrib / src / net / smapi.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        smapi.cpp
// Purpose:     Simple MAPI classes
// Author:      PJ Naughter <pjna@naughter.com>
// Modified by: Julian Smart
// Created:     2001-08-21
// RCS-ID:      $Id$
// Copyright:   (c) PJ Naughter
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "smapi.h"
#endif

// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include "wx/wx.h"
#endif

#include "wx/string.h"
#include "wx/msw/private.h"

#include <mapi.h>

#include "wx/net/smapi.h"

class WXDLLIMPEXP_NETUTILS wxMapiData
{
public:
    wxMapiData()
    {
        m_hSession = 0;
        m_nLastError = 0;
        m_hMapi = NULL;
        m_lpfnMAPILogon = NULL;
        m_lpfnMAPILogoff = NULL;
        m_lpfnMAPISendMail = NULL;
        m_lpfnMAPIResolveName = NULL;
        m_lpfnMAPIFreeBuffer = NULL;
    }

    //Data
    LHANDLE             m_hSession; //Mapi Session handle
    long                m_nLastError; //Last Mapi error value
    HINSTANCE           m_hMapi; //Instance handle of the MAPI dll
    LPMAPILOGON         m_lpfnMAPILogon; //MAPILogon function pointer
    LPMAPILOGOFF        m_lpfnMAPILogoff; //MAPILogoff function pointer
    LPMAPISENDMAIL      m_lpfnMAPISendMail; //MAPISendMail function pointer
    LPMAPIRESOLVENAME   m_lpfnMAPIResolveName; //MAPIResolveName function pointer
    LPMAPIFREEBUFFER    m_lpfnMAPIFreeBuffer; //MAPIFreeBuffer function pointer
};


////////////////////////////////// Implementation /////////////////////////////

wxMapiSession::wxMapiSession()
{
    m_data = new wxMapiData;
    
    Initialise();
}

wxMapiSession::~wxMapiSession()
{
    //Logoff if logged on
    Logoff();
    
    //Unload the MAPI dll
    Deinitialise();
    
    delete m_data;
}

void wxMapiSession::Initialise() 
{
    //First make sure the "WIN.INI" entry for MAPI is present aswell 
    //as the MAPI32 dll being present on the system
    bool bMapiInstalled = (GetProfileInt(_T("MAIL"), _T("MAPI"), 0) != 0) && 
        (SearchPath(NULL, _T("MAPI32.DLL"), NULL, 0, NULL, NULL) != 0);
    
    if (bMapiInstalled)
    {
        //Load up the MAPI dll and get the function pointers we are interested in
        m_data->m_hMapi = ::LoadLibrary(_T("MAPI32.DLL"));
        if (m_data->m_hMapi)
        {
            m_data->m_lpfnMAPILogon = (LPMAPILOGON) GetProcAddress(m_data->m_hMapi, "MAPILogon");
            m_data->m_lpfnMAPILogoff = (LPMAPILOGOFF) GetProcAddress(m_data->m_hMapi, "MAPILogoff");
            m_data->m_lpfnMAPISendMail = (LPMAPISENDMAIL) GetProcAddress(m_data->m_hMapi, "MAPISendMail");
            m_data->m_lpfnMAPIResolveName = (LPMAPIRESOLVENAME) GetProcAddress(m_data->m_hMapi, "MAPIResolveName");
            m_data->m_lpfnMAPIFreeBuffer = (LPMAPIFREEBUFFER) GetProcAddress(m_data->m_hMapi, "MAPIFreeBuffer");
            
            //If any of the functions are not installed then fail the load
            if (m_data->m_lpfnMAPILogon == NULL ||
                m_data->m_lpfnMAPILogoff == NULL ||
                m_data->m_lpfnMAPISendMail == NULL ||
                m_data->m_lpfnMAPIResolveName == NULL ||
                m_data->m_lpfnMAPIFreeBuffer == NULL)
            {
                wxLogDebug(_T("Failed to get one of the functions pointer in MAPI32.DLL\n"));
                Deinitialise();
            }
        }
    }
    else
        wxLogDebug(_T("Mapi is not installed on this computer\n"));
}

void wxMapiSession::Deinitialise()
{
    if (m_data->m_hMapi)
    {
        //Unload the MAPI dll and reset the function pointers to NULL
        FreeLibrary(m_data->m_hMapi);
        m_data->m_hMapi = NULL;
        m_data->m_lpfnMAPILogon = NULL;
        m_data->m_lpfnMAPILogoff = NULL;
        m_data->m_lpfnMAPISendMail = NULL;
        m_data->m_lpfnMAPIResolveName = NULL;
        m_data->m_lpfnMAPIFreeBuffer = NULL;
    }
}

bool wxMapiSession::Logon(const wxString& sProfileName, const wxString& sPassword, wxWindow* pParentWnd)
{
    wxASSERT(MapiInstalled()); //MAPI must be installed
    wxASSERT(m_data->m_lpfnMAPILogon); //Function pointer must be valid
    
    //Initialise the function return value
    bool bSuccess = FALSE;
    
    //Just in case we are already logged in
    Logoff();
    
    //Setup the ascii versions of the profile name and password
    int nProfileLength = sProfileName.Length();
    int nPasswordLength = sPassword.Length();
    
    LPSTR pszProfileName = NULL;
    LPSTR pszPassword = NULL;
    wxCharBuffer cbProfile(1),cbPassword(1);
    if (nProfileLength)
    {
//        pszProfileName = T2A((LPTSTR) (LPCTSTR) sProfileName);
//        pszPassword = T2A((LPTSTR) (LPCTSTR) sPassword);
#ifndef UNICODE
        pszProfileName = (LPSTR) sProfileName.c_str();
        pszPassword = (LPSTR) sPassword.c_str();
#else
        cbProfile = sProfileName.mb_str();
        cbPassword = sPassword.mb_str();
        pszProfileName = cbProfile.data();
        pszPassword = cbPassword.data();
#endif
    }
    
    //Setup the flags & UIParam parameters used in the MapiLogon call
    FLAGS flags = 0;
    ULONG nUIParam = 0;
    if (nProfileLength == 0)
    {
        //No profile name given, then we must interactively request a profile name
        if (pParentWnd)
        {
            nUIParam = (ULONG) (HWND) pParentWnd->GetHWND();
            flags |= MAPI_LOGON_UI;
        }
        else
        {
            //No window given, just use the main window of the app as the parent window
            if (wxTheApp->GetTopWindow())
            {
                nUIParam = (ULONG) (HWND) wxTheApp->GetTopWindow()->GetHWND();
                flags |= MAPI_LOGON_UI;
            }
        }
    }
    
    //First try to acquire a new MAPI session using the supplied settings using the MAPILogon functio
    ULONG nError = m_data->m_lpfnMAPILogon(nUIParam, pszProfileName, pszPassword, flags | MAPI_NEW_SESSION, 0, &m_data->m_hSession);
    if (nError != SUCCESS_SUCCESS && nError != MAPI_E_USER_ABORT)
    {
        //Failed to create a create mapi session, try to acquire a shared mapi session
        wxLogDebug(_T("Failed to logon to MAPI using a new session, trying to acquire a shared one\n"));
        nError = m_data->m_lpfnMAPILogon(nUIParam, NULL, NULL, 0, 0, &m_data->m_hSession);
        if (nError == SUCCESS_SUCCESS)
        {
            m_data->m_nLastError = SUCCESS_SUCCESS;
            bSuccess = TRUE;
        }
        else
        {
            wxLogDebug(_T("Failed to logon to MAPI using a shared session, Error:%d\n"), nError);
            m_data->m_nLastError = nError;
        }
    }
    else if (nError == SUCCESS_SUCCESS)
    {
        m_data->m_nLastError = SUCCESS_SUCCESS;
        bSuccess = TRUE;
    }
    
    return bSuccess;
}

bool wxMapiSession::LoggedOn() const
{
    return (m_data->m_hSession != 0);
}

bool wxMapiSession::MapiInstalled() const
{
    return (m_data->m_hMapi != NULL);
}

bool wxMapiSession::Logoff()
{
    wxASSERT(MapiInstalled()); //MAPI must be installed
    wxASSERT(m_data->m_lpfnMAPILogoff); //Function pointer must be valid
    
    //Initialise the function return value
    bool bSuccess = FALSE;
    
    if (m_data->m_hSession)
    {
        //Call the MAPILogoff function
        ULONG nError = m_data->m_lpfnMAPILogoff(m_data->m_hSession, 0, 0, 0); 
        if (nError != SUCCESS_SUCCESS)
        {
            wxLogDebug(_T("Failed in call to MapiLogoff, Error:%d"), nError);
            m_data->m_nLastError = nError;
            bSuccess = TRUE;
        }
        else
        {
            m_data->m_nLastError = SUCCESS_SUCCESS;
            bSuccess = TRUE;
        }
        m_data->m_hSession = 0;
    }
    
    return bSuccess;
}

bool wxMapiSession::Resolve(const wxString& sName, void* lppRecip1)
{
    lpMapiRecipDesc* lppRecip = (lpMapiRecipDesc*) lppRecip1;
    
    wxASSERT(MapiInstalled()); //MAPI must be installed
    wxASSERT(m_data->m_lpfnMAPIResolveName); //Function pointer must be valid
    wxASSERT(LoggedOn()); //Must be logged on to MAPI
    wxASSERT(m_data->m_hSession); //MAPI session handle must be valid
    
    //Call the MAPIResolveName function
//    LPSTR lpszAsciiName = T2A((LPTSTR) (LPCTSTR) sName);
#ifndef UNICODE
    LPSTR lpszAsciiName = (LPSTR) sName.c_str();
#else
    wxCharBuffer cbName(1);
    cbName = sName.mb_str();
    LPSTR lpszAsciiName = cbName.data();
#endif
    ULONG nError = m_data->m_lpfnMAPIResolveName(m_data->m_hSession, 0, lpszAsciiName, 0, 0, lppRecip);
    if (nError != SUCCESS_SUCCESS)
    {
        wxLogDebug(_T("Failed to resolve the name: %s, Error:%d\n"), sName, nError);
        m_data->m_nLastError = nError;
    }
    
    return (nError == SUCCESS_SUCCESS);
}

bool wxMapiSession::Send(wxMailMessage& message)
{
    wxASSERT(MapiInstalled()); //MAPI must be installed
    wxASSERT(m_data->m_lpfnMAPISendMail); //Function pointer must be valid
    wxASSERT(m_data->m_lpfnMAPIFreeBuffer); //Function pointer must be valid
    wxASSERT(LoggedOn()); //Must be logged on to MAPI
    wxASSERT(m_data->m_hSession); //MAPI session handle must be valid
    
    //Initialise the function return value
    bool bSuccess = FALSE;  
    
    //Create the MapiMessage structure to match the message parameter send into us
    MapiMessage mapiMessage;
    ZeroMemory(&mapiMessage, sizeof(mapiMessage));
#ifndef UNICODE
    mapiMessage.lpszSubject = (LPSTR) message.m_subject.c_str();
    mapiMessage.lpszNoteText = (LPSTR) message.m_body.c_str();
#else
    wxCharBuffer cbSubject(1),cbBody(1),cbOriginator(1);
    cbSubject = message.m_subject.mb_str();
    cbBody = message.m_body.mb_str();
    mapiMessage.lpszSubject = cbSubject.data();
    mapiMessage.lpszNoteText = cbBody.data();
#endif
//    mapiMessage.lpszSubject = T2A((LPTSTR) (LPCTSTR) message.m_subject);
//    mapiMessage.lpszNoteText = T2A((LPTSTR) (LPCTSTR) message.m_body);
    mapiMessage.nRecipCount = message.m_to.GetCount() + message.m_cc.GetCount() + message.m_bcc.GetCount();
    wxASSERT(mapiMessage.nRecipCount); //Must have at least 1 recipient!
    
    //Allocate the recipients array
    mapiMessage.lpRecips = new MapiRecipDesc[mapiMessage.nRecipCount];

    // If we have a 'From' field, use it
    if (!message.m_from.IsEmpty())
    {
        mapiMessage.lpOriginator = new MapiRecipDesc;
        ZeroMemory(mapiMessage.lpOriginator, sizeof(MapiRecipDesc));

        mapiMessage.lpOriginator->ulRecipClass = MAPI_ORIG;
        // TODO Do we have to call Resolve?
#ifndef UNICODE
        mapiMessage.lpOriginator->lpszName = (LPSTR) message.m_from.c_str();
#else
        cbOriginator = message.m_from.mb_str();
        mapiMessage.lpOriginator->lpszName = cbOriginator.data();
#endif
    }
    
    //Setup the "To" recipients
    int nRecipIndex = 0;
    int nToSize = message.m_to.GetCount();
    int i;
    for (i=0; i<nToSize; i++)
    {
        MapiRecipDesc& recip = mapiMessage.lpRecips[nRecipIndex];
        ZeroMemory(&recip, sizeof(MapiRecipDesc));
        recip.ulRecipClass = MAPI_TO;
        wxString& sName = message.m_to[i];

        //Try to resolve the name
        lpMapiRecipDesc lpTempRecip;  
        if (Resolve(sName, (void*) &lpTempRecip))
        {
            //Resolve worked, put the resolved name back into the sName
            sName = wxString(lpTempRecip->lpszName,wxConvCurrent);
            
            //Don't forget to free up the memory MAPI allocated for us
            m_data->m_lpfnMAPIFreeBuffer(lpTempRecip);
        }
        //recip.lpszName = T2A((LPTSTR) (LPCTSTR) sName);
#ifndef UNICODE
        recip.lpszName = (LPSTR) sName.c_str();
#else
        recip.lpszName = sName.mb_str().release();
#endif
        
        ++nRecipIndex;
    }
    
    //Setup the "CC" recipients
    int nCCSize = message.m_cc.GetCount();
    for (i=0; i<nCCSize; i++)
    {
        MapiRecipDesc& recip = mapiMessage.lpRecips[nRecipIndex];
        ZeroMemory(&recip, sizeof(MapiRecipDesc));
        recip.ulRecipClass = MAPI_CC;
        wxString& sName = message.m_cc[i];

        //Try to resolve the name
        lpMapiRecipDesc lpTempRecip;  
        if (Resolve(sName, (void*) &lpTempRecip))
        {
            //Resolve worked, put the resolved name back into the sName
            sName = wxString(lpTempRecip->lpszName,wxConvCurrent);
            
            //Don't forget to free up the memory MAPI allocated for us
            m_data->m_lpfnMAPIFreeBuffer(lpTempRecip);
        }
        //recip.lpszName = T2A((LPTSTR) (LPCTSTR) sName);
#ifndef UNICODE
        recip.lpszName = (LPSTR) sName.c_str();
#else
        recip.lpszName = sName.mb_str().release();
#endif
        
        ++nRecipIndex;
    }
    
    //Setup the "BCC" recipients
    int nBCCSize = message.m_bcc.GetCount();
    for (i=0; i<nBCCSize; i++)
    {
        MapiRecipDesc& recip = mapiMessage.lpRecips[nRecipIndex];
        ZeroMemory(&recip, sizeof(MapiRecipDesc));
        recip.ulRecipClass = MAPI_BCC;
        wxString& sName = message.m_bcc[i];

        //Try to resolve the name
        lpMapiRecipDesc lpTempRecip;  
        if (Resolve(sName, (void*) &lpTempRecip))
        {
            //Resolve worked, put the resolved name back into the sName
            sName = wxString(lpTempRecip->lpszName,wxConvCurrent);
            
            //Don't forget to free up the memory MAPI allocated for us
            m_data->m_lpfnMAPIFreeBuffer(lpTempRecip);
        }
        //recip.lpszName = T2A((LPTSTR) (LPCTSTR) sName);
#ifndef UNICODE
        recip.lpszName = (LPSTR) sName.c_str();
#else
        recip.lpszName = sName.mb_str().release();
#endif
        
        ++nRecipIndex;
    }
    
    //Setup the attachments 
    int nAttachmentSize = message.m_attachments.GetCount();
    int nTitleSize = message.m_attachmentTitles.GetCount();
    if (nTitleSize)
    { 
        wxASSERT(nTitleSize == nAttachmentSize); //If you are going to set the attachment titles then you must set 
        //the attachment title for each attachment
    }
    if (nAttachmentSize)
    {
        mapiMessage.nFileCount = nAttachmentSize;
        mapiMessage.lpFiles = new MapiFileDesc[nAttachmentSize];
        for (i=0; i<nAttachmentSize; i++)
        {
            MapiFileDesc& file = mapiMessage.lpFiles[i];
            ZeroMemory(&file, sizeof(MapiFileDesc));
            file.nPosition = 0xFFFFFFFF;
            wxString& sFilename = message.m_attachments[i];
            //file.lpszPathName = T2A((LPTSTR) (LPCTSTR) sFilename);

#ifndef UNICODE
            file.lpszPathName = (LPSTR) sFilename.c_str();
#else
            file.lpszPathName = sFilename.mb_str().release();
#endif
            //file.lpszFileName = file.lpszPathName;
            file.lpszFileName = NULL;

            if (nTitleSize && !message.m_attachmentTitles[i].IsEmpty())
            {
                wxString& sTitle = message.m_attachmentTitles[i];
                //file.lpszFileName = T2A((LPTSTR) (LPCTSTR) sTitle);
#ifndef UNICODE
                file.lpszFileName = (LPSTR) sTitle.c_str();
#else
                file.lpszFileName = sTitle.mb_str().release();
#endif
            }
        }
    }
    
    //Do the actual send using MAPISendMail
    ULONG nError = m_data->m_lpfnMAPISendMail(m_data->m_hSession, 0, &mapiMessage, MAPI_DIALOG, 0);
    if (nError == SUCCESS_SUCCESS)
    {
        bSuccess = TRUE;
        m_data->m_nLastError = SUCCESS_SUCCESS;
    }
    else
    {
        wxLogDebug(_T("Failed to send mail message, Error:%d\n"), nError);
        m_data->m_nLastError = nError;
    }
    
    //Tidy up the Attachements
    if (nAttachmentSize)
    {
#ifdef UNICODE
        for (int i = 0;i < nAttachmentSize;i++)
        {
            free(mapiMessage.lpFiles[i].lpszPathName);
            free(mapiMessage.lpFiles[i].lpszFileName);
        }
#endif
        delete [] mapiMessage.lpFiles;
    }
    
    //Free up the Recipients and Originator memory
#ifdef UNICODE
    for (int i = 0;i < nRecipIndex;i++)
        free(mapiMessage.lpRecips[i].lpszName);
#endif
    delete [] mapiMessage.lpRecips;

    delete mapiMessage.lpOriginator;
    
    return bSuccess;
}

long wxMapiSession::GetLastError() const
{
    return m_data->m_nLastError;
}
Commit	Line	Data
decb3a6a JS	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: smapi.cpp
	3	// Purpose: Simple MAPI classes
	4	// Author: PJ Naughter <pjna@naughter.com>
	5	// Modified by: Julian Smart
	6	// Created: 2001-08-21
	7	// RCS-ID: $Id$
	8	// Copyright: (c) PJ Naughter
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "smapi.h"
	14	#endif
	15
	16	// For compilers that support precompilation, includes "wx/wx.h".
	17	#include "wx/wxprec.h"
	18
	19	#ifdef __BORLANDC__
	20	#pragma hdrstop
	21	#endif
	22
	23	#ifndef WX_PRECOMP
	24	#include "wx/wx.h"
	25	#endif
	26
	27	#include "wx/string.h"
	28	#include "wx/msw/private.h"
	29
	30	#include <mapi.h>
	31
	32	#include "wx/net/smapi.h"
	33
15e8daec	34	class WXDLLIMPEXP_NETUTILS wxMapiData
decb3a6a JS	35	{
	36	public:
	37	wxMapiData()
	38	{
	39	m_hSession = 0;
	40	m_nLastError = 0;
	41	m_hMapi = NULL;
	42	m_lpfnMAPILogon = NULL;
	43	m_lpfnMAPILogoff = NULL;
	44	m_lpfnMAPISendMail = NULL;
	45	m_lpfnMAPIResolveName = NULL;
	46	m_lpfnMAPIFreeBuffer = NULL;
	47	}
	48
	49	//Data
	50	LHANDLE m_hSession; //Mapi Session handle
	51	long m_nLastError; //Last Mapi error value
	52	HINSTANCE m_hMapi; //Instance handle of the MAPI dll
	53	LPMAPILOGON m_lpfnMAPILogon; //MAPILogon function pointer
	54	LPMAPILOGOFF m_lpfnMAPILogoff; //MAPILogoff function pointer
	55	LPMAPISENDMAIL m_lpfnMAPISendMail; //MAPISendMail function pointer
	56	LPMAPIRESOLVENAME m_lpfnMAPIResolveName; //MAPIResolveName function pointer
	57	LPMAPIFREEBUFFER m_lpfnMAPIFreeBuffer; //MAPIFreeBuffer function pointer
	58	};
	59
	60
	61	////////////////////////////////// Implementation /////////////////////////////
	62
	63	wxMapiSession::wxMapiSession()
	64	{
	65	m_data = new wxMapiData;
	66
	67	Initialise();
	68	}
	69
	70	wxMapiSession::~wxMapiSession()
	71	{
	72	//Logoff if logged on
	73	Logoff();
	74
	75	//Unload the MAPI dll
	76	Deinitialise();
	77
	78	delete m_data;
	79	}
	80
	81	void wxMapiSession::Initialise()
	82	{
	83	//First make sure the "WIN.INI" entry for MAPI is present aswell
	84	//as the MAPI32 dll being present on the system
	85	bool bMapiInstalled = (GetProfileInt(_T("MAIL"), _T("MAPI"), 0) != 0) &&
	86	(SearchPath(NULL, _T("MAPI32.DLL"), NULL, 0, NULL, NULL) != 0);
	87
	88	if (bMapiInstalled)
	89	{
	90	//Load up the MAPI dll and get the function pointers we are interested in
	91	m_data->m_hMapi = ::LoadLibrary(_T("MAPI32.DLL"));
	92	if (m_data->m_hMapi)
	93	{
	94	m_data->m_lpfnMAPILogon = (LPMAPILOGON) GetProcAddress(m_data->m_hMapi, "MAPILogon");
	95	m_data->m_lpfnMAPILogoff = (LPMAPILOGOFF) GetProcAddress(m_data->m_hMapi, "MAPILogoff");
	96	m_data->m_lpfnMAPISendMail = (LPMAPISENDMAIL) GetProcAddress(m_data->m_hMapi, "MAPISendMail");
	97	m_data->m_lpfnMAPIResolveName = (LPMAPIRESOLVENAME) GetProcAddress(m_data->m_hMapi, "MAPIResolveName");
	98	m_data->m_lpfnMAPIFreeBuffer = (LPMAPIFREEBUFFER) GetProcAddress(m_data->m_hMapi, "MAPIFreeBuffer");
99
100	//If any of the functions are not installed then fail the load
101	if (m_data->m_lpfnMAPILogon == NULL \|\|
102	m_data->m_lpfnMAPILogoff == NULL \|\|
103	m_data->m_lpfnMAPISendMail == NULL \|\|
104	m_data->m_lpfnMAPIResolveName == NULL \|\|
105	m_data->m_lpfnMAPIFreeBuffer == NULL)
106	{
107	wxLogDebug(_T("Failed to get one of the functions pointer in MAPI32.DLL\n"));
108	Deinitialise();
109	}
110	}
111	}
112	else
113	wxLogDebug(_T("Mapi is not installed on this computer\n"));
114	}
115
116	void wxMapiSession::Deinitialise()
117	{
118	if (m_data->m_hMapi)
119	{
120	//Unload the MAPI dll and reset the function pointers to NULL
121	FreeLibrary(m_data->m_hMapi);
122	m_data->m_hMapi = NULL;
123	m_data->m_lpfnMAPILogon = NULL;
124	m_data->m_lpfnMAPILogoff = NULL;
125	m_data->m_lpfnMAPISendMail = NULL;
126	m_data->m_lpfnMAPIResolveName = NULL;
127	m_data->m_lpfnMAPIFreeBuffer = NULL;
128	}
129	}
130
131	bool wxMapiSession::Logon(const wxString& sProfileName, const wxString& sPassword, wxWindow* pParentWnd)
132	{
133	wxASSERT(MapiInstalled()); //MAPI must be installed
134	wxASSERT(m_data->m_lpfnMAPILogon); //Function pointer must be valid
135
136	//Initialise the function return value
137	bool bSuccess = FALSE;
138
139	//Just in case we are already logged in
140	Logoff();
141
142	//Setup the ascii versions of the profile name and password
143	int nProfileLength = sProfileName.Length();
144	int nPasswordLength = sPassword.Length();
145
146	LPSTR pszProfileName = NULL;
147	LPSTR pszPassword = NULL;
5a618a14	148	wxCharBuffer cbProfile(1),cbPassword(1);
decb3a6a JS	149	if (nProfileLength)
	150	{
	151	// pszProfileName = T2A((LPTSTR) (LPCTSTR) sProfileName);
	152	// pszPassword = T2A((LPTSTR) (LPCTSTR) sPassword);
5a618a14	153	#ifndef UNICODE
decb3a6a JS	154	pszProfileName = (LPSTR) sProfileName.c_str();
decb3a6a JS	155	pszPassword = (LPSTR) sPassword.c_str();
5a618a14 JS	156	#else
	157	cbProfile = sProfileName.mb_str();
	158	cbPassword = sPassword.mb_str();
	159	pszProfileName = cbProfile.data();
	160	pszPassword = cbPassword.data();
	161	#endif
decb3a6a JS	162	}
	163
	164	//Setup the flags & UIParam parameters used in the MapiLogon call
	165	FLAGS flags = 0;
	166	ULONG nUIParam = 0;
	167	if (nProfileLength == 0)
	168	{
	169	//No profile name given, then we must interactively request a profile name
	170	if (pParentWnd)
	171	{
	172	nUIParam = (ULONG) (HWND) pParentWnd->GetHWND();
	173	flags \|= MAPI_LOGON_UI;
	174	}
	175	else
	176	{
	177	//No window given, just use the main window of the app as the parent window
	178	if (wxTheApp->GetTopWindow())
	179	{
	180	nUIParam = (ULONG) (HWND) wxTheApp->GetTopWindow()->GetHWND();
	181	flags \|= MAPI_LOGON_UI;
	182	}
	183	}
	184	}
	185
	186	//First try to acquire a new MAPI session using the supplied settings using the MAPILogon functio
	187	ULONG nError = m_data->m_lpfnMAPILogon(nUIParam, pszProfileName, pszPassword, flags \| MAPI_NEW_SESSION, 0, &m_data->m_hSession);
	188	if (nError != SUCCESS_SUCCESS && nError != MAPI_E_USER_ABORT)
	189	{
	190	//Failed to create a create mapi session, try to acquire a shared mapi session
	191	wxLogDebug(_T("Failed to logon to MAPI using a new session, trying to acquire a shared one\n"));
	192	nError = m_data->m_lpfnMAPILogon(nUIParam, NULL, NULL, 0, 0, &m_data->m_hSession);
	193	if (nError == SUCCESS_SUCCESS)
	194	{
	195	m_data->m_nLastError = SUCCESS_SUCCESS;
	196	bSuccess = TRUE;
	197	}
	198	else
	199	{
	200	wxLogDebug(_T("Failed to logon to MAPI using a shared session, Error:%d\n"), nError);
	201	m_data->m_nLastError = nError;
	202	}
	203	}
	204	else if (nError == SUCCESS_SUCCESS)
	205	{
	206	m_data->m_nLastError = SUCCESS_SUCCESS;
	207	bSuccess = TRUE;
	208	}
	209
	210	return bSuccess;
	211	}
	212
	213	bool wxMapiSession::LoggedOn() const
	214	{
	215	return (m_data->m_hSession != 0);
	216	}
	217
	218	bool wxMapiSession::MapiInstalled() const
	219	{
	220	return (m_data->m_hMapi != NULL);
	221	}
	222
	223	bool wxMapiSession::Logoff()
	224	{
	225	wxASSERT(MapiInstalled()); //MAPI must be installed
226	wxASSERT(m_data->m_lpfnMAPILogoff); //Function pointer must be valid
227
228	//Initialise the function return value
229	bool bSuccess = FALSE;
230
231	if (m_data->m_hSession)
232	{
233	//Call the MAPILogoff function
234	ULONG nError = m_data->m_lpfnMAPILogoff(m_data->m_hSession, 0, 0, 0);
235	if (nError != SUCCESS_SUCCESS)
236	{
237	wxLogDebug(_T("Failed in call to MapiLogoff, Error:%d"), nError);
238	m_data->m_nLastError = nError;
239	bSuccess = TRUE;
240	}
241	else
242	{
243	m_data->m_nLastError = SUCCESS_SUCCESS;
244	bSuccess = TRUE;
245	}
246	m_data->m_hSession = 0;
247	}
248
249	return bSuccess;
250	}
251
252	bool wxMapiSession::Resolve(const wxString& sName, void* lppRecip1)
253	{
254	lpMapiRecipDesc* lppRecip = (lpMapiRecipDesc*) lppRecip1;
255
256	wxASSERT(MapiInstalled()); //MAPI must be installed
257	wxASSERT(m_data->m_lpfnMAPIResolveName); //Function pointer must be valid
258	wxASSERT(LoggedOn()); //Must be logged on to MAPI
259	wxASSERT(m_data->m_hSession); //MAPI session handle must be valid
260
261	//Call the MAPIResolveName function
262	// LPSTR lpszAsciiName = T2A((LPTSTR) (LPCTSTR) sName);
5a618a14	263	#ifndef UNICODE
decb3a6a	264	LPSTR lpszAsciiName = (LPSTR) sName.c_str();
5a618a14 JS	265	#else
	266	wxCharBuffer cbName(1);
	267	cbName = sName.mb_str();
	268	LPSTR lpszAsciiName = cbName.data();
	269	#endif
decb3a6a JS	270	ULONG nError = m_data->m_lpfnMAPIResolveName(m_data->m_hSession, 0, lpszAsciiName, 0, 0, lppRecip);
	271	if (nError != SUCCESS_SUCCESS)
	272	{
	273	wxLogDebug(_T("Failed to resolve the name: %s, Error:%d\n"), sName, nError);
	274	m_data->m_nLastError = nError;
	275	}
	276
	277	return (nError == SUCCESS_SUCCESS);
	278	}
	279
	280	bool wxMapiSession::Send(wxMailMessage& message)
	281	{
	282	wxASSERT(MapiInstalled()); //MAPI must be installed
	283	wxASSERT(m_data->m_lpfnMAPISendMail); //Function pointer must be valid
	284	wxASSERT(m_data->m_lpfnMAPIFreeBuffer); //Function pointer must be valid
	285	wxASSERT(LoggedOn()); //Must be logged on to MAPI
	286	wxASSERT(m_data->m_hSession); //MAPI session handle must be valid
	287
	288	//Initialise the function return value
	289	bool bSuccess = FALSE;
	290
	291	//Create the MapiMessage structure to match the message parameter send into us
	292	MapiMessage mapiMessage;
	293	ZeroMemory(&mapiMessage, sizeof(mapiMessage));
5a618a14	294	#ifndef UNICODE
decb3a6a JS	295	mapiMessage.lpszSubject = (LPSTR) message.m_subject.c_str();
decb3a6a JS	296	mapiMessage.lpszNoteText = (LPSTR) message.m_body.c_str();
5a618a14 JS	297	#else
	298	wxCharBuffer cbSubject(1),cbBody(1),cbOriginator(1);
	299	cbSubject = message.m_subject.mb_str();
	300	cbBody = message.m_body.mb_str();
	301	mapiMessage.lpszSubject = cbSubject.data();
	302	mapiMessage.lpszNoteText = cbBody.data();
	303	#endif
decb3a6a JS	304	// mapiMessage.lpszSubject = T2A((LPTSTR) (LPCTSTR) message.m_subject);
	305	// mapiMessage.lpszNoteText = T2A((LPTSTR) (LPCTSTR) message.m_body);
	306	mapiMessage.nRecipCount = message.m_to.GetCount() + message.m_cc.GetCount() + message.m_bcc.GetCount();
	307	wxASSERT(mapiMessage.nRecipCount); //Must have at least 1 recipient!
	308
	309	//Allocate the recipients array
	310	mapiMessage.lpRecips = new MapiRecipDesc[mapiMessage.nRecipCount];
a23c0047 JS	311
	312	// If we have a 'From' field, use it
	313	if (!message.m_from.IsEmpty())
	314	{
	315	mapiMessage.lpOriginator = new MapiRecipDesc;
	316	ZeroMemory(mapiMessage.lpOriginator, sizeof(MapiRecipDesc));
	317
	318	mapiMessage.lpOriginator->ulRecipClass = MAPI_ORIG;
	319	// TODO Do we have to call Resolve?
5a618a14	320	#ifndef UNICODE
a23c0047	321	mapiMessage.lpOriginator->lpszName = (LPSTR) message.m_from.c_str();
5a618a14 JS	322	#else
	323	cbOriginator = message.m_from.mb_str();
	324	mapiMessage.lpOriginator->lpszName = cbOriginator.data();
	325	#endif
a23c0047	326	}
decb3a6a JS	327
	328	//Setup the "To" recipients
	329	int nRecipIndex = 0;
	330	int nToSize = message.m_to.GetCount();
cceb71da MB	331	int i;
cceb71da MB	332	for (i=0; i<nToSize; i++)
decb3a6a JS	333	{
	334	MapiRecipDesc& recip = mapiMessage.lpRecips[nRecipIndex];
	335	ZeroMemory(&recip, sizeof(MapiRecipDesc));
	336	recip.ulRecipClass = MAPI_TO;
	337	wxString& sName = message.m_to[i];
	338
	339	//Try to resolve the name
	340	lpMapiRecipDesc lpTempRecip;
	341	if (Resolve(sName, (void*) &lpTempRecip))
	342	{
	343	//Resolve worked, put the resolved name back into the sName
5a618a14	344	sName = wxString(lpTempRecip->lpszName,wxConvCurrent);
decb3a6a JS	345
	346	//Don't forget to free up the memory MAPI allocated for us
	347	m_data->m_lpfnMAPIFreeBuffer(lpTempRecip);
	348	}
	349	//recip.lpszName = T2A((LPTSTR) (LPCTSTR) sName);
5a618a14	350	#ifndef UNICODE
decb3a6a	351	recip.lpszName = (LPSTR) sName.c_str();
5a618a14 JS	352	#else
	353	recip.lpszName = sName.mb_str().release();
	354	#endif
decb3a6a JS	355
	356	++nRecipIndex;
	357	}
	358
	359	//Setup the "CC" recipients
	360	int nCCSize = message.m_cc.GetCount();
	361	for (i=0; i<nCCSize; i++)
	362	{
	363	MapiRecipDesc& recip = mapiMessage.lpRecips[nRecipIndex];
	364	ZeroMemory(&recip, sizeof(MapiRecipDesc));
	365	recip.ulRecipClass = MAPI_CC;
	366	wxString& sName = message.m_cc[i];
	367
	368	//Try to resolve the name
	369	lpMapiRecipDesc lpTempRecip;
	370	if (Resolve(sName, (void*) &lpTempRecip))
	371	{
	372	//Resolve worked, put the resolved name back into the sName
5a618a14	373	sName = wxString(lpTempRecip->lpszName,wxConvCurrent);
decb3a6a JS	374
	375	//Don't forget to free up the memory MAPI allocated for us
	376	m_data->m_lpfnMAPIFreeBuffer(lpTempRecip);
	377	}
	378	//recip.lpszName = T2A((LPTSTR) (LPCTSTR) sName);
5a618a14	379	#ifndef UNICODE
decb3a6a	380	recip.lpszName = (LPSTR) sName.c_str();
5a618a14 JS	381	#else
	382	recip.lpszName = sName.mb_str().release();
	383	#endif
decb3a6a JS	384
	385	++nRecipIndex;
	386	}
	387
	388	//Setup the "BCC" recipients
	389	int nBCCSize = message.m_bcc.GetCount();
	390	for (i=0; i<nBCCSize; i++)
	391	{
	392	MapiRecipDesc& recip = mapiMessage.lpRecips[nRecipIndex];
	393	ZeroMemory(&recip, sizeof(MapiRecipDesc));
	394	recip.ulRecipClass = MAPI_BCC;
	395	wxString& sName = message.m_bcc[i];
	396
	397	//Try to resolve the name
	398	lpMapiRecipDesc lpTempRecip;
	399	if (Resolve(sName, (void*) &lpTempRecip))
	400	{
	401	//Resolve worked, put the resolved name back into the sName
5a618a14	402	sName = wxString(lpTempRecip->lpszName,wxConvCurrent);
decb3a6a JS	403
	404	//Don't forget to free up the memory MAPI allocated for us
	405	m_data->m_lpfnMAPIFreeBuffer(lpTempRecip);
	406	}
	407	//recip.lpszName = T2A((LPTSTR) (LPCTSTR) sName);
5a618a14	408	#ifndef UNICODE
decb3a6a	409	recip.lpszName = (LPSTR) sName.c_str();
5a618a14 JS	410	#else
	411	recip.lpszName = sName.mb_str().release();
	412	#endif
decb3a6a JS	413
	414	++nRecipIndex;
	415	}
	416
	417	//Setup the attachments
	418	int nAttachmentSize = message.m_attachments.GetCount();
	419	int nTitleSize = message.m_attachmentTitles.GetCount();
	420	if (nTitleSize)
	421	{
	422	wxASSERT(nTitleSize == nAttachmentSize); //If you are going to set the attachment titles then you must set
	423	//the attachment title for each attachment
	424	}
	425	if (nAttachmentSize)
	426	{
	427	mapiMessage.nFileCount = nAttachmentSize;
	428	mapiMessage.lpFiles = new MapiFileDesc[nAttachmentSize];
	429	for (i=0; i<nAttachmentSize; i++)
	430	{
	431	MapiFileDesc& file = mapiMessage.lpFiles[i];
	432	ZeroMemory(&file, sizeof(MapiFileDesc));
	433	file.nPosition = 0xFFFFFFFF;
	434	wxString& sFilename = message.m_attachments[i];
	435	//file.lpszPathName = T2A((LPTSTR) (LPCTSTR) sFilename);
	436
5a618a14	437	#ifndef UNICODE
decb3a6a	438	file.lpszPathName = (LPSTR) sFilename.c_str();
5a618a14 JS	439	#else
	440	file.lpszPathName = sFilename.mb_str().release();
	441	#endif
decb3a6a JS	442	//file.lpszFileName = file.lpszPathName;
	443	file.lpszFileName = NULL;
	444
	445	if (nTitleSize && !message.m_attachmentTitles[i].IsEmpty())
	446	{
	447	wxString& sTitle = message.m_attachmentTitles[i];
	448	//file.lpszFileName = T2A((LPTSTR) (LPCTSTR) sTitle);
5a618a14	449	#ifndef UNICODE
decb3a6a	450	file.lpszFileName = (LPSTR) sTitle.c_str();
5a618a14 JS	451	#else
	452	file.lpszFileName = sTitle.mb_str().release();
	453	#endif
decb3a6a JS	454	}
	455	}
	456	}
	457
	458	//Do the actual send using MAPISendMail
	459	ULONG nError = m_data->m_lpfnMAPISendMail(m_data->m_hSession, 0, &mapiMessage, MAPI_DIALOG, 0);
	460	if (nError == SUCCESS_SUCCESS)
	461	{
	462	bSuccess = TRUE;
	463	m_data->m_nLastError = SUCCESS_SUCCESS;
	464	}
	465	else
	466	{
	467	wxLogDebug(_T("Failed to send mail message, Error:%d\n"), nError);
	468	m_data->m_nLastError = nError;
	469	}
	470
	471	//Tidy up the Attachements
	472	if (nAttachmentSize)
5a618a14 JS	473	{
	474	#ifdef UNICODE
	475	for (int i = 0;i < nAttachmentSize;i++)
	476	{
	477	free(mapiMessage.lpFiles[i].lpszPathName);
	478	free(mapiMessage.lpFiles[i].lpszFileName);
	479	}
	480	#endif
decb3a6a	481	delete [] mapiMessage.lpFiles;
5a618a14	482	}
decb3a6a	483
a23c0047	484	//Free up the Recipients and Originator memory
5a618a14 JS	485	#ifdef UNICODE
	486	for (int i = 0;i < nRecipIndex;i++)
	487	free(mapiMessage.lpRecips[i].lpszName);
	488	#endif
decb3a6a	489	delete [] mapiMessage.lpRecips;
5a618a14	490
a23c0047	491	delete mapiMessage.lpOriginator;
decb3a6a JS	492
	493	return bSuccess;
	494	}
	495
	496	long wxMapiSession::GetLastError() const
	497	{
	498	return m_data->m_nLastError;
	499	}