Problem Sending E-Mails

[paubri]

Hi.

I have a program that I am trying to send e-mails through. I am using MAPI to send the message. I have the code as follows:

  MAPIModule := LoadLibrary(PChar(MAPIDLL));
  if MAPIModule=0
    then
      begin
        Result := -1
      end
    else
      begin
        try
          @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
          if @SM <> nil
            then                              
              begin
                Result := mapiSendMail( 0, application.Handle, msg, MAPI_LOGON_UI, 0 );
              end
            else
              begin
                Result := 1
              end;
        finally
          FreeLibrary(MAPIModule);
        end;
      end;

The code works fine sending the e-mail, however, when I close the program, the following error message appears:

Project Theatre.exe reaised exception class EAccessViolation with message 'Access violation at address 7649F877. Read of address 7649F877.' Process stopped.

Does anyone know how I could prevent this from happening?

Thanks,
British

 

[Nordlund]

I would use TMapiEasy.
It can be found at the borland community

http://codecentral.borland.com/codecentral/ccWeb.exe/files?id=20846

You have to be logged in...

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
There is always another way to solve it, but I prefer my way.

 

[whosrdaddy]

the line
Result := mapiSendMail( 0, application.Handle, msg, MAPI_LOGON_UI, 0 );

is not correct!
you must use SM. I see you're using the code sample from here :

http://www.delphifaq.com/fq/q5012.shtml

they do it the right way...



--------------------------------------
What You See Is What You Get

 

[paubri]

When I use SM, it comes up with the same error message while I am trying to send the e-mail. It might be because I use Groupwise and not Outlook Express.