Problema invio PEC da vba

di il
7 risposte

Problema invio PEC da vba

Salve a tutti,
ho un problema in merito all'invio delle PEC cui mi restituisce sempre "Il trasporto non è riuscito a connettersi al server"
Utilizzo la stessa funzione per l'invio delle email ordinarie maa modificando i relativi parametri
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = SendUsing 'NTLM method
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SmtpServer
    .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = SmtpServerPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = SmtpAutenticate
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SmtpUsesSl
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SmtpConnectionTimeOut
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SendUsername
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SendPassword
    .Update
End With
La procedura tramite una serie di dlookup attribuisce i valori alla configurazione sopra riportata ed ho provato ad inviare PEC sia tramite un dominio POSTE si Aruba ma l'esito è sempre il medesimo

Per PostaCert ho utilizzato i seguenti parametri
SendUsing : 2
SmtpServer: mail.postecert.it
SmtpServerPort: 465
SmtpAuthenticate: 1
SmtpUsesSl: True
SmtpConnectionTimeOut: 60
SendUsername: Login
SendPassword: Password

in cosa erro?

7 Risposte

  • Re: Problema invio PEC da vba

    Io uso le stesse istruzioni quindi magari rivedi i valori che passi
    altra cosa, se hai una serie di lookup ed immaginando che queste info vengano recuperate da una tabella di setup, perchè piuttosto non apri un recordset una sola volta, attribuisci direttamente i valori dai campi del recordset e poi lo chiudi?
    
    set rs=dbengine(0)(0).openrecordset("select ... from yourEmailTableSetup where eventualeFiltro",dbOpenSnapshot, dbReadOnly)
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = rs!SendUsing 'NTLM method
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = rs!SmtpServer
        .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = rs!SmtpServerPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = rs!SmtpAutenticate
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = rs!SmtpUsesSl
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = rs!SmtpConnectionTimeOut
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = rs!SendUsername
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = rs!SendPassword
        .Update
    End With
    rs.close
    set rs=nothing
    
  • Re: Problema invio PEC da vba

    muttley005 ha scritto:


    Io uso le stesse istruzioni quindi magari rivedi i valori che passi
    altra cosa, se hai una serie di lookup ed immaginando che queste info vengano recuperate da una tabella di setup, perchè piuttosto non apri un recordset una sola volta, attribuisci direttamente i valori dai campi del recordset e poi lo chiudi?
    
    set rs=dbengine(0)(0).openrecordset("select ... from yourEmailTableSetup where eventualeFiltro",dbOpenSnapshot, dbReadOnly)
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = rs!SendUsing 'NTLM method
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = rs!SmtpServer
        .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = rs!SmtpServerPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = rs!SmtpAutenticate
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = rs!SmtpUsesSl
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = rs!SmtpConnectionTimeOut
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = rs!SendUsername
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = rs!SendPassword
        .Update
    End With
    rs.close
    set rs=nothing
    
    grazie mille per il consiglio, devo provarci...però ho verificato i parametri ma nulla, continua a segnalarmi il problema riportato in calce...cos'altro potrei verificare? o devo abilitare qualcosa nella mia casella pec per poter inviare PEC da un applicazione esterna?
  • Re: Problema invio PEC da vba

    Sei sicuro che arrivino i valori giusti alle variabili?
    dovrebbe essere scontato ma non si sa mai ... hai fatto debug?
    tipo se metti un debug.print di ogni valore/parametro corrisponde a ciò che ti aspetti?
  • Re: Problema invio PEC da vba

    muttley005 ha scritto:


    Sei sicuro che arrivino i valori giusti alle variabili?
    dovrebbe essere scontato ma non si sa mai ... hai fatto debug?
    tipo se metti un debug.print di ogni valore/parametro corrisponde a ciò che ti aspetti?
    sisi, generalmente dopo le varie tirate di orecchie iniziali, ho iniziato a fare il debug prima di pubblicare domande
    Però si, in ordine dei valori del primo messaggio, ricevo le seguenti info dalle variabili che riporto per una più semplice visulizzazione

    Per PostaCert ho utilizzato i seguenti parametri
    SendUsing : 2
    SmtpServer: mail.postecert.it
    SmtpServerPort: 465
    SmtpAuthenticate: 1
    SmtpUsesSl: True
    SmtpConnectionTimeOut: 60
    SendUsername: Login
    SendPassword: Password
     2 
    mail.postecert.it
     465 
     1 
    Vero
     60 
  • Re: Problema invio PEC da vba

    Io passo tramite aruba ma a parte chiaramente il server smtp il resto coincide quindi direi corretto ... se usr/pwd lo sono mi viene da pensare che tu debba abilitare qualcosa nella pec e non da vba ... ma a questo punto spero ti possa venire in soccorso qualcuno perchè lì mi fermo
  • Re: Problema invio PEC da vba

    muttley005 ha scritto:


    Io passo tramite aruba ma a parte chiaramente il server smtp il resto coincide quindi direi corretto ... se usr/pwd lo sono mi viene da pensare che tu debba abilitare qualcosa nella pec e non da vba ... ma a questo punto spero ti possa venire in soccorso qualcuno perchè lì mi fermo
    Grazie mille per il supporto, attendo fiducioso l'intervento dei mostri sacri
  • Re: Problema invio PEC da vba

    zio Ken ha scritto:


    muttley005 ha scritto:


    Io passo tramite aruba ma a parte chiaramente il server smtp il resto coincide quindi direi corretto ... se usr/pwd lo sono mi viene da pensare che tu debba abilitare qualcosa nella pec e non da vba ... ma a questo punto spero ti possa venire in soccorso qualcuno perchè lì mi fermo
    Grazie mille per il supporto, attendo fiducioso l'intervento dei mostri sacri
    perdonatemi se riscrivo ma sono ad un punto morto...esperienze in merito?
Devi accedere o registrarti per scrivere nel forum
7 risposte