text:  best option would be to use Outlook Redemption from
  Since you are not interested in Express ClickYes
  integer rc
  oleobject oleSafeMailItem
  oleobject oleTmp
  oleobject oleOutlook
  oleobject oleNameSpace
  oleOutlook = create oleobject
  rc = oleOutlook.ConnectToNewObj
  oleNameSpace = oleOutlook.GetNameSpace('M
  oleNameSpace.Logon('', '', true, true)
  oleSafeMailItem = create oleobject
  rc = oleSafeMailItem.ConnectToN
  oleTmp = create oleobject
  oleTmp = oleOutlook.CreateItem(0)
  oleSafeMailItem.Item = oleTmp
  oleSafeMailItem.Recipients
  oleSafeMailItem.Recipients
  oleSafeMailItem.Subject = Using Redemption mail'
  oleSafeMailItem.Send
  if isValid(oleSafeMailItem) then destroy oleSafeMailItem
  if isValid(oleNameSpace) then
  oleNameSpace.logoff()
  destroy oleNameSpace
  end if
  if isValid(oleOutlook) then
  oleOutlook.DisconnectObjec
  destroy oleOutlook
  end if
  ls_username = upper(iolenamespace.curren
  Let me know what code i should write before or after that line (using redemption dll).
  Thanks for your time
  Srinib
  Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
  Learn how Concerto can help you.
  First tell me did you try the code that i'd pasted ? Did it prompt you to click Yes ?
  I did not worked on your code since i need to make the changes in the following code as i am doing maintenance work for this.
  //////////////////////////
  Loop1:
  lw_parent.WindowState = Normal!
  if checkconnection() then
  if not isvalid(g_session) then
  g_session = CREATE mailSession
  ls_username = upper(iolenamespace.curren
  mRet = g_session.mailLogon(ls_use
  if mRet <> mailReturnSuccess! then
  MessageBox("Error","Unable
  end if
  end if
  g_session.mailAddress(i_ma
  if UpperBound(i_mailmessage.R
  mle_to.text = ""
  for ll_loop = 1 to UpperBound(i_mailmessage.r
  ls_recipient = i_mailmessage.recipient[ll
  if ll_loop = 1 then
  mle_to.text = ls_recipient
  else
  mle_to.text = mle_to.text + "; " + ls_recipient
  end if
  else
  return
  end if
  else
  lw_parent.WindowState = Minimized!
  reconnectsqlca()
  GOTO Loop1
  end if
  Thanks again
  Srinib
  Your above code uses normal MAPI so the security popup will appear. Check out with the people whom you are doing maintenace worj what option they would prefer .
  Thanks
  Srinib
  I have one question.
  Is that Redemption.dll can be distrubuted along with application?
  Or do we need to get the distributed version from the corresponding vendor?
  I am getting the following message when regestering a dll.
  1. This software product is licensed to you for the software development
  purposes only.
  This product may not be distributed or copied except for backup purposes.
  2. If you need a distributable version, please visit
  Please let me know the details.
  And also, i need your help on extending your sample code.
  I need to get the mail ids from the address book instead hardcoding. Please help me on this.
  Thanks again and again
  Srinib
  Can you please help me on other part.
  I need to get the mail ids from the address book using your code instead hardcoding .
  Thanks
  Srinib
  the code that ur looking for
  oleNameSpace.Logon("outloo
  I have tried the above code posted by sajuks, and it works. I was wondering how to get text into the body of the email. there dose not seem to be any oleSafeMailItem.BODY variable.
  Thanks
  Greg