Ir para conteúdo
Fórum Script Brasil

Gneccao

Membros
  • Total de itens

    28
  • Registro em

  • Última visita

Sobre Gneccao

Gneccao's Achievements

0

Reputação

  1. já utilizei PhpMailer, mas gostaria de fazer uma de socket mais para aprendizado doque uso.
  2. Boa noite, Estou tentando enviar email via Socket, ate ai tudo bem o email chega e tudo certo, o problema aparece quando tento enviar um anexo, tentei varias formas. mudei os Content do email e mesmo assim o email aparece sem anexo e com as informacoes do anexo no body. Gostaria de uma luz ou uma ajuda pra enviar body + anexo. Funcao Enviar Anexo private function getAdd() { for($x = 0; $x < $this->CountAnexo(); $x++) { $info = pathinfo($this->_anexo[$x]); $type = $this->ReturnType($info['extension']); $value = "--" . $this->_boundary . "\r\n" . "Content-Type: " . $type . "; name=\"". $info['filename'] . "\"" . "\r\n" . "Content-Transfer-Encoding: base64" . "\r\n" . "Content-Disposition: attachment; filename=\"" . $info['filename'] . "\"" . "\r\n" . "\r\n" . base64_encode(file_get_contents($this->Anexos[$x])) . "\r\n\r\n" . "--" . $this->_boundary . "--"; if($this->sendPack($value,'',0xFF) === false) { return false; } } return true; } $pack = 'Subject: ' . $this->_emailSubject . "\r\n" . 'To: <' . implode('>, <', $this->_emailTo) . '>' . "\r\n" . "Date: " . date("d M y H:i:s") . "\r\n" . "MIME-Version: 1.0" . "Content-Type: multipart/mixed; boundary=" . $this->_boundary . '--' . $this->_boundary . "\r\n" . "Content-Type: text/html; charset=UTF-8"; if($this->sendPack($pack,'',0xFF) === false) { return false; } if($this->sendPack($this->_emailBody,"\r\n",0xFF) === false) { return false; } if($this->getAdd() === false) { return false; } o Arquivo vem assim Testando Email --ab97b2a151282b7a887f87b2cea99f55 Content-Type: application/rar; name="oi" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="oi" oi.rar --ab97b2a151282b7a887f87b2cea99f55 obrigado
  3. Obrigado, mais uma vez, o problema era que ele realmente ativava o protege na celula toda vez que entrava..tirei isso e funcionou.. obrigado.
  4. Nossa, eu esqueci completamente disso... IAUSDHIAUDHSIUA obrigado mesmo, eu testei diversas coisas e esquecia de tirar o " ", mas alem de tirar as " " é necessario colocar variavel.adress. obrigado.
  5. Estou fazendo uma macro na qual apartir de um InputBox, ele me gera um range e esse range ele salva como html, já consegui fazer quase tudo, o unico problema é no qual quando eu seleciono o range e coloco a varaivel que recebe o range, na funcao o mesmo, da erro de tipo de variavel. Sub teste() Dim variavel As Range Set variavel = Application.InputBox(prompt:="Região a ser selecionada:", _ Title:="Box do Excel", Type:=8) With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Users\Gnee\Desktop\salva_teste.htm", "Plan1", "variavel", xlHtmlStatic, _ "salva_teste_650", "") .Publish (True) .AutoRepublish = False End With End Sub quando uso um range manual invez da variavel, ele acerta, exemplo: "i10:g20"
  6. Prefere que eu dinimua a planilha deixando so a funcao que acusa erro?
  7. Da planilha controle para a resolvida, quando usa o formulario do botao Retornar
  8. Deu o Mesmo erro. Link AKi O Problema ta quando tento usar o fomrulario de retorno, ele que ocasiona o erro..
  9. Ola, usando o seguinte codigo Application.EnableEvents = False Sheets("resolvidas").Unprotect "12312" ActiveCell.Range("A1:AM1").Copy Destination:=Sheets("resolvidas").Range("A3") Sheets("resolvidas").End(xlDown).Offset(1, 0).Paste ActiveCell.Range("S1:AM1").ClearContents Sheets("resolvidas").Protect "12312" Application.EnableEvents = True aprensenta o seguinte erro na linha Sheets("resolvidas").End(xlDown).Offset(1, 0).Paste "O Objeto não aceita eta propriedade ou método"
  10. Opa, brigado pela resposta, tive que ficar ausente durante um tempo e so agora, eu consegui ver a resposta. Tentei colocar o seu script, mas o mesmo retorna o seguinte erro: "Não é possivel obter a Propriedade Select da classe Range"
  11. Boa Tarde, tenho uma planilha no Excel que quando um usuario aperta um botão, ele pega a linha selecionada e recorta ela e cola em uma outra aba. O problema é que o Código retorna o Erro quando você clica a primeira vez, mas se você clicar novametne, ele roda sem apresentar problemas. segue o Código Abaixo, ele apresenta erro, apenas as vezes. ActiveCell.Range("A1:AM1").Select Selection.Copy Sheets("resolvidas").Select Range("A3").Select ActiveSheet.Unprotect "12312" Application.EnableEvents = False Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell = valmax + 1 ActiveCell.Range("B1:AM1").Select ActiveSheet.Paste Sheets("Controle").Select ActiveCell.Range("S1:AM1").Select Selection.ClearContents
  12. Boa Noite, Tenho um Formulario, no qual ao apertar um botao, ele carrega + 1 campo dinamicamente, so que tenho uma function que completa 1 campo apartir do valor desses campos que são adicionados dinamicanete, o problema que não sei como passar o id dos campos, pois o mesmo tem como name="pecas[]" id="pecas[]", por causa do [ ] que utilizo para adicionar, não consigo passar o nome. alguém poderia me ajudar? Segue os Scripts <script> Jquery(function() { var linh2 = Jquery('tbody#add_km tr').size(); if(linh2 == 0) { document.getElementById('adicionar_km').style.display = \"\"; alert(linh2); } else { var linha = Jquery('tbody#add_km tr').html(); Jquery('tbody#add_km').append('<tr>' + linha + '</tr>'); } }); </script> <tbody id="add_km"> <tr id="adicionar_km" style="display: none;"> <td width="25%"> De: <input type="text" name="De[]" /> </td> <td width="25%"> Para: <input type="text" name="Para[]" /> </td> <td width="25%"> Km: <input type="text" name="km[]" onblur="somar_km(this,'??????')" /> </td> <td width="25%"> Valor: <input type="text" name="valor_km[]" readonly="readonly" id="valor_km[]"> </td> </tr> </tbody> Grato
  13. eu acabei usando um outro metodo, funciona mas não é muito bom, mas no momento ta funcionando obrigado
×
×
  • Criar Novo...