Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 4 123 ... ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 34

Stampa unione Word e Excel

  1. #1
    giuseppeg6 non  in linea Novello
    Buongiorno, ho bisogno di una cortesia praticamente io ho una lettera Word, un file excel con 3000 contatti, all'interno del file excel, ho il codice lettera il nome del destinatario e l'email del destinatario e poi c' tutto il testo. Io vorrei inviare con stampa Unione questo file che una volta programmato con stampa Unione nell'invio ai destinatari gli dovrebbe arrivare in pdf. Ho guardato tantissimi video ma ho fatto solo tanta confusione chi pu darmi un aiuto? Grazie

  2. #2
    Ferrari_and non  in linea Scolaretto
    Non coniscendo il tu livello l'unica soluzione script vba

    https://www.forumexcel.it/forum/thre...lizzato.37643/

    Prova a vedere in questo link

  3. #3
    giuseppeg6 non  in linea Novello
    Non conosco la materia, ma devo risolvere in qualche modo..nel link che mi avete postato, ho preso entrambi i file e li ho modificati con i miei dati. adesso per vedere se funziona cosa devo fare?

  4. #4
    giuseppeg6 non  in linea Novello
    ho provato a scrivere in questa macro solo che mi da errore ...Tipo definito dall'utente non definito..

    Sub Un_pdf()
    'Application.ScreenUpdating = false
    'creo un oggetto outlook
    Dim obj As New Outlook.Application
    'oggetto che rappresenta l’email
    Dim item As Outlook.MailItem
    'instanzio l’oggetto
    Set item = obj.CreateItem(Outlook.OlItemType.olMailItem)
    
    'Crea un oggetto FileDialog per scegliere la cartella in cui salvare i file
    
    Dim fd As FileDialog
    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
    
    'Imposta la variabile oggetto a Nothing
    Set fd = Nothing
    Application.ScreenUpdating = False
    MainDoc = ActiveDocument.Name
    ChangeFileOpenDirectory selectedpath
    For i = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
    'istanzio l’oggetto item per l’email
    Set item = obj.CreateItem(Outlook.OlItemType.olMailItem)
    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 = .DataFields("COD_FORNITORE").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——-
    '‘—-corpo del testo——-
        messaggio = "Spett. " & .DataFields("DECO_FORNITORE").Value & vbCrLf & vbCrLf & "Inviamo in allegato l'informativa del consenso sul trattamento dei dati, da restituire firmata." & vbCrLf & vbCrLf & "Distinti Saluti" & vbCrLf & "Ditta"
    
    '‘—-oggetto del messaggio email—–
        SoggettoEmail = "Invio informativa Privacy"
    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 outlook
    'imposto il destinatario
    item.To = EmailAddress
    'imposto il corpo del messaggio
    item.Body = messaggio
    'imposto l’oggetto del messaggio
    item.Subject = SoggettoEmail
    'allegato
    Set allegato = item.Attachments
    allegato.Add pdfallegato
    'invio l’email
    item.Send
    'item.Display
    Set item = Nothing
    Next i
    
    Application.ScreenUpdating = True
    End Sub
    
    Ultima modifica di AntonioG; 15-12-2020 07:56 

  5. #5
    Usa i tag code per il codice sul forum.

    Per usare un oggetto Outlook.Application devi aggiungere i riferimenti alla libreria.
    ℹ️ Leggi di pi su AntonioG ...

  6. #6
    giuseppeg6 non  in linea Novello
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Usa i tag code per il codice sul forum.

    Per usare un oggetto Outlook.Application devi aggiungere i riferimenti alla libreria.
    Grazie...gentilmente mi potresti dire dove e cosa? Perdonami ma sono a zero..sto diventando matto..

  7. #7
    Non questione di scusarti o meno. Questo un forum tecnico. Devi avere le basi per poter comprendere i suggerimenti.

    I riferimenti li aggiungi da menu Riferimenti dell'editor di Visual Basic.
    ℹ️ Leggi di pi su AntonioG ...

  8. #8
    L'avatar di Master85
    Master85 ora  in linea Moderatore Globale Ultimo blog: Eclipse: Un IDE per PHP e Python
    Quote Originariamente inviato da giuseppeg6 Visualizza il messaggio
    Perdonami ma sono a zero..sto diventando matto..
    Ciao Giuseppe, benvenuto in MasterDrive.it. Come avrai gia' letto dal nostro regolamento, in questa community e' molto importante:

    - Avere una conoscenza base sulla programmazione e sugli strumenti utilizzati.
    - Non chiedere la soluzione, bensi' suggerimenti e consigli.
    - Non fare cross-posting con altri forum, che significa aprire lo stesso messaggio in due forum diversi.

    Rinnovo ancora una volta il benvenuto, e ti auguro una buona permanenza in questa community

  9. #9
    giuseppeg6 non  in linea Novello
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Non questione di scusarti o meno. Questo un forum tecnico. Devi avere le basi per poter comprendere i suggerimenti.

    I riferimenti li aggiungi da menu Riferimenti dell'editor di Visual Basic.
    Esiste una parte del forum per principianti? Non voglio continuare a scrivere su una parte di forum per esperti.

  10. #10
    No, non esistono parti diverse. Questa non una sezione per esperti, il forum aperto a tutti con un "minimo" di basi.
    ℹ️ Leggi di pi su AntonioG ...

+ Rispondi al messaggio
Pagina 1 di 4 123 ... 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