Club Builder

[_Leo]

// Añadir: #include <MAPI.HPP>

TMapiMessage MapiMessage;
TMapiRecipDesc MapiRecipDesc;
TMapiFileDesc MapiFileDesc;
Cardinal MError;

ZeroMemory(&MapiRecipDesc, sizeof(MapiRecipDesc));
MapiRecipDesc.ulRecipClass = MAPI_TO;
MapiRecipDesc.lpszName = "Nombre destinatario";
MapiRecipDesc.lpszAddress = "email@destinatario.com";

ZeroMemory(&MapiFileDesc, sizeof(MapiFileDesc));
MapiFileDesc.lpszPathName = "C:\\fichero.ext";

ZeroMemory(&MapiMessage, sizeof(MapiMessage));
MapiMessage.lpszSubject = "Titulo del mensaje";
MapiMessage.lpszNoteText = RichEdit1->Lines->Text.c_str();
MapiMessage.nRecipCount = 1;
MapiMessage.lpRecips = &MapiRecipDesc;
MapiMessage.nFileCount = 1;
MapiMessage.lpFiles = &MapiFileDesc;

MError = MapiSendMail(0, reinterpret_cast<unsigned int>(Application->Handle),
             MapiMessage, MAPI_DIALOG | MAPI_LOGON_UI | MAPI_NEW_SESSION, 0);

if (MError)
    ShowMessage("Error: No ha sido posible enviar el mensaje");

[SumSum]

Con este código no funcionaba el Windows Mail ni el envio de un segundo email.

Así que mirando y mirando finalmente he dado con este código donde se corrige.

///////
// MAPI functions
LPMAPILOGON m_MAPILogon;
LPMAPILOGOFF m_MAPILogoff;
LPMAPISENDMAIL m_MAPISendMail;

ULONG hSession;
HINSTANCE hlibMAPI;

hlibMAPI = LoadLibrary("mapi32.dll");
m_MAPILogon = ( LPMAPILOGON ) GetProcAddress( hlibMAPI, "MAPILogon" );
m_MAPILogoff = ( LPMAPILOGOFF ) GetProcAddress ( hlibMAPI, "MAPILogoff");
m_MAPISendMail = ( LPMAPISENDMAIL ) GetProcAddress ( hlibMAPI, "MAPISendMail");

///CREAR EL PDF A ADJUNTAR
AnsiString cDocumento = "Fra"+Datos->QTOTALESE->FieldByName("SERIE")->AsString+Datos->QTOTALESE->FieldByName("NUMERO")->AsString+".pdf";
TQRPDFDocumentFilter *fFiltro = new TQRPDFDocumentFilter(cDocumento);
FLFacturas2->QuickRep1->ExportToFilter(fFiltro);
delete fFiltro;
AnsiString cAdjunto = ExtractFilePath(Application->ExeName) + cDocumento;

///variables
TMapiMessage MapiMessage;
TMapiRecipDesc MapiRecipDesc;
TMapiFileDesc MapiFileDesc;
Cardinal MError;
HRESULT hRes;
PChar TEXTO;

////vaciar antes
ZeroMemory(&MapiRecipDesc, sizeof(MapiRecipDesc));
ZeroMemory(&MapiFileDesc, sizeof(MapiFileDesc));
ZeroMemory(&MapiMessage, sizeof(MapiMessage));


if (m_MAPILogon(0,NULL,NULL,0,0,&hSession) == SUCCESS_SUCCESS) //INICIO SESION
{
// A QUIEN (NOMBRE Y DIRECCION EMAIL)
MapiRecipDesc.ulRecipClass = MAPI_TO;
TEXTO = StrAlloc(Datos->QCLIENTES->FieldByName("EMPRESA")->AsString.Length()+1);
StrPCopy(TEXTO,Datos->QCLIENTES->FieldByName("EMPRESA")->AsString);
MapiRecipDesc.lpszName = TEXTO;
TEXTO = StrAlloc(Datos->QCLIENTES->FieldByName("EMAIL")->AsString.Length()+1);
StrPCopy(TEXTO,Datos->QCLIENTES->FieldByName("EMAIL")->AsString);
MapiRecipDesc.lpszAddress = TEXTO;
///ADJUNTO
MapiFileDesc.lpszPathName = cAdjunto.c_str();
//ASUNTO
MapiMessage.lpszSubject = "Envio de Factura";
//TEXTO MENSAJE
TEXTO= StrAlloc(DBMemo1->Text.Length()+1);
StrPCopy(TEXTO,DBMemo1->Text);
MapiMessage.lpszNoteText = TEXTO;

MapiMessage.nRecipCount = 1;
MapiMessage.lpRecips = &MapiRecipDesc;
MapiMessage.nFileCount = 1;
MapiMessage.lpFiles = &MapiFileDesc;
hRes = m_MAPISendMail (hSession, 0L, &MapiMessage, MAPI_DIALOG | MAPI_LOGON_UI | MAPI_NEW_SESSION,0L);
// hRes = m_MAPISendMail (hSession, 0L, &MapiMessage, MAPI_NEW_SESSION,0L);

if ( hRes == SUCCESS_SUCCESS )
{
// ENVIADO
ZeroMemory ( &MapiMessage, sizeof ( MapiMessage ) );
}
m_MAPILogoff(hSession,0,0,0); ///CIERRE SESION
}
else
ShowMessage("Error en el inicio");

FreeLibrary(hlibMAPI);
_________________
Asun