Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
E-mail without Outlook
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00740423
Message ID:
00740478
Vues:
19
>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
***********
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform