FiveTech Software tech support forums

... "pablo.diseno@toimsa.es" cOther := "" cCC := "" cSubject := AnsiToOem("Imágenes no encontradas para WEB") cBody := "Muy buenas," + chr(13) +; AnsiToOem("Adjunto listado de referencias cuyas imágenes no se encontraron en su ubicación, ") ...

... REDEFINE COMBOBOX oCbxA1 VAR cScript  ID 106 OF oeText ;      ITEMS aSMScode  ON CHANGE ( lx := oCbxA1:nAt, cBody := aSMStext[lx], oGet1:refresh() )   ;      MESSAGE "Select a script" STYLE CBS_DROPDOWN UPDATE  ...

... + ", SPF Test for EMail" Local cToAddr := "byron.hopp@gmail.com" Local cCC := "bhopp@matrixcomputer.com" Local cBody := "Email to test the SPF information in the EML. This email was authencated using the Shipping@mycompany.com user name." Local cAttach ...

... "," cCommand = cCommand + "to=" + Chr(34) + cTo + Chr(34) + "," cCommand = cCommand + "body=" + Chr(34) + cBody + Chr(34) + "," cCommand = cCommand + "attachment=" + Chr(34) + cAtach1 + Chr(34) oShell:=CreateObject("WScript.Shell") ...

... "," cCommand = cCommand + "to=" + Chr(34) + cTo + Chr(34) + "," cCommand = cCommand + "body=" + Chr(34) + cBody + Chr(34) + "," cCommand = cCommand + "attachment=" + Chr(34) + cAtach1 + Chr(34) + "," cCommand = cCommand + "attachment=" ...

... client ) e-mail ... the code is simple enough and it works quite well .. however I am having problems with some users that can not see the Body ( cBody ) of the message .. which I code as plain text ... Here is the code:          cBody    := "Dear Employee: "+alltrim( cEMployee )+";"+chr(10)  ...

To get a structured text, I added in method METHOD PaintBody( hDC, rc ) CLASS TC5ToolTip DrawText( hDC, AllTrim( ::cBody ), ::aRight,; nOr( If( ::lRightAlignBody, DT_RIGHT, DT_LEFT ), ; DT_EXPANDTABS , DT_WORDBREAK ) ) now the < body > works the same like a standard tooltip ...

... { ::aHeader2[ 1 ] + 1, ::aHeader2[ 2 ] + 20,; ::aHeader2[ 3 ], ::aHeader2[ 4 ] - 2 }, nOR( DT_WORDBREAK, 8192 ) ) DrawText( hDC, AllTrim( ::cBody ), ::aRight,; nOr( If( ::lRightAlignBody, DT_RIGHT, DT_LEFT ), DT_WORDBREAK ) ) DrawText( hDC, ::cFoot, { ::aFoot[ 1 ], ::aFoot[ 2 ] + 10 + nWFoot,; ...

Ya he encontrado la solucion. function getresulthtml() local oIE:=nil,cURL:="",j:=0 local cBody:="",cTextoTXT:="",cTextoHTML:="",aElement:={} oIE := CREATEOBJECT( "InternetExplorer.Application" ) WITH OBJECT oIE :Visible := ...

... diferentes pero ninguna funciona, aqui las que he probado pero nada function test(othis) local cUrl:="",oHttp:="",oIE:=nil,cbody:="",i:=0 cUrl:="https://maps.googleapis.com/maps/api/geocode/xml?address=calle juan de cervantes 38" //cUrl:="http://server/leaflet/html/index.html?latfrom=37.899926&lngfrom=-4.731114&latto=37.587115" ...

... ) if aPos[2]+a[1] > GetSysMetrics(1) aPos[2] := GetSysMetrics(0) - a[1] - 20 endif ::oToolTip:cHeader := nil//"Calendar" ::oToolTip:cBody := ::acTooltips[ nDia ] ::oToolTip:cFoot :=nil //"Fwh Power" *::oToolTip:Move(nTop, nLeft,nBottom , nRight , .t. ) ::oToolTip:Move( ...

... ::oToolTip != nil // ::oToolTip:Show( nBottom - 6, nRight - 6, ::acTooltips[ nDia ], Self ) ::oToolTip:cHeader := "Calendar" ::oToolTip:cBody := ::acTooltips[ nDia ] ::oToolTip:Move(nTop, nLeft,nBottom - 6, nRight - 6, .f. ) ::oToolTip:cFoot :="Fwh Power" ::oToolTip:Default() ...

Karinha

Eu acabei descobrindo que a string cBody tem que passar no :Send( cBody ) . e eu passada a URL errado.

Grato

Ari

funcion: Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort, oDlg ) Local oCfg, oMsg, oError, nEle, cToken, bMens, lAuth:=!Empty(cUser).and.!Empty(cPass) Local aAttach:={} Default nPort := 25, ; cSubject := "", ...

... funciona o que deberia configurar. LAS FUNCIONES SON ESTAS // --- Envio de correo electronico Function SendEmail(cFrom,cTo,cBCC,cAttach,cSubject,cBody,cUser,cPass) Local oDlg, aCtl[ 22 ], oFont Local cMailServer := PadR( "smtp.gmail.com", 60 ) // servidor de correo local nPort:=465 ...