I'm using Outlook Automation and Redemption to send emails from my program. The email is getting stuck in the DRAFTS folder. This has worked for me with other installs, but for some reason it is not working here:
#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2
oOutLookObject = CreateObject("Outlook.Application")
IF FILE(ADDBS(datacfg.redemp_dir) + "REDEMPTION.DLL") AND datacfg.use_redemp
SET DEFAULT TO (datacfg.redemp_dir)
oSafeItem = Createobject('Redemption.SafeMailItem')
SET DEFAULT TO (TempDir)
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
oSafeMailItem = CREATEOBJECT("Redemption.SafeMailItem")
oSafeMailItem.Item = oEmailItem
WITH oSafeMailItem
.Recipients.Add(lc_email)
.Subject = pc_subject
.Importance = IMPORTANCENORMAL
.Body = pc_Body
IF FILE(pc_attachment_1)
.Attachments.Add(pc_attachment_1)
ENDIF
.Recipients.ResolveAll
.Send
ENDWITH
RELEASE oEmailItem
RELEASE oOutLookObject
RELEASE oSafeMailItem