🚀 go-pugleaf

My friend has the same problem with Visual Basic langage, he must have 2 
programs : One for OE and one for Ms Outlook.


"RS" <rs.reloaded@wanadoo.fr> a �crit dans le message de news: 
4408ac02@newsgroups.borland.com...
> Hey Hey Hey !!!
>
> I'm finding this following source code, and it works with outlook 2003 !!!
>
> I'm finally 2 sources codes that works with the 2 softwares OE and Ms 
> Outlook.
>
> I want to identify which software is the mapi default program, how can I 
> find this ?
>
> //-------------------------------------------------------------
> LPMAPISENDMAIL pfnSendMail;
>   MapiRecipDesc  rdOriginator;
>   MapiRecipDesc  rdRecipient[1];
>   LPMAPILOGOFF   pfnLogoff;
>   LPMAPILOGON    pfnLogon;
>   MapiMessage    mapimsg;
>   HINSTANCE      hDll;
>   LHANDLE        lHnd;
>   MapiFileDesc   mapifiledesc[2];
>
>   if(NULL == (hDll = LoadLibrary(TEXT("MAPI32.DLL"))))
>   {
>       _tprintf(TEXT("could not load mapi32.dll, ErrorCode: %u"), 
> GetLastError());
>   }
>   pfnLogon    = (LPMAPILOGON)GetProcAddress(hDll, "MAPILogon");
>   pfnLogoff   = (LPMAPILOGOFF)GetProcAddress(hDll, "MAPILogoff");
>   pfnSendMail = (LPMAPISENDMAIL)GetProcAddress(hDll, "MAPISendMail");
>
>   pfnLogon(0, NULL, NULL, 0, 0, &lHnd);
>
>   mapimsg.ulReserved   = 0;
>   mapimsg.lpszSubject  = "This is the Subject";
>   mapimsg.lpszNoteText = "This is the Body Message";
>   mapimsg.lpszMessageType    = NULL;
>   mapimsg.lpszDateReceived   = NULL;
>   mapimsg.lpszConversationID = NULL;
>   mapimsg.flFlags      = MAPI_UNREAD;
>
>   mapimsg.lpOriginator = &rdOriginator;
>   mapimsg.nRecipCount  = NUM_ELEMENTS(rdRecipient);
>   mapimsg.lpRecips     = rdRecipient;
>   mapimsg.nFileCount   = 2;
>   mapimsg.lpFiles      = &mapifiledesc[0];
>
>   rdOriginator.ulReserved   = 0;
>   rdOriginator.ulRecipClass = MAPI_ORIG;
>   rdOriginator.lpszName     = "rdOriginator";
>   rdOriginator.lpszAddress  = "adresse@expediteur.com"; // Expediteur
>   rdOriginator.ulEIDSize    = 0;
>   rdOriginator.lpEntryID    = NULL;
>
>   rdRecipient[0].ulReserved   = 0;
>   rdRecipient[0].ulRecipClass = MAPI_TO;
>   rdRecipient[0].lpszName     = "Name";
>   rdRecipient[0].lpszAddress  = "adresse@destinataire.com";   // 
> Destinataire
>   rdRecipient[0].ulEIDSize    = 0;
>   rdRecipient[0].lpEntryID    = NULL;
>
>   mapifiledesc[0].ulReserved   = 0;
>   mapifiledesc[0].flFlags      = 0;
>   mapifiledesc[0].nPosition    = -1;
>   mapifiledesc[0].lpszPathName = "C:\\test.txt";
>   mapifiledesc[0].lpszFileName = "test.txt";
>   mapifiledesc[0].lpFileType   = 0;
>
>   mapifiledesc[1].ulReserved   = 0;
>   mapifiledesc[1].flFlags      = 0;
>   mapifiledesc[1].nPosition    = -1;
>   mapifiledesc[1].lpszPathName = "C:\\test.pdf";
>   mapifiledesc[1].lpszFileName = "test.pdf";
>   mapifiledesc[1].lpFileType   = 0;
>   pfnSendMail(lHnd,0, &mapimsg,MAPI_DIALOG,0);
>   pfnLogoff(lHnd, 0, 0, 0);
>   FreeLibrary(hDll);
> //------------------------------------------------------------------------------------
>
>
> "Remy Lebeau (TeamB)" <no.spam@no.spam.com> a �crit dans le message de 
> news: 4408a934@newsgroups.borland.com...
>>
>> "Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
>> news:4408a7d4$1@newsgroups.borland.com...
>>
>>> I can't answer that.  I just tried it on Outlook 2000 and got the same
>>> error.  Removing the attachments results in error 2 (MAPI_E_FAILURE) 
>>> being
>>> reported instead of 11.
>>
>> I can tell you, though, that I use similar code on other machines and it
>> works fine.  However, that code is logging into an actual mail profile
>> (specifying a non-empty string for the lpszProfileName parameter), 
>> whereas
>> the code in this discussion in not.  That might make a difference.  You 
>> can
>> look up the default profile in the Registry:
>>
>>    Under Win9x/Me:
>>        HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles
>>        "DefaultProfile"="the name of the default profile"
>>
>>    Under WinNT/2K/XP/2K3:
>>        HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows 
>> Messaging
>> Subsystem\Profiles
>>        "DefaultProfile"="the name of the default profile"
>>
>>
>> Gambit
>>
>>
>
>