DonJuan

citação:Olá, como faço para converter um texto qualquer para binário? Queria gravar um texto em formato binário e depois recuperar. Exemplo: cVar := "texto QUALQUER 12345 AbCdE" cBin := GravaBinario(cVar) ? cBin //-- Retorna: 100111101010101010101.... cVar := RecuperaBinario(cBin) ?cVar //-- Retorna: "texto QUALQUER 12345 AbCdE" SamirSSabreu@gmail.com samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 id=black>"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert id=quote>id=quote>tente usar esta função do xHarbour HB_DeSerialize( ) --> xValue HB_Serialize( ) --> cBinary Acesse: http://programafontefivewin.blogspot.com/ FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Uma sólução muito boa se vc for usar via programação seria o FastReport, tem exporta para o PDF, alem de outros formatos citação:E ai João como vai. O PdfCreator salva sim mais de uma pagina, inclusive dá para voce pegar por exemplo 3 pdf´s e fazer um só com o conteúdo dos 3 arquivos. Que versão você usa? Abraços, Geraldo B. Silva FWH 2.6 Junho/2005, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, xDev, MyMake, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP id=quote>id=quote>Acesse: http://programafontefivewin.blogspot.com/ FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação: citação:Bom voltando!!!!! tem como usar o MYSQL com mesmo comando do DBF? com SQLLIB ? Ex. // Com SQL LIB: #include "sqllib.ch" REQUEST SQLLIB REQUEST MySQL FUNCTION MAIN SQL CONNECT ON "localhost"; PORT 3306 ; DATABASE "teste" ; USER "root" ; PASSWORD ''; LIB 'MySQL' RDDSETDEFAULT('MySQL') USE PRODUTOS.DBF ALIAS PROD SET INDEX TO CODPROD, DESCPROD DO WHILE !EOF() ? CODIGO, DESCRICAO, VALOR SKIP ENDDO CLOSE PRODUTOS RETURN vlw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.5 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" id=quote>id=quote>Sim Geovanni A Finalidade da lib é exatamente esta sendo q. nao aconselho a vc fazer isso A meu ver a lib resolve de imediato o falado problema com dbfs problema este q. nunca tive sendo que a meu ver é uma grande oportunidade p. vc ir aprendendo como funciona os comandos em sql e ir lentamente abandonando a maneria antiga Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles id=quote>id=quote>Concordo! Eu comecei com os códigos xBase, dai passei a fazer um select aqui outro ali e quando vi ja dominava os comados Sql, São mais seguros e mais rapido.ç.. muito mais mesmo Acesse: http://programafontefivewin.blogspot.com/ FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:tem como filtrar usando a segunda chave do indice exemplo nome+vendedor que pegar por vendedor FW24 + CLIP5_2 email :edutraini@uol.com.br id=quote>id=quote>tem sim amigo vc pode usar assim oh CLIENTE->(DbSetOrder(2)) CLIENTE->(DBSETSCOPO(1,cNome+cEndereco)) CLIENTE->(DBSETSCOPO(2,cNome+cEndereco)) CLIENTE->(DbGoTOp()) Acesse: http://programafontefivewin.blogspot.com/ FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Na Documentação do xHarbou tem um exemplo muito legal Acesse: http://programafontefivewin.blogspot.com/ FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:conseguir, dei uma editada no arquivo de script do xdev pra compilacao, e marquei sql lib antes do five para nao, e foi blz, valeu a todos. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 id=quote>id=quote>Que bom que conseguiu resolver amigo!! Se tiver dúvidas e eu poder te ajudar é só acessar o meu MSN alessandroavel@ibest.com.br ! Valeu? Que o Senhor Jesus seja contigo!! FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Meu amigo me chame no MSN que eu te mostro como conectar corretamente e sem erros Ok MSN: alessandroavel@ibest.com.br FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Vendo livros: Dominando Clipper Summer for Windows (68 bits) Compilando Clipper com Java Despenando o Windows 3.x Vendo lindo terreno na Zona sul. Ideal para bêbados plantarem cana de açucar ou cevada, para depois produzirem pinga ou cerveja. id=quote>id=quote>Quanto é? FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Amigos, abaxei alguns exemplos aqui para enviar email, mas não tenho conseguido, porque o provedor é hotmail. Como que configuro os parametros de smtp, pop, to, port, etc... desde ja obgdo... Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) id=quote>id=quote>Veja esse exemplo se resolveria seu caso http://www.fivewin.com.br/exibedicas.asp?id=1051 FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Olá estou precisando de fazer uma tabela temporária em MYSQL, ou seja um clone da tabela de plano de contas contabil. para usar em um determinado processamento e logo apos deletar essa tabela. Alguem poderia me passa o caminho das pedras. è para apurar os saldos das contas. seria para fazer uma prévia de fechamento. Ou seja uma informação temporária. Ok amigos.. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com id=quote>id=quote>Mellhor do que criar tabela temporária seria criar um array com essas informações, eu aconselharia FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 id=quote>id=quote>ESSE NOSSO AMIGO É ENGRAÇADO NÃO É? AMIGO VC TEM CONTATO DE MSN? FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

SÃO 7 PROGRAMAS COOMPLETOS COM FONTES: SISTEMA MODELO DE COMO FAZER CONEXÃO SIMULTÂNEA ENTRE MYSQL, POSTGRES E FIREBIRD SISTEMA MULTEMPRESA - MYSQL SISTEMA CALLCENTER - MYSQL/DBF SISTEMA DE CULTIVO DE PEIXE - DBF SISTEMA DE FROTA PARA PREFEITURAS E GORVERNO - DBF SISTEMA DE SEGURADOR - DBF MODULO DE ATUALIZAÇÃO VIA FTP - PROGRAMA DE ATUALIZAÇÃO SE INTERESSAR PARA VC, ENTRE EM CONTATO EMAIL / MSN alessandroavel@ibest.com.br SKYPE alessandro.avelino VALEU PESSOAL! FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL" FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Alexandre, muito obrigado pela sua dica, deu certo. DonJuan, uso a sqllib free, obrigado pela sua atenção. Um abraço, Edilson. id=quote>id=quote>Que bom que deu certo, mais me tire uma dúvida... vc quer acessar banco por vez ou os dois simultâneamente? FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Pessoal estou em duvida de que forma fazer o controle de acesso dos usuarios dentro do Programa ou seja qual a melhor forma de controlar de o usuario pode ter acesso aquela rotina Alguem poderia dar alguma sugestao Obrigado FW24 + CLIP5_2 email :edutraini@uol.com.br id=quote>id=quote>Ola amigo! Eu faço da seguinte forma: Crio uma tabela de módulos.dbf com os seguintes campos MODULO cadastro de Cliente Cadastro de Loja Cadastro de Forncedores nesta tabela eu monto todos os modulos do de meu sistema Crio depois uma tabela de ACESSOS.DBF USUARIO MODULO VIZ INC ALT EXCLUI FAULO Cad, cliebnte .t. .t. .f. .f. essa tabela acessos pega todos os modulos e faz os parametros, quando chamo o modulo como "cadcli", ele passa por uma rotina onde checa no ACESSOS.DBF, quais são os acessos liberados para aquele usuário, trazendos os botões de incluir, alterar ou excluir habilitados ou desabilitados, ou não acessa o sistema. FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Olá Pessoal, Estou precisando acessar simultaneamente, duas bases de dados, que estão em servidores diferentes. Têm como fazer isso ???. Um grande abraço a todos, Edilson. id=quote>id=quote>Qual é o seu rdd? FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação: citação:não me canso de ver tantos outros anunciarem seus produtos aqui id=quote>id=quote>Desculpe a franqueza, e sem querer criar polêmicas.. mas quem são estes "tantos outros" ?????? Onde ??? quando ??? quem ??? Frequento esse Forum desde 2002 e só agora chove anuncios de comercio nele. Isso era muito raro, e quando um desavisado fazia os moderadores davam um puxão de orelha daquela de quebrar a cartilagem, pois aqui mesmo na pagina do www.fivewin.com.br TEM UMA SESSÃO ESPECIFICA PARA ISSO. Repito, não quero criar polêmica, mas o seu modo de dizer foi meio generalizado.. esse forum sempre foi bem organizado. Dá uma olhada AQUI Tem postagens recentes. Abraços.. Retorne avisando se a dica funcionouid=red> Luiz Arruda Corumbá - MS ico.corumba@gmail.com Editado por - ico on 12/11/2010 17:43:02 id=quote>id=quote>Olha só... não gosto de ficar por mentiroso, se vc acessa desde 2002 e não viu então vc deve ter algum problema de milpia cara... ou então está mentindo. Pra que eu não fique de mentiroso na historia... dai julguem oa amigos quem está mentindo, peguei aqui aluns links do forum onde o comercio é escancarado! Só eles podem? (eu não tenho nada contra), http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8093 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14564 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14426 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14291 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14270 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14034 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=13514 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=13148 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=16453 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14694 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=16885 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5459 '> http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8093 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14564 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14426 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14291 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14270 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14034 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=13514 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=13148 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=16453 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14694 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=16885 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5459 Agora vê se me deixa em paz cara! Eu não tenho tempo pra fuxico não!! Blza essa é minha deixa Editado por - DonJuan on 12/11/2010 19:53:40

citação:Peço desculpas pelo meu ato... não vai mais acontecer.... De certa forma fiz isso como um protesto ao DonJuan que sempre fica anunciando seus produtos na seção de Programação... ... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo). id=quote>id=quote>Amigo eu não anunciei apenas postei um demo para vcs experimentarem e derrepente acrescentatem alguma coisa... como o amigo la fez com vc e vc corrigiu... vcs aqui no fórum engolem um elefante e engasgam-se com uma formiga, não me canso de ver tantos outros anunciarem seus produtos aqui, nenum de vcs falam nada, coleguismo? Subserviencia? não quero nem saber eu tão pouco faço isso, saber porque? Porque eu procuro para as pessoas aquilo que eu gostaria que fizessem para mim! Na medida que pesares, serás pesado. FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

citação:Sistema para controle de almoxarifados, totalmente online: http://www.almoxarifadoonline.com.br Já que é para fazer propaganda, vamos fazer... hehehehehe.. FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo). id=quote>id=quote>Muito Bom garoto!! Excelente testei ele muito legal mesmo, feito com xalier? qual a ferramenta vc esta usando FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Demo de como fazer backup em programas com bancos SGDB. Neste Demo vc faz acesso e cria bancos para qualquer um dos três tipos de bancos, MySql/Postgres/Firebird. Junto na instalação do demo tem um backup para vc restaurar e testar os cadastro de cliente. '>http://www.4shared.com/file/3C4WeZ2Q/Backup.html Dúvidas e Sugestões MSN/EMAIL alessandroavel@ibest.com.br FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Demo de como fazer backup em programas com bancos SGDB. Neste Demo vc faz acesso e cria bancos para qualquer um dos três tipos de bancos, MySql/Postgres/Firebird. Junto na instalação do demo tem um backup para vc restaurar e testar os cadastro de cliente. '>http://www.4shared.com/file/3C4WeZ2Q/Backup.html Dúvidas e Sugestões MSN/EMAIL alessandroavel@ibest.com.br FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Obrigado pela correção! citação:Amigo permita eu corrigir algo. Segurador ou Seguradora é, no mercado de seguros, uma entidade que assume a administração de determinados riscos em troca de um prêmio de seguro. Voce por acaso não estaria querendo dizer "CORRETOR(a)" de seguros. Que seria mais ou menos isto; Profissional capacitado/habilitado (pessoa física ou jurídica) legalmente autorizado a representar a seguradora em um contrato de seguro. "Não seja um clicador, torne-se um programador." Eu estou tentando. id=quote>id=quote>FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

SÃO 7 PROGRAMAS COOMPLETOS COM FONTES: SISTEMA MULTEMPRESA - MYSQL SISTEMA CALLCENTER - MYSQL/DBF SISTEMA DE CULTIVO DE PEIXE - DBF PROJETO PARA APRENDER A PROGRAMAR E MIGRAR PARA FIVE E POSTGRES - POSTGRES SISTEMA DE FROTA PARA PREFEITURAS E GORVERNO - DBF SISTEMA DE SEGURADOR - DBF MODULO DE ATUALIZAÇÃO VIA FTP - PROGRAMA DE ATUALIZAÇÃO SE INTERESSAR PARA VC, ENTRE EM CONTATO EMAIL / MSN alessandroavel@ibest.com.br SKYPE alessandro.avelino Editado por - DonJuan on 06/12/2010 09:32:36

SÃO 7 PROGRAMAS COOMPLETOS COM FONTES: SISTEMA MULTEMPRESA - MYSQL SISTEMA CALLCENTER - MYSQL/DBF SISTEMA DE CULTIVO DE PEIXE - DBF PROJETO PARA APRENDER A PROGRAMAR E MIGRAR PARA FIVE E POSTGRES - POSTGRES SISTEMA DE FROTA PARA PREFEITURAS E GORVERNO - DBF SISTEMA DE SEGURADOR - DBF MODULO DE ATUALIZAÇÃO VIA FTP - PROGRAMA DE ATUALIZAÇÃO SE INTERESSAR PARA VC, ENTRE EM CONTATO EMAIL / MSN alessandroavel@ibest.com.br SKYPE alessandro.avelino Editado por - DonJuan on 06/12/2010 09:32:36

Ok FUNCTION GET_EMAIL(cTOEMAIL) ********************************************************************************************* LOCAL oDEMail, cVersao_Sistema:="Envio de Email" LOCAL aDados[5],oDados[5], oBt[4], oLbx, cItem, aFiles:={},cArquivo:="" aDados[1]:=cUSU_EMAIL aDados[2]:=cTOEMAIL aDados[3]:=SPACE(50) aDados[4]:=SPACE(255) aDados[4]:=SPACE(100) DEFINE DIALOG oDEMail RESOURCE "ENVIA_EMAIL" TITLE "Módulo de Email" FONT oFontSystem REDEFINE BITMAP ID 5000 RESOURCE "BANNER" OF oDEMail ADJUST REDEFINE SENSITIVE SAY oSS06 PROMPT "Verificando Permissões..." ID 5001 OF oDEMail FONT oFont_Banner01 COLOR CLR_YELLOW ALIGN RIGHT TRANSPARENT REDEFINE SENSITIVE SAY oSS06 PROMPT cVersao_Sistema ID 5002 OF oDEMail FONT oFont_Banner02 COLOR CLR_YELLOW ALIGN RIGHT TRANSPARENT REDEFINE BTNBMP oBt[1] ID 201 OF oDEMail /*RESOURCE "BU_CALC"*/ ; TOOLTIP "Enviando Email" ACTION ENVIA_EMAIL(aDados[ 1],aDados[ 2],aDados[ 3],aDados[ 4],aFiles,oDados,aDados) REDEFINE BTNBMP oBt[2] ID 202 OF oDEMail /*RESOURCE "CALEND"*/ ; TOOLTIP "Anexando Arquivos" ACTION ( cArquivo := cGetFile( "*|*.", "Anexar Arquivos" ), oLbx:Add( cArquivo ), MsgInfo( cArquivo ) ) REDEFINE SAY oDados[ 1] VAR aDados[ 1] ID 101 OF oDEMail REDEFINE SAY oDados[ 2] VAR aDados[ 2] ID 102 OF oDEMail REDEFINE GET oDados[ 3] VAR aDados[ 3] ID 103 OF oDEMail REDEFINE GET oDados[ 4] VAR aDados[ 4] ID 104 MEMO OF oDEMail oDados[ 4]:bGotFocus:={|| oDados[ 4]:SetPos(0,0)} REDEFINE GET oDados[ 5] VAR aDados[ 5] ID 105 OF oDEMail REDEFINE LISTBOX oLbx VAR cItem ITEMS aFiles ID 106 OF oDEMail //ON CHANGE oSay:Refresh() //MULTI MESSAGE "Please select an Item" ACTIVATE DIALOG oDEMail CENTERED RETURN NIL STATIC FUNCTION ENVIA_EMAIL(cDE,cPARA,cASSUNTO,cCORPO,aFiles,oDados,aDados) LOCAL X LOCAL oSmtp, oEMail LOCAL cSmtpUrl LOCAL cSubject, cFrom, cTo, cBody, cFile aDados[5]:="Verificando Conexões" oDados[5]:Refresh() // preparing data for eMail cSmtpUrl := "smtp://"+ALLTRIM(LOWER(cUSU_USUEMA))+":"+ALLTRIM(LOWER(cUSU_SENEMA))+"@"+ALLTRIM(LOWER(cUSU_cUSUSMT)) cSubject := cASSUNTO cFrom := alltrim(cDE) cTo := ALLTRIM(cPARA) cFile := "ODONTOL.map" cBody := cCORPO aDados[5]:="Enviando E-mail(s)... Aguarde... Pode Levar alguns Minutos " oDados[5]:Refresh() // preparing eMail object oEMail:= TIpMail():new() oEMail:setHeader( cSubject, cFrom, cTo ) oEMail:setBody( cBody ) FOR nI:=1 To LEN(aFiles) oEMail:attachFile( aFiles[nI] ) NEXT // preparing SMTP object oSmtp := TIpClientSmtp():new( cSmtpUrl ) aDados[5]:="Enviando E-mail(s)... Aguarde... Pode Levar alguns Minutos " oDados[5]:Refresh() // sending data via internet connection IF oSmtp:open() aDados[5]:="Enviando Agora... Aguarde... " oDados[5]:Refresh() oSmtp:sendMail( oEMail ) oSmtp:close() aDados[5]:="Email Enviado Com Sucesso " oDados[5]:Refresh() MSGINFO(aDados[5]) ELSE aDados[5]:="Falha no Envio de E-mail" oDados[5]:Refresh() MSGINFO(aDados[5]) ENDIF RETURN RETURN NIL FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

Olá Pessoal, estou disponibilizando esse código para os amigos que querem e pretendem enviar email com anexo: STATIC FUNCTION ENVIA_EMAIL(cDE,cPARA,cASSUNTO,cCORPO,aFiles,oDados,aDados) LOCAL X LOCAL oSmtp, oEMail LOCAL cSmtpUrl LOCAL cSubject, cFrom, cTo, cBody, cFile aDados[5]:="Verificando Conexões" oDados[5]:Refresh() // preparing data for eMail cSmtpUrl := "smtp://"+ALLTRIM(LOWER(cUSU_USUEMA))+":"+ALLTRIM(LOWER(cUSU_SENEMA))+"@"+ALLTRIM(LOWER(cUSU_cUSUSMT)) cSubject := cASSUNTO cFrom := alltrim(cDE) cTo := ALLTRIM(cPARA) cFile := "ODONTOL.map" cBody := cCORPO aDados[5]:="Enviando E-mail(s)... Aguarde... Pode Levar alguns Minutos " oDados[5]:Refresh() // preparing eMail object oEMail:= TIpMail():new() oEMail:setHeader( cSubject, cFrom, cTo ) oEMail:setBody( cBody ) FOR nI:=1 To LEN(aFiles) oEMail:attachFile( aFiles[nI] ) NEXT // preparing SMTP object oSmtp := TIpClientSmtp():new( cSmtpUrl ) aDados[5]:="Enviando E-mail(s)... Aguarde... Pode Levar alguns Minutos " oDados[5]:Refresh() // sending data via internet connection IF oSmtp:open() aDados[5]:="Enviando Agora... Aguarde... " oDados[5]:Refresh() oSmtp:sendMail( oEMail ) oSmtp:close() aDados[5]:="Email Enviado Com Sucesso " oDados[5]:Refresh() MSGINFO(aDados[5]) ELSE aDados[5]:="Falha no Envio de E-mail" oDados[5]:Refresh() MSGINFO(aDados[5]) ENDIF RETURN FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres "MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"