ricardomouramarques Posted February 9, 2011 Author Report Share Posted February 9, 2011 citação:Não traz a lista de emails selecionados corretamente. Duplica, quadruplica, etc. Selecione uns tres emais para levar ao campo PARA: E teste para ver o que acontece Ricardo. id=quote>id=quote>João, Aqui tá funcionando perfeitamente... mas de qualquer maneira tente assim (testei e funcionou também): //----------------------------------------------------------- Function ConfCont( oGet, cVar ) local i oCon:Load() cVar := Alltrim(cVar) if len(cVar) > 0 cVar := Alltrim(cVar)+";" endif for i := 1 to len( aListCont ) cVar := cVar+if(i>1,";", "")+Alltrim(aListCont) next cVar+=Space(100) oGet:SetText( cVar ) oDlgCon:End() oDlgInc:end() Return NIL /------------------------------------------------------------ id=code>id=code>Ricardo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 citação: citação:Não traz a lista de emails selecionados corretamente. Duplica, quadruplica, etc. Selecione uns tres emais para levar ao campo PARA: E teste para ver o que acontece Ricardo. id=quote>id=quote>João, Aqui tá funcionando perfeitamente... mas de qualquer maneira tente assim (testei e funcionou também): //----------------------------------------------------------- Function ConfCont( oGet, cVar ) local i oCon:Load() cVar := Alltrim(cVar) if len(cVar) > 0 cVar := Alltrim(cVar)+";" endif for i := 1 to len( aListCont ) cVar := cVar+if(i>1,";", "")+Alltrim(aListCont) next cVar+=Space(100) oGet:SetText( cVar ) oDlgCon:End() oDlgInc:end() Return NIL /------------------------------------------------------------ id=code>id=code>Ricardo. id=quote>id=quote>Postado - 09/02/2011 : 03:09:01 - By Ricardo. Ricardo, você não DORME?? KKKKKKKKKKKKKKKKK Valeu, agora funcionou perfeito. Muito obrigado. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 9, 2011 Author Report Share Posted February 9, 2011 citação:Ricardo, você não DORME?? KKKKKKKKKKKKKKKKK id=quote>id=quote>tô de fériassssssss... kkk Ricardo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 citação: citação:Ricardo, você não DORME?? KKKKKKKKKKKKKKKKK id=quote>id=quote>tô de fériassssssss... kkk Ricardo. id=quote>id=quote> Estou modificando tudo, para substituir o OUTLOOK EXPRESS, o que acha de eu te enviar um DEMO pra você criticar ou melhorar?? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 9, 2011 Author Report Share Posted February 9, 2011 citação:Estou modificando tudo, para substituir o OUTLOOK EXPRESS, o que acha de eu te enviar um DEMO pra você criticar ou melhorar?? id=quote>id=quote>João, envia pra cá: ricardomouramarques@hotmail.com No que eu puder ajudar, conte comigo. Ricardo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 citação: citação:Estou modificando tudo, para substituir o OUTLOOK EXPRESS, o que acha de eu te enviar um DEMO pra você criticar ou melhorar?? id=quote>id=quote>João, envia pra cá: ricardomouramarques@hotmail.com No que eu puder ajudar, conte comigo. Ricardo. id=quote>id=quote>Foi pra conta, abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 9, 2011 Author Report Share Posted February 9, 2011 citação:Foi pra conta, abraços. id=quote>id=quote>já peguei seu .exe Opção para incluir servidores ficou bacana. tá passando um champoozinho legal nele também...kkk Ricardo Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 citação: citação:Foi pra conta, abraços. id=quote>id=quote>já peguei seu .exe Opção para incluir servidores ficou bacana. tá passando um champoozinho legal nele também...kkk Ricardo id=quote>id=quote> Mandei outra versão com disparo com a TECLE nos GET´s. Vamos trocando ideÃas, ADORO GENTE INTELIGENTE, se bem, que eu não ESTOU NEM PERTO... Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 9, 2011 Author Report Share Posted February 9, 2011 citação:ADORO GENTE INTELIGENTE, se bem, que eu não ESTOU NEM PERTO... id=quote>id=quote>ah! ah! ah! o cara é o "BALDER" e me vem com essa!?!? Só rindo mesmo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 citação: citação:ADORO GENTE INTELIGENTE, se bem, que eu não ESTOU NEM PERTO... id=quote>id=quote>ah! ah! ah! o cara é o "BALDER" e me vem com essa!?!? Só rindo mesmo. id=quote>id=quote>Querido MESTRE, mandei outra versão. Por favor, HUMILDEMENTE, peço que comente. Abraços, e obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 Vivendo e aprendendo: CC Cc é a forma abreviada de Cópia carbono. Se você adicionar o nome de um destinatário nesse campo em uma mensagem de correio do Microsoft Outlook®, uma cópia da mensagem será enviada para esse destinatário e o nome dele será visto pelos outros destinatários da mensagem. CCO Cco é a forma abreviada de Cópia carbono oculta. Se você adicionar o nome de um destinatário nesse campo em uma mensagem, uma cópia da mensagem será enviada para esse destinatário e o nome dele não será visto pelos outros destinatários da mensagem. Se o campo Cco não estiver visÃvel quando uma nova mensagem for criada, você poderá adicioná-lo. No menu Exibir da mensagem, clique em Campo Cco. Como eu sou BURRO, não fazia nem idéia. kkkkkkkkkkkk João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ZECA Posted February 9, 2011 Report Share Posted February 9, 2011 citação:Vivendo e aprendendo: CC Cc é a forma abreviada de Cópia carbono. Se você adicionar o nome de um destinatário nesse campo em uma mensagem de correio do Microsoft Outlook®, uma cópia da mensagem será enviada para esse destinatário e o nome dele será visto pelos outros destinatários da mensagem. CCO Cco é a forma abreviada de Cópia carbono oculta. Se você adicionar o nome de um destinatário nesse campo em uma mensagem, uma cópia da mensagem será enviada para esse destinatário e o nome dele não será visto pelos outros destinatários da mensagem. Se o campo Cco não estiver visÃvel quando uma nova mensagem for criada, você poderá adicioná-lo. No menu Exibir da mensagem, clique em Campo Cco. Como eu sou BURRO, não fazia nem idéia. kkkkkkkkkkkk João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>É. Juro que pensei que estas letras tivessem outros significados: C C - CASA CAIU -Principalmente quando este CC é para o chefe. ou C C O - CASA CAIU OTARIO - Quando vc manda aquela foto com as gatinhas na piscina para seus amigos de trampo, esquece de apagar a data e uma das cópias vai parar no computador do chefe do RH, justamente quando ele tá lendo o Atestado e descobre que a data do mesmo é igual da foto e que neste dia voce estava "doente". Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Editado por - ZECA on 09/02/2011 18:03:46 Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 9, 2011 Author Report Share Posted February 9, 2011 citação:CC CCO id=quote>id=quote>Também poder ser lido como: CC -> com cópia CCO -> com cópia oculta que dá na mesma citação:Querido MESTRE... id=quote>id=quote>Primeiramente vamos colocar cada um no seu lugar, oh! grande Balder*!!! *pra quem não sabe: BALDER: Na mitologia nórdica, é filho de Odin e Frigg, casado com Nanna. Seu palácio em Asgard chama-se Breidablik (Grande Esplendor). É também considerado um deus da sabedoria, tanto que se diz que a sua opinião não pode ser alterada, pois é sempre perfeita. citação:mandei outra versão...id=quote>id=quote>Agora com som e tudo... Está ficando divino (só podia, pra quem esqueceu, o cara é um deus, lembra?). kkk ------------------- João, Dá uma olhada na linha 1199... a variável "oDlgCadGru" Ou vc trocou o nome dela na função CadastraGru() ou vc a declarou como local. Na hora de criar um novo grupo está dando o erro de "variável não existe". No mais está perfeito. Ricardo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10, 2011 Report Share Posted February 10, 2011 citação: citação:CC CCO id=quote>id=quote>Também poder ser lido como: CC -> com cópia CCO -> com cópia oculta que dá na mesma citação:Querido MESTRE... id=quote>id=quote>Primeiramente vamos colocar cada um no seu lugar, oh! grande Balder*!!! *pra quem não sabe: BALDER: Na mitologia nórdica, é filho de Odin e Frigg, casado com Nanna. Seu palácio em Asgard chama-se Breidablik (Grande Esplendor). É também considerado um deus da sabedoria, tanto que se diz que a sua opinião não pode ser alterada, pois é sempre perfeita. citação:mandei outra versão...id=quote>id=quote>Agora com som e tudo... Está ficando divino (só podia, pra quem esqueceu, o cara é um deus, lembra?). kkk ------------------- João, Dá uma olhada na linha 1199... a variável "oDlgCadGru" Ou vc trocou o nome dela na função CadastraGru() ou vc a declarou como local. Na hora de criar um novo grupo está dando o erro de "variável não existe". No mais está perfeito. Ricardo. id=quote>id=quote>OK MESTRE, CORRIGIDO. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10, 2011 Report Share Posted February 10, 2011 Ricardo, na EXCLUSÃO DO ANEXO, ele não está refrescando a ListBox ( oList ) no primeiro CLICK do Botão, somente LIMPA a ListBox, quando se dá um segundo CLICK. De uma olhada por favor. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 10/02/2011 11:15:55 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10, 2011 Report Share Posted February 10, 2011 Ricardo, resolvido desta forma, favor comentar. //-> Exclusao do Anexo @ 173.00, 223 BUTTON oDel PROMPT( "E&xcluir " ) SIZE 50, 10 PIXEL ; ACTION( IIF( LEN( aAttach ) >= 1, ( oList:Del( nItem ), ; oList:Refresh() ), ; MsgInfo( "Sem Anexo(s) Para Excluir ", ; "Aviso" ) ) ) oDel:cToolTip := OemToAnsi( "Deletar(Apagar) Anexo(s) " ) id=code>id=code>Abraços João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 10, 2011 Author Report Share Posted February 10, 2011 João Não respondi antes porque estava fora (na rua...) O código ficou limpo... muito bom... e evitou uma função, o que é ótimo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10, 2011 Report Share Posted February 10, 2011 Ricardo, o que significa este .T., depois da porta? { "@hotmail.com", "smtp.live.com", 25, .T. } id=code>id=code>Obrigado. Abs. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted February 11, 2011 Author Report Share Posted February 11, 2011 citação:Ricardo, o que significa este .T., depois da porta? { "@hotmail.com", "smtp.live.com", 25, .T. } id=quote>id=quote>TLS/SSL necessário? sim (.t.) ou não(.f.) O Transport Layer Security (TLS) e o seu predecessor, Secure Sockets Layer (SSL), são protocolos criptográficos que provêem comunicação segura na Internet para serviços como e-mail (SMTP), navegação por páginas (HTTP) e outros tipos de transferência de dados. Ricardo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 11, 2011 Report Share Posted February 11, 2011 citação: citação:Ricardo, o que significa este .T., depois da porta? { "@hotmail.com", "smtp.live.com", 25, .T. } id=quote>id=quote>TLS/SSL necessário? sim (.t.) ou não(.f.) O Transport Layer Security (TLS) e o seu predecessor, Secure Sockets Layer (SSL), são protocolos criptográficos que provêem comunicação segura na Internet para serviços como e-mail (SMTP), navegação por páginas (HTTP) e outros tipos de transferência de dados. Ricardo. id=quote>id=quote>Kabra BOM!! Sabe tudo!! Desconfiei desde o principio. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 10, 2011 Report Share Posted March 10, 2011 Galera ajuda ai, Configurações Manuais Nome de Usuário do Servidor de Correio: vendas@dominio.com.br Servidor do Correio de Entrada(pop3): mail.dominio.com.br Servidor do Correio de SaÃda(Smtp): mail.dominio.com.br (servidor exige autenticação) port 587 Como eu declaro isto para o servidor?? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted March 10, 2011 Author Report Share Posted March 10, 2011 segue: oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "mail.dominio.com.br" :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 587 :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "usuario" :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "senha" :Update() END WITH id=code>id=code> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 10, 2011 Report Share Posted March 10, 2011 Obrigado pela resposta Ricardo. Ricardo, como fica aqui? http://www.4shared.com/photo/9ztbZ9bv/email1.html João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 10, 2011 Report Share Posted March 10, 2011 Ricardo, meu garoto, tá quase dominado. Problema, é que o SERVIDOR de email necessitava AUTENTICAÇÃO. Obrigado e forte abraço. Você é GRANDE!!! João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted March 10, 2011 Author Report Share Posted March 10, 2011 citação: tá quase dominado id=quote>id=quote>Oi João!!! Desculpe não ter respondido a última. É que cheguei em casa agora. Mas que bom que já encontrou o caminho. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.