Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 2 di 4 primaprima 1234 ultimoultimo
Visualizzazione dei risultati da 11 a 20 su 34

Stampa unione Word e Excel

  1. #11
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Post
    6,239
    Like Inviati  
    21
    Like Ricevuti  
    11
    Quote Originariamente inviato da giuseppeg6 Visualizza il messaggio
    Esiste una parte del forum per principianti?
    No, ma esiste un 'comportamento' da principianti:

    quando ti ricevi un consigliato di fare una cosa, prima di tutto devi documentarti su quella cosa,
    nel caso specifico devi fare una ricerca sul web con:

    riferimenti vba

    e ti si apre un mondo di informazioni.
    Ed è così che pian piano da principiante si diventa un po' più esperto.
    Come abbiamo fatto tutti.
    ℹ️ Leggi di più su gibra ...

  2. #12
    giuseppeg6 non è in linea Novello
    Post
    15
    Like Inviati  
    5
    Like Ricevuti  
    0
    buonasera, sono di ritorno, al forum, ho risolto con l'invio delle email ma mi da questo errore se è possibile avere una risposta, in giro per internet ho trovato varie risposte ma nessuna al mio problema.
    .Execute Pause:=False
    Application.ScreenUpdating = False
    
    End With
    
    ActiveDocument.ExportAsFixedFormat OutputFileName:=DocName, _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
    ActiveWindow.Close SaveChanges:=False
    '---------------invia tramite GMAIL---------------
        Set objEmail = CreateObject("CDO.Message")
        Set objConf = objEmail.Configuration
        Set objFlds = objConf.fields
    'configura le impostazioni per l'invio
        With objFlds
    
    image hosting
    Ultima modifica di giuseppeg6; 17-12-2020 20:07 

  3. #13
    Post
    17,509
    Blogs
    6
    Like Inviati  
    6
    Like Ricevuti  
    35
    Questo errore? Ma quale?

    E cosa hai postato? Non si capisce
    ℹ️ Leggi di più su AntonioG ...

  4. #14
    giuseppeg6 non è in linea Novello
    Post
    15
    Like Inviati  
    5
    Like Ricevuti  
    0
    lancio la macro e dopo un pò mi esce l'errore sopra indicato, poi cliccando su debug mi da di colore giallo la parte del codice racchiuso tra <b>... ho disattivato anche il firewall e non ho nessun antivirus..quello che non riesco a capire perchè a volte mi manda 10 email e a volte solo 5 ...se può essere più completo questo è il codice


    Sub Unisci_gmail()
    
    Dim objEmail, objConf, objFlds, vrtSelectedItem, selectedpath, MainDoc, msConfigURL
    Dim messaggio, SoggettoEmail, PDFallegato, mailServer, mailusername, mailpassword, mailto, MailSubject, mailBody, SMTPport, DocName, EmailAddress As String
    Dim i As Integer, fd As FileDialog
    
    
    
    
        Const cdoSendUsingPort = 2  ' usa SMTP per l'invio
        Const cdoBasicAuth = 1      ' autenticazione clear text
        Const cdoTimeout = 60       ' Timeout SMTP in secondi
        msConfigURL = "http://schemas.microsoft.com/cdo/configuration"
    '-------------configura qui i parametri di autenticazione e di invio--------------------
         
         ' indirizzo server SMTP
         mailServer = "smtp.gmail.com"
         ' Porta SMTP
         SMTPport = 465     '25 o 465
         ' Indorizzo email per il login
         mailusername = "MIAEMAIL@gmail.com"
         'password per il login
         mailpassword = "PASS"
         
    'inizia procedura per la selezione della cartella di destinazione
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
    'Usa il metodo Show per mostrare la finestra di dialogo e restituire l'azione dell'utente
    If .Show = -1 Then
    For Each vrtSelectedItem In .SelectedItems
    'vrtSelectedItem è una stringa che contiene l'indirizzo di ogni elemento selezionato.
    'E' possibile usare qualsiasi funzione di I/O sui file utilizzando questo indirizzo.
    selectedpath = vrtSelectedItem
    Next vrtSelectedItem
    Else
    MsgBox ("Nessuna cartella è stata selezionata.")
    Exit Sub
    End If
    End With
    '-----------prepara il documento
    Application.ScreenUpdating = False
    MainDoc = ActiveDocument.Name
    ChangeFileOpenDirectory selectedpath
    
    'inizia la routine di creazione e invio per ogni singolo indirizzo email in tabella
    For i = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
    'instanzio l'oggetto item per l'email
    With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
    .FirstRecord = i
    .LastRecord = i
    .ActiveRecord = i
    'Utilizza alcuni campi del file sorgente per impostare il nome del file pdf
    'IMPORTANTE: tali campi vanno personalizzati in base a quelli effettivamente
    'presenti nella sorgente dati
    '-----attenti alle righe seguenti: nel database DEVE essere presente il campo denominato "nome e cognome"----
    '-----ed inoltre un campo denominato "email"-------
    DocName = "Lettera_" & .DataFields("nome_e_cognome").Value & ".pdf"
    EmailAddress = .DataFields("email").Value
    ' prendiamo il percorso completo del file da allegare
    PDFallegato = selectedpath & "\" & DocName
    '----attenti a questa riga: personalizzate a piacimento il messaggio, inteso come corpo del testo-------
    messaggio = "Gentile " & .DataFields("nome_e_cognome").Value & " Le inviamo in allegato la comunicazione."
    '----attenti a questa riga: qui mettete l'oggetto del vostro messaggio email-----
    SoggettoEmail = "Invio comunicazione"
    End With
    
    .Execute Pause:=False
    Application.ScreenUpdating = False
    
    End With
    
    ActiveDocument.ExportAsFixedFormat OutputFileName:=DocName, _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
    ActiveWindow.Close SaveChanges:=False
    '---------------invia tramite GMAIL---------------
        Set objEmail = CreateObject("CDO.Message")
        Set objConf = objEmail.Configuration
        Set objFlds = objConf.fields
    'configura le impostazioni per l'invio
        With objFlds
        
            .Item(msConfigURL & "/sendusing") = cdoSendUsingPort
            .Item(msConfigURL & "/smtpserver") = mailServer
        .Item(msConfigURL & "/smtpserverport") = SMTPport
        .Item(msConfigURL & "/smtpusessl") = True
            .Item(msConfigURL & "/smtpconnectiontimeout") = cdoTimeout
        .Item(msConfigURL & "/smtpauthenticate") = cdoBasicAuth
        .Item(msConfigURL & "/sendusername") = mailusername
        .Item(msConfigURL & "/sendpassword") = mailpassword
            .Update
        End With
    'invia il messaggio e l'allegato
        objEmail.To = EmailAddress
        objEmail.From = mailusername
        objEmail.Subject = SoggettoEmail
        objEmail.TextBody = messaggio
        objEmail.AddAttachment PDFallegato
        objEmail.Send
        ' se ci sono altri indirizzi in coda riprendi la routine, altrimenti esci dal ciclo
    Next i
    
    'Fine spedizione, concludi procedure
        Set objFlds = Nothing
        Set objConf = Nothing
        Set objEmail = Nothing
        MsgBox "i " & i - 1 & "documenti sono stati inviati", vbOKOnly
    End Sub
    
    Ultima modifica di giuseppeg6; 17-12-2020 20:25 

  5. #15
    Post
    17,509
    Blogs
    6
    Like Inviati  
    6
    Like Ricevuti  
    35
    Ah ora si legge l'errore... che è chiaro.... sembra che si stia salvando il file su uno già esistente di sola lettura.

    Controlla i nomi dei file utilizzati e la presenza di file con lo stesso nome già esistenti.
    Ultima modifica di AntonioG; 17-12-2020 20:24 
    ℹ️ Leggi di più su AntonioG ...

  6. #16
    giuseppeg6 non è in linea Novello
    Post
    15
    Like Inviati  
    5
    Like Ricevuti  
    0
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Ah ora si legge l'errore... che è chiaro.... sembra che si stia salvando il file su uno già esistente di sola lettura.

    Controlla i nomi dei file utilizzati e la presenza di file con lo stesso nome già esistenti.
    già l'ho fatto e nella cartella dove salva il file pdf non riesco a capire quale sia il file visto che ogni volta che da errore ho svuotato la cartella...ho provato anche a dare un elenco di nomi uno differente da l'altro.

  7. #17
    Post
    17,509
    Blogs
    6
    Like Inviati  
    6
    Like Ricevuti  
    35
    Quando ti dà l'errore visualizza il nome del file nella finestra di debug con

    Print DocName
    ℹ️ Leggi di più su AntonioG ...

  8. #18
    giuseppeg6 non è in linea Novello
    Post
    15
    Like Inviati  
    5
    Like Ricevuti  
    0
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Quando ti dà l'errore visualizza il nome del file nella finestra di debug con

    Print DocName
    non c'è nessun nome

  9. #19
    Post
    17,509
    Blogs
    6
    Like Inviati  
    6
    Like Ricevuti  
    35
    Beh è questo l'errore.
    ℹ️ Leggi di più su AntonioG ...

  10. #20
    giuseppeg6 non è in linea Novello
    Post
    15
    Like Inviati  
    5
    Like Ricevuti  
    0
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Beh è questo l'errore.
    alla faccia... ok aspetterò vicino al pc.

+ Rispondi al messaggio
Pagina 2 di 4 primaprima 1234 ultimoultimo

Potrebbero interessarti anche ...

  1. Risposte: 0
    Ultimo Post: 13-01-2016, 12:01
  2. [EXCEL] Stampa unione in word
    Da Schummy nel forum Microsoft Excel
    Risposte: 35
    Ultimo Post: 23-08-2009, 11:27
  3. stampa unione word + excel
    Da sandro1492 nel forum Microsoft Excel
    Risposte: 1
    Ultimo Post: 01-12-2008, 20:42
  4. Stampa unione WORD-EXCEL...Troppi dati?
    Da Guerriero nel forum Microsoft Excel
    Risposte: 5
    Ultimo Post: 28-11-2006, 17:49
  5. [EXCEL] Problema stampa unione EXCEL-WORD
    Da McFrunze nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 22-05-2006, 17:41