fwiw
I use either Outlook with findwindowpos / timer to look for the annoying
security message, a web based perl script and IE automation or this code to
call cdosys.dll
Based on what type of system I've written one of them normally turns out to be
the better solution.
As far as I know the customer I've lifted this code from is running W7 and not
reported any issues.
LPARAMETERS cTo,cBCC,cSubject,cBody,cFrom
cdoBasic = 1
cdoSendUsingPort = 2
IMSG = Createobject("CDO.Message")
iConf = Createobject("CDO.Configuration")
Flds = iConf.Fields
With Flds
IF "JET" $ UPPER(cFrom)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";) =
cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername";) =
"[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword";) =
"mypassword"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";) =
cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";) =
"mail.me.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";)
= 30
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 25
.Update()
ENDIF
Endwith
With IMSG
.Configuration = iConf
.To = cTo
** .To="[email protected]"
IF "JET" $ UPPER(cFrom)
.From = "[email protected]"
endif
.BCC=cBCC
.Subject = cSubject
IF "<HTML" $ UPPER(cBody)
.htmlbody=cBody
ELSE
.TextBody = cBody
ENDIF
.Send()
Endwith
________________________________
From: [email protected] on behalf of Rafael Copquin
Sent: Mon 14/06/2010 20:15
To: GrahamB
Subject: Re: Craig Boyds VFPEXMAPI.fll
>El 14/06/2010 15:51, Peter Hart escribió:
>Sys(3050,1,Val (Sys (3050, 1, 0)) / 3)&& Set Visual Foxpro Buffer Size
>Any ideas on how to do this with VFP on Windows 7 or in deed if it is
>necessary in Win 7
I have been using Win 7 (32 bit version) for some time now and never saw the
need to set the VFP buffer size
Rafael Copquin
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
