Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OutLook 2000
Message
From
02/02/2008 11:44:43
 
 
To
02/02/2008 07:53:56
General information
Forum:
Visual FoxPro
Category:
Third party products
Title:
Miscellaneous
Thread ID:
01287000
Message ID:
01288493
Views:
28
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform