Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Email Olecontrol
Message
De
25/02/2005 11:22:40
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
00990322
Message ID:
00990570
Vues:
18
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform