Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
OutLook 2000
Message
De
02/02/2008 11:44:43
 
 
À
02/02/2008 07:53:56
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Titre:
Divers
Thread ID:
01287000
Message ID:
01288493
Vues:
29
Marcia!

You are the queen. Following code works like a charm:
loConfig = Createobject( 'CDO.Configuration' )
loMsg = Createobject( 'CDO.Message' )
CLEAR
start=TIME()
? start 
With loMsg
	.Configuration = loConfig
	.To = [somebody@hotmail.Com]
	.CC = [someoneelse@yahoo.com]
	.Bcc = []
	.Subject = [CDO is really easy]
*** Sending a web page in the body of the message
	*.CreateMHTMLBody( [http://www.foxite.com] )
*** Add any message text to the beginning of the body
	*.HTMLBody = [This is a great web site for you to visit:] + .HTMLBody
*** Add an attachments
	.AddAttachment( [C:\Temp\somepicture.bmp])
	.Send()
ENDWITH
end=TIME()
? end
? end-start

No loConfig but Outlook Express installed. Will test Wednesday on a pc same code w/o OE

Have a nice weekend.
Thanks.
Koen
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform