Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Email Olecontrol
Message
From
25/02/2005 11:22:40
 
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00990322
Message ID:
00990570
Views:
19
Your welcome.

>Makes sense now, thanks.
>>
>>Ok, let take Deans code and fill in the blanks (variables).
>>
>>This...
>>
>>cURL = ALLTRIM(THIS.caddress) + "/" + ALLTRIM(THIS.casppage) + "?ID=" + ALLTRIM(THIS.cID) + ;
>>"&To=" + ALLTRIM(THIS.cto) + ;
>>"&From=" + ALLTRIM(THIS.cFrom) + ;
>>"&Subject=" + ALLTRIM(THIS.cSubject) + ;
>>"&Body=" + ALLTRIM(THIS.cBody)
>>this.olecontrol1.openURL(cURL)
>>
>>
>>would be become this in the cURL variable:
>>
>>cURL = "http://www.MailDomain.com/MailThis.asp?ID=ABC123" + ;
>>"&To=Reciever@there.com" + ;
>>"&From=Sender@Here.com" + ;
>>"&Subject=What the mail is about"  + ;
>>"&Body=Blah, Blah, Blah"
>>
>>this.olecontrol1.openURL(cURL)
>>
>>
>>In the MailThis.ASP page is a little VBscript code.
>>
>>
>>if ValidateClient( request.QueryString("ID") )
>>	dim objCDO
>>	Set objCDO = Server.CreateObject("CDONTS.NewMail")
>>
>>	objCDO.From =	request.QueryString("From")
>>	objCDO.To =	request.QueryString("To")
>>	objCDO.Subject = request.QueryString("Subject")
>>
>>	objCDO.BodyFormat = 1	' 0 = HTML, 1 = Plain
>>	objCDO.MailFormat = 1	' 0 = MIME, 1 = Text
>>	objCDO.importance = 0	' 0 = High, 1 = Medium, 2 = Low
>>
>>	cBody = replace(request.QueryString("Body"), "/r",  chr(13)+chr(10))
>>	objCDO.Body = cBody
>>
>>	objCDO.Send
>>
>>	Set objCDO = Nothing
>>end if
>>
>>
>>Of course, there are many ActiveX controls that can be used in a simular fashion to send mail from a ASP page. But this is general idea.
>>
>>*******
>>
>>My suggestion to Dean is to look at changing the method of sending the mail from a third party service to something more local to the client, like using Exchange or somtihing.
Greg Reichert
Previous
Reply
Map
View

Click here to load this message in the networking platform