Veri*Factu Capítulo 2...

Un proceso típico sería:

Const SXH_OPTION_SELECT_CLIENT_SSL_CERT = 3     Dim objHttp As Object, XMLDoc As Object     Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")     objHttp.Open "POST", sURL, False     objHttp.setRequestHeader "Content-Type", "text/xml;charset=UTF-8"     objHttp.SetOption SXH_OPTION_SELECT_CLIENT_SSL_CERT, CertificadoNombre     objHttp.send XmlMensajeEnvio              'bucle hasta que esté completa la transacción     Do Until objHttp.ReadyState = 4         DoEvents     Loop     Set XMLDoc = objHttp.responseXML

Obviamente, sin certificado la AEAT no te va a admitir el envío.

No conozco VB, pero básicamente VB y VBA son iguales y con este tipo de objetos más.

Estaría por jurar que sin cambiar nada lo que te he posteado furula en VB.

Gracias.... pero no... no funciona. Es un problema del objeto y no del certificado, que cuenta con la clave privada, de la FNMT etc etc etc. Un problemon la verdad!

Como lo estoy haciendo y no me gusta... desde PowerShell generado un ps1 y luego ejecutándolo...

Public Function VF_PostSoap( _
    ByVal xmlOrPath As String, _
    ByVal endpoint As String, _
    ByVal soapAction As String, _
    ByVal thumbprint As String, _
    Optional ByVal hasEnvelope As Boolean = True _
) As String
    Dim xmlBody As String
    xmlBody = IIf(FileExists(xmlOrPath), ReadAllText(xmlOrPath), xmlOrPath)

    Dim payload As String
    If hasEnvelope Then
        payload = xmlBody
    Else
        payload = BuildEnvelope(xmlBody)
    End If

    Dim tp As String
    tp = NormalizeThumb(thumbprint)

    ' 1) MSXML2.ServerXMLHTTP.6.0
    On Error GoTo try_powershell
    VF_PostSoap = Send_MSXML(endpoint, soapAction, payload, tp)
    Exit Function

try_winhttp:
    ' 2) WinHTTP
    On Error GoTo try_powershell
    VF_PostSoap = Send_WinHTTP(endpoint, soapAction, payload, tp)
    Exit Function

try_powershell:
    ' 3) Fallback PowerShell (comprobado que te da 200 OK)
    On Error GoTo fail_all
    VF_PostSoap = Send_PowerShell(endpoint, soapAction, payload, tp)
    Exit Function

fail_all:
    Err.Raise vbObjectError + 53001, "VF_PostSoap", _
        "Fallo en los 3 métodos (MSXML, WinHTTP y PowerShell):" & vbCrLf & _
        " - " & Err.Number & " / " & Err.description
End Function

UNA FRICADA DE LA OS...

Private Function Send_PowerShell(ByVal url As String, ByVal soapAction As String, _
                                 ByVal soapEnvelope As String, ByVal thumb As String) As String
    Dim tempDir As String
    tempDir = Environ$("TEMP")

    Dim fBody As String, fOut As String, fPs As String
    fBody = tempDir & "\vf_body_" & Replace(CStr(Timer), ".", "") & ".xml"
    fOut = tempDir & "\vf_resp_" & Replace(CStr(Timer), ".", "") & ".txt"
    fPs = tempDir & "\vf_send_" & Replace(CStr(Timer), ".", "") & ".ps1"

    WriteAllText fBody, soapEnvelope

    Dim ps As String
    ps = ""
    ps = ps & "$ErrorActionPreference='Stop'" & vbCrLf
    ps = ps & "$thumb='" & thumb & "'" & vbCrLf
    ps = ps & "$endpoint='" & url & "'" & vbCrLf
    ps = ps & "$soapAction='" & soapAction & "'" & vbCrLf
    ps = ps & "$body=[IO.File]::ReadAllText('" & fBody & "')" & vbCrLf
    ps = ps & "$resp=Invoke-WebRequest -Uri $endpoint -Method Post -Body $body -ContentType 'text/xml; charset=utf-8' -Headers @{SOAPAction=$soapAction} -CertificateThumbprint $thumb -UseBasicParsing" & vbCrLf
    ps = ps & "[IO.File]::WriteAllText('" & fOut & "',$resp.Content,[Text.Encoding]::UTF8)" & vbCrLf

    WriteAllText fPs, ps

    Dim cmd As String
    cmd = "powershell.exe -NoProfile -ExecutionPolicy Bypass -File " & Quote(fPs)
    
    Set cb = New MSForms.DataObject
    cb.SetText cmd
    cb.PutInClipboard
    Set cb = Nothing

    Dim sh As Object: Set sh = CreateObject("WScript.Shell")
    Dim rc As Long
    rc = sh.Run(cmd, 0, True)
    If rc <> 0 Then
        Err.Raise vbObjectError + 53031, "Send_PowerShell", "PowerShell devolvió código " & rc & " " & Err.description
    End If

    Send_PowerShell = ReadAllText(fOut)
    On Error Resume Next
    Kill fBody: Kill fOut: Kill fPs
End Function

ALGUNA SUGUERENCIA DE ALGUIEN? Como gestionáis los errores que os devuelve el ENPOINT de la AEAT, porque devuelve un XML...?

Los errores se tratan en funcion de una tabla de codigos de error: Este error viene en el .xml de respuesta(<tikR:CodigoErrorRegistro>2004</tikR:CodigoErrorRegistro>? incluyendo ademas una breve descripción de su estado(<tikR:EstadoRegistro>AceptadoConErrores</tikR:EstadoReg). Tambien devuelve el CSV (Codigo seguro de verificacion) <tikR:CSV>

Saludos:

Te recomiendo que la cola de envio sea de 60 segundos como se recomienda, y en funcion del tamaño del fichero enviado no tendras problemas. Si solo mandas un documento por envio, quiza no te de problemas pero si el envio contiene varias facturas empiezan los probemas.

Lo que no te comprendi es lo de enviar documento NO VERIFACTU, hasta donde se estos no se envian,

Saludos al grupo.

Por no hablar, fuera ya del nivel técnico, de lo ambigua que es la AEAT sobre quién está obligado y quién no. Quien haga sus facturas con Excel o Word, está exento de la norma. Pues nada, yo, que envío mis facturas en PDF por e-mail; si alguna vez me requieren el registro Verifactu, digo que no uso un programa SIF; que las hago todas individualmente con Word y las exporto a PDF y listos.