Appleevent stumped

[Fred Step <fred dot stephenson at communication-unltd dot com>]

Hi,
I've just run into a problem that has me stumped. My program runs fine 
when compiled with 5.5. I've just moved up to 2007 r2. The program runs 
fine when compiled with 2007 r2 as long as I don't use my "remote 
appleevents". As soon as I try and use "remote" appleevents" my POP and 
SMTP stuff goes haywire. For instance I get "-ERR NUll Command " 
followed by the complete email in the server error.
Here's the code that I use to convert a normal local appleevent into a 
remote
Sub AEConvertRoutine(anEPPC as string, byref ae as appleevent)
  dim err as Integer
  dim aedesc as MemoryBlock
  dim i as integer
  dim aeptrx as integer
  dim list as appleeventdescList
  dim processid as integer
 
 
  ae.timeout=15
 
 
 
  Declare Function AECreateDesc Lib "Carbon" (typeCode as OSType, 
dataPtr as CString, dataSize as Integer, result as Ptr) as Integer
 
 
  aedesc = NewMemoryBlock(8)
 
  err = AECreateDesc("aprl", anEPPC, lenb(anEPPC), aedesc)
  if err <> 0 then
    growlmess(true,"AEConvertRoutine", str(err))
  end if
 
 
 
  Declare Function AEPutAttributeDesc Lib "Carbon" (theAppleEvent as 
integer, theAEKeyword as OSType, theAEDesc as Ptr) as Integer
 
 
 
  aeptrx = ae.ptr
  i = AEPutAttributeDesc( aeptrx, "addr", aedesc)
  if i <> 0 then
    growlmess(true,"AEConvertRoutine", "Put desc returned "+ str(i))
  end if
// growlmess is just a message to Growl
End Sub

Does anyone have a pointer for me as to what could be going wrong??

Thanks

Fred
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>