Guardar un correo electronio en disco con MAPI

[[cHackAll]]

mapi? que componente especificamente? o simplemente un "uses Mapi;" y si es así, me imagino que envias usando primero la API MAPILogon, y luego con la MAPISendMail... en tal caso tienes la estructura TMapiMessage que apunta al lpszNoteText a un texto que es el cuerpo que envías...

En tal caso puedes hacer lo siguiente (con APIs), al enviarse exitosamente:

Código Delphi [-]
var hFile, Dummy: Cardinal;
...
 hFile := CreateFile('sent007.msg', GENERIC_WRITE, 0, nil, CREATE_NEW, 0, 0);
 WriteFile(hFile, TMapiMessage.lpszNoteText^, StrLen(TMapiMessage.lpszNoteText), dummy, nil);
 CloseHandle(hFile);
...

Claro que TMapiMessage será el nombre de la estructura que utilices...

Espero sea lo que buscas, si no peganos un poco del código previo al evío del mail.
Un saludo!