Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sending E-Mail via Outlook
Message
De
13/05/1998 13:02:47
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00099107
Message ID:
00099117
Vues:
23
>I would like to be able to send email from VFP 5.0, I know how to do it using Windows Messaging but would like to use Outlook Express. Basically I want my users to be able to compile a message in VFP enter the email address,subject, and press go.
>
>Any help much appreciated
>Pete Kane

Pete,
Hope this code will help you. But i'm not able to definitively send it, just create it and put into the outbox folder of outlook. If you know how to send it tell me please.


bandeja = CreateObject("Outlook.Application")
mensaje = bandeja.CreateItem(0)
with mensaje
.Subject = "Envio diario concursos públicos. "
.Body = "Ficheros adjuntos"
.Recipients.Add("agp@kender.es")
.recipients(1).Type = 1
* attachments
m.nomfile = "prueba.txt"
if file(m.nomfile)
.attachments.Add(m.nomfile, 1)
endif
.Send
endwith
release bandeja
Saludos,
A.G.P.
---------
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform