Jump to content
Fivewin Brasil

Edu

Membros
 View Profile  See their activity

  • Posts

    126

  • Joined

  • Last visited

  • Days Won

    3

 Content Type 

Posts posted by Edu

  3. Erro ao enviar e-mail via CDOMessage

    in Programação

    Posted

    Kapiaba,

    Eu vi todos os posts e o erro continua. Onde estou errando?

    Segue o código:

    Function SendMailCDO()
    LOCAL objMsg, cHtml
    LOCAL msgConf
    //' Server Configuration
    TRY
    msgConf := CreateObject("CDO.Configuration")
    WITH OBJECT msgConf:Fields
    :Update()
    END WITH
    CATCH oError
    MsgInfo("Configuration instance object error " + ";" + CRLF+ ;
    "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + CRLF+;
    "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + CRLF+ ;
    "OSCode: "+ TRANSFORM(oError:OsCode, NIL) + ";" + CRLF +;
    "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" +CRLF+ ;
    "Message: " + oError:Description )
    END
    //' Email
    TRY
    objMsg := CreateObject("CDO.Message")
    WITH OBJECT objMsg
    :Configuration = msgConf
    :From = "sistemas.cyclonet@gmail.com"
    :To = "eduardo.sp6@gmail.com"
    :Subject = "Test send with Gmail account"
    :TextBody = "Teste"
    :MDNRequested = .F. // Indicates whether a Message Disposition Notification is requested on a message.
    :Send()
    END WITH
    // objMsg:Send()
    CATCH oError
    MsgInfo("Could not send message" + ";" + CRLF+ ;
    "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + CRLF+;
    "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + CRLF+ ;
    "OSCode: "+ TRANSFORM(oError:OsCode, NIL) + ";" + CRLF +;
    "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" +CRLF+ ;
    "Message: " + oError:Description )
    END
    Return nil

  6. Erro ao enviar e-mail via CDOMessage

    in Programação

    Posted

    Prezados,

    Bom dia!

    Não estou conseguindo enviar e-mail via CDO.Message. O erro diz que não encontrou o método [send()].

    Obs.: O registro da cdosys.dll está ok!

    Tentei utilizar a HB_SendMail(), onde me retorna o seguinte erro no log:

    20150902-12:09:45 :INETRECVLINE( 1723924, , 512 )
    >> 530 5.7.0 Must issue a STARTTLS command first. d60sm1547769qga.30 - gsmtp <<
    Tentei utilizar a classe TSmpt, onde não retorna erro algum porém não envia a mensagem.
    Alguém teria uma solução?

  11. Assinatura digital de xml (Resolvido)

    in Programação

    Posted

    Boa tarde senhores!

    Estou implementando a rotina responsável pela assinatura de documentos xml, que obtive no projeto HBNFE e estou tendo problemas.

    Gostaria da ajuda de vocês.

    O erro ocorre quando vou selecionar o nó Signature. Conforme linha abaixo:

    xmldsig:signature := oDOMDoc:selectSingleNode(".//ds:Signature")

    Descrição do Erro:

    Application
    ===========
    Path and name: C:\SISTEMAS\BANCO DBF\Ferramentas-NFS-e\Menunfse.EXE (32 bits)
    Size: 2,673,664 bytes
    Time from start: 0 hours 0 mins 4 secs
    Error occurred at: 20/07/2015, 16:08:22
    Error description: Error MSXML2.DOMDocument.5.0/3 DISP_E_MEMBERNOTFOUND: SELECTSINGLENODE
    Args:
    [ 1] = C .//ds:Signature
    Stack Calls
    ===========
    Called from: source\rtl\win32ole.prg => TOLEAUTO:SELECTSINGLENODE(0)

  12. Executar funções de DLL

    in Programação

    Posted

    Boa tarde Rochinha!

    Primeiramente obrigado pela resposta. Acompanho seus posts e sei que você conhece muito. Obrigado pela explicação!

    Bom, eu consegui resolver aqui. Após muitas pesquisas e um pouco de perseverança consegui fazer minha dll funcionar com o Fivewin.

    Só pra constar que meu conhecimento na plataforma .NET é básico, mas vou tentar explicar mais ou menos o que fiz.

    Ao invés de criar a classe normalmente, eu pesquisei sobre COM Objects e lembrei que o fivewin tem suporte á esses objetos. "Graças a Deus!".

    Então criei um COM Class no VB.NET, criei também uma assinatura Assembly para que o registro da dll no windows não apresentasse erros.

    Resumindo, consegui registrar a dll no windows e estou utilizando sem problemas.

    Instancio minha classe com o comando: CreateObject() e executo os metodos sem problemas.

    Não preciso mais carregar a dll com LoadLibrary() e declarar "DLL32 FUNCTION..."

    Se for do seu interesse ou dos demais, eu posto um tutorial aqui.

    Forte abraço.

  13. Executar funções de DLL

    in Programação

    Posted

    Bom dia pessoal!

    Eu desenvolvi uma dll no visual basic 2013 e não consigo executar as funções, está retornando NIL. Alguém já fez coisa parecida e pode me ajudar?

    Código Fivewin:

    #include "Fivewin,ch"

    FUNCTION MAIN()

    PUBLIC xDll:= LoadLib32("nomedadll.dll")

    lRet:= RetornaStr()
    ? lRet
    FreeLibrary(xDll)
    RETURN NIL
    DLL32 FUNCTION RetornaStr() AS STRING PASCAL LIB xDll

  23. Cabeçalho do arquivo xml

    in Programação

    Posted

    Prezados,



    Bom dia.



    Estou criando um arquivo xml e não estou conseguindo alterar o cabeçalho com a codificação desejada.


    Já pesquisei e não encontrei uma solução.



    Segue o código:



    * Cria novo documento xml

    oXml:= TXMLDocument():New()


    * Cabecalho

    oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' ))



    * Tag Principal do arquivo

    oNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' )



    oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' )


    oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' )

    oNode3:cData:= ::nID

    oNode2:AddBelow(oNode3)



    oNode:AddBelow(oNode2)



    oXml:oRoot:AddBelow(oNode) // Add a tag eSocial


    * Cria o arquivo


    hFile := FCREATE( ".\evS-1020.xml" )


    IF hFile != -1

    oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES )

    Fclose( hFile )

    ELSE

    MsgInfo("Falha ao criar o arquivo de envio do evento S-1020", "Atenção")

    ENDIF


    ******************************************************

    Resultado:



    <?xml version="1.0"?>

    <?xml version="1.0" encoding="UTF-8"?>

    <eSocial>

    <evtTabLotacao>

    <id>0001</id>

    </evtTabLotacao>

    </eSocial>


    Alguém pode me ajudar???

×
×
  • Create New...