We, i use something like this, maybe this helps :

procedure email

#define olfolderdrafts 16
#define olmailitem 0
PARAMETERS email_to,email_subject,email_body,email_attachment1,email_attachment2
local oNamespace,oEmailitem

IF VARTYPE(oOutlook) <> "O"
RELEASE oOutlook
PUBLIC Ooutlook
oOutlook=CREATEOBJECT("Outlook.application")
endif
onamespace=oOutlook.getnamespace("MAPI")
oEmailitem=oOutlook.createitem(olMailItem)
WITH oEmailitem
.subject=email_subject
.body=email_body
.recipients.add(email_to)
IF NOT EMPTY(ALLTRIM(email_attachment1))
.attachments.add(email_attachment1)
ENDIF
IF NOT EMPTY(ALLTRIM(email_attachment2))
.attachments.add(email_attachment2)
ENDIF
endwith
oEmailItem.display
RETURN