Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to send email?
Message
De
14/12/2001 08:32:25
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00591486
Message ID:
00594339
Vues:
34
Hi Claude.

>> Gerald, thanks! Is there any VFP code for that here on the UT or MS knowledge base for a simple example calling CDO from VFP. From what I've seen, it's a little more complicated than using CDONTS... <<

This should help to get you started if you are planning to use CDO for Windows 2000 (cdosys.dll) The parameter object has properties populated for recipient lists, message body, etc.:
LPARAMETERS toParms
LOCAL lnCnt, lnLen

*** create configuration and message objects
loConfig = CREATEOBJECT( 'CDO.Configuration' )
loMsg = CREATEOBJECT( 'CDO.Message' )
WITH loMsg
  .Configuration = loConfig
  .To = ALLTRIM( toParms.cTo )
  .CC = ALLTRIM( toParms.cCC )
  .Bcc = ALLTRIM(toParms.cBcc )
  .Subject = ALLTRIM( toParms.cSubject )
  *** See if we are sending a web page in the body of the message
  IF NOT EMPTY( toParms.cURL )
    .CreateMHTMLBody( ALLTRIM( toParms.cURL ) )
  ENDIF
  *** Add any message text to the beginning of the body
  .HTMLBody = toParms.cHTMLBody + .HTMLBody 
  *** Add any attachments
  IF NOT EMPTY( toParms.aAttachments[ 1 ] )
    lnLen = ALEN( toParms.aAttachments, 1 )
    FOR lnCnt = 1 TO lnLen
      .AddAttachment( ALLTRIM( toParms.aAttachments[ lnCnt ] ) )
    ENDFOR
  ENDIF
  .Send()
ENDWITH
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform