Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sending an email after i push the save button from a cla
Message
 
À
17/01/2003 10:24:43
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00742877
Message ID:
00743013
Vues:
18
If you want to automate outlook in order to send mail, here is some sample code for you:
#DEFINE olFolderInbox 6 
loOutlook = CREATEOBJECT("Outlook.application")
loNameSpace =loOutlook.GetNamespace("MAPI")
loInbox = loNameSpace.GetDefaultFolder(olFolderInbox)
loMail = loInbox.Items.ADD()
lcErr = ON("ERROR")
lcEmailAddress = "g@thescapins.com"
lcSubject = "Test Subject"
lcBody = "This is the test body"
ON ERROR ** && Ignore Outlook errors
loMail.Recipients.ADD(lcEmailAddress)
ON ERROR &lcErr

loMail.Subject = lcSubject
loMail.Body = lcBody
loMail.DISPLAY
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform