Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
E-mail without Outlook
Message
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00740423
Message ID:
00740478
Views:
18
>Does anyone other than WestWind make a control or utility that allows the sending of e-mail without the need for using Outlook or Outlook Express as a client? MAPI is fine, but Outlook sometimes brings one of our servers to a dead crawl. Thanks!

If your pc is running NT with Option Pack for or Win2000 or higher, you can use Collaborative Data Objects (CDO). Here is some code that use to send our the monthly email reminder to our user group.
oMSG = CREATEOBJECT("CDO.Message")

lcBody = FILETOSTR("meeting.txt")
USE newvanfox
SCAN
	oMSG.To = newvanfox.email
	oMSG.Sender = "super@duper.com"
	oMSG.Subject = "VanFox: Sept 25th meeting"
	oMSG.TextBody = lcBody
	oMSG.Send()
ENDSCAN
release oMSG
Marcia Akins added this code to configure CDO. Here is her message below...

**********

Unfortunately, without Outlook Express installed or IIS insalled and configured, you still have to manually configure the configuration object in order to send the e-mail and you forgot to mention that < s >. My CDO wrapper class has code like this:
WITH This
  *** create configuration and message objects
  .oConfig = CREATEOBJECT( 'CDO.Configuration' )
  IF TYPE( 'This.oConfig' ) = 'O'
    *** Check to see if we have configuration infomation
    IF NOT EMPTY( NVL( .oConfig.Fields( "http://schemas.microsoft.com/cdo/configuration/smtpserver").value, "" ) )      
      llRetVal = .T.
    ELSE
      *** Manually set Configuration properties
      *** using the CdoConfig table
      llRetVal = This.GetSmtpInfo()
    ENDIF
  ENDIF
ENDWITH
***********
Previous
Reply
Map
View

Click here to load this message in the networking platform