Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 50

Discussione: Inviare un pdf creato da excel via email



  1. #1
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Inviare un pdf creato da excel via email

    Buongiorno a tutti,
    ho questo script VBA che mi crea un pdf:

    Codice: 
    Sub SalvaInPDF()
    Dim ws As Worksheet
    Dim strIndirizzo As String
    Dim myFile As Variant
    Dim strFile As String
    On Error GoTo errHandler
    
    Set ws = ActiveSheet
    
    'apre la finestra di dialogo per il salvataggio dei file
    'la cartella di default è la stessa della cartella di excel
    strFile = Replace(Replace("Offerta" & "_" & [i5] & "_" & [E15] & "_" & "Cliente" & "_" & [B4] & "_" & "Rif" & "_" & [I4], " ", ""), ".", "_") _
    & "_" _
    & Format(Now(), "dd-mm-yyyy") _
    & ".pdf"
    
    strFile = ThisWorkbook.Path & "\" & strFile
    
    myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
    FileFilter:="PDF Files (*.pdf), *.pdf", _
    Title:="Seleziona la cartella e inserisci il nome del file da salvare")
    
    If myFile <> False Then
    ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    MsgBox "Il file PDF è stato salvato."
    End If
    
    exitHandler:
    Exit Sub
    errHandler:
    MsgBox "Non ho potuto salvare il file PDF"
    Resume exitHandler
    End Sub
    ora vorrei creare un tasto associato ad una macro per inviarlo direttamente ad un indirizzo email che si trova nella cella I13 con un oggetto che si trova nella cella E15.
    E' possibile farlo?
    Grazie

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1109
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Inviare un pdf creato da excel via email

    è possibile, se utilizzi gmail si può fare direttamente senza passare attraverso un programma di posta, altrimenti dicci quale client usi

  3. #3
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Si vorrei usare Outlook office 365

  4. #4
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Scusa...non uso gmail ma outlook e mi piacerebbe passare per questo....grazie

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    Ciao Corrado

    In attesa della proposta di Patel che saluto questa è una delle tante macro che si trovano in rete per l'invio di mail con Outlook

    Codice: 
    Public Sub InviaMail_Predefinita()
    Dim destinatario As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
    .to = PAPERINO@gmail.com 'inserire la mail del destinatario in TO
    .CC = inCC_PAPERINO@gmail.com 'inserire la mail del destinatario in CC
    .BCC = inBCC_PAPERINO@gmail.com 'inserire la mail del destinatario in BCC
    .Subject = "PROVA"
    .Body = "Ciao PAPERINO," & Chr(10) & _
    Chr(10) & "questa è una prova di invio" & _
    Chr(10) & _
    Chr(10) &"office-guru.com"
    .Attachments.Add ("C:\test1.txt") 'inserire il percorso ed il nome del file da allegare
    .Attachments.Add ("C:\test2.txt") 'inserire il percorso ed il nome del file da allegare
    '.Send 'per inviare subito la mail
    .Display 'per aprire e controllare la mail prima di inviarla manualmente
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    End Sub
    Codice estratto dal sito: Office-guru.com

    Ovviamente deve essere modificata secondo le tue necessità ed inoltre deve essere attivata la libreria di Microsoft Outlook nell'editor VBA in Strumenti, Riferimenti.
    Ultima modifica fatta da:ges; 06/12/17 alle 00:46
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  6. #6
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Intanto grazie provo....

  7. #7
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Sono scarsino con il VBA.....la libreria è attivata....ma non riesco a farlo funzionare

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    Citazione Originariamente Scritto da corradoverse Visualizza Messaggio
    Sono scarsino con il VBA.....la libreria è attivata....ma non riesco a farlo funzionare
    Ciao Corrado

    Non ti sembra un po' pochino dire solo questo?

    Allega il tuo file con la macro (modificata se l'hai modificata) e spiega bene quel che vuoi fare.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  9. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1109
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Inviare un pdf creato da excel via email

    io mi defilo in quanto non uso outlook e leggo la posta dal browser

  10. #10
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Ciao Alfredo...hai ragione...scusami.
    allora io ho questa VBA associato ad una macro:
    Codice: 
    Sub SalvaInPDF()
    Dim ws As Worksheet
    Dim strIndirizzo As String
    Dim myFile As Variant
    Dim strFile As String
    On Error GoTo errHandler
    
    Set ws = ActiveSheet
    
    'apre la finestra di dialogo per il salvataggio dei file
    'la cartella di default è la stessa della cartella di excel
    strFile = Replace(Replace("Offerta" & "_" & [i5] & "_" & [E15] & "_" & "Cliente" & "_" & [B4] & "_" & "Rif" & "_" & [I4], " ", ""), ".", "_") _
    & "_" _
    & Format(Now(), "dd-mm-yyyy") _
    & ".pdf"
    
    strFile = ThisWorkbook.Path & "\" & strFile
    
    myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
    FileFilter:="PDF Files (*.pdf), *.pdf", _
    Title:="Seleziona la cartella e inserisci il nome del file da salvare")
    
    If myFile <> False Then
    ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    MsgBox "Il file PDF è stato salvato."
    End If
    
    exitHandler:
    Exit Sub
    errHandler:
    MsgBox "Non ho potuto salvare il file PDF"
    Resume exitHandler
    End Sub
    Quando premo il tasto associato a questa macro, mi fa selezionare una cartella e salvare il folgio exel che mi interessa "OFFERTA" con delle celle specificate in pdf. A me servirebbe che: salvasse in pdf e allegasse il file ad una email, prendendo come campo to e oggetto, due celle del foglio OFFERTA (quello che salva in pdf).
    Ultima modifica fatta da:Gerardo Zuccalà; 12/09/16 alle 23:27 Motivo: Inserimento Codice VBA tra i TAG [CODE]

  11. #11

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    La macro che crea il pdf l'avevi già postata; devi allegare un file nel quale non riesci a far funzionare la macro che ti ho dato io.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  12. #12
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Codice: 
    Public Sub InviaMail_Predefinita()
    Dim destinatario As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
    .to = [I3]
    .CC = “”
    .BCC = “”
    .Subject = "PROVA"
    .Body = "Ciao PAPERINO," & Chr(10) & _Chr(10) & "questa è una prova di invio" & _Chr(10) & _Chr(10) &"office-guru.com"
    .Attachments.Add ("C:\Users\Avant House\Documents\test1.txt")'.Display '
    per aprire e controllare la mail prima di inviarla manualmente
    
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    End Sub
    Codice estratto dal sito: Office-guru.com
    Questa è la tua che ho porvato a modificare....non mi funziona neanche se al posto di [I3] metto un indirizzo email qualsiasi, in più non capisco come faccio ad allegare il pdf che ho generato con la macro precedente.....
    Ultima modifica fatta da:ges; 06/12/17 alle 00:46 Motivo: Inserimento codice VBA tra i tag CODE

  13. #13

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    Ora devo uscire.

    Ci dobbiamo riaggiornare a domani.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  14. #14
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Grazie!

  15. #15

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    Ma ti invito nuovamente ad allegare un tuo file di esempio
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  16. #16
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1109
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Inviare un pdf creato da excel via email

    corrado, quando incolli una macro su forum la devi selezionare e cliccare sul tag # altrimenti viene visualizzata male e non si capisce se hai sbagliato qualcosa oppure no.
    non basta dire che non funziona, occorre dire quale errore ed in quale linea, se poi ti decidi ad allegare il file possiamo testare anche noi

  17. #17
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Scusate.....domani provvedo.....
    ciao

  18. #18
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: Inviare un pdf creato da excel via email

    Scusate se mi intrometto, ma ti correggo il codice, scritto in modo errato

    Codice: 
    Public Sub InviaMail_Predefinita()
    Dim destinatario As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
    .to = [I3]
    .CC = “”
    .BCC = “”
    .Subject = "PROVA"
    .Body = "Ciao PAPERINO," & Chr(10) & _Chr(10) & "questa è una prova di invio" & _Chr(10) & _Chr(10) &"office-guru.com"
    .Attachments.Add ("C:\Users\Avant House\Documents\test1.txt")
    .Display 'per aprire e controllare la mail prima di inviarla manualmente
    
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    End Sub
    Codice proveniente dal sito: Office-guru.com
    rammentandoti di mettere sempre il codice tra i 2 oremendo su #
    Ultima modifica fatta da:ges; 06/12/17 alle 00:45
    Avvisi generali e importanti, pena CHIUSURA thread e/o BAN. Il crossposting è vietato. Le richieste di "pappa pronta" sono vietate. Utilizzate i tag CODE per il codice. Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.



  19. #19
    L'avatar di iliomil
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Siracusa
    Età
    53
    Messaggi
    60
    Versione Office
    2010 - 2013
    Likes ricevuti
    11
    Likes dati
    33

    Re: Inviare un pdf creato da excel via email

    Amici buonasera!

    Come mi disse il buon Berna qualche tempo fa, più soluzioni ci sono per raggiungere lo stesso obiettivo più grande diventa il nostro bagaglio.
    Non sto qui ad elencare gli amici dai quali ho attinto quel poco che oggi ho imparato, è ovvio che noi stessi partecipiamo ad una sorta di catena di S. Antonio.
    Oggi chiedo, domani, volontà permettendo, offrirò il mio supporto. Ed eccomi qui
    Il codice allegato, come altri che ho già postato, lo utilizzo giornalmente in caserma per varie attività ed è funzionale alla richiesta di Corrado.
    Non è farina del mio sacco, ma ho inserito delle modifiche per le mie attività d'ufficio.
    Esso crea, con un unica procedura, un file PDF, chiede/propone il percorso di salvataggio e compila il nome file prelevando il dato da una cella (A11, modificabile secondo esigenza).

    Corrado, mi sembra di capire, è un foglio appena scritto come me riguardo il VBA, ed ha bisogno di essere guidato un po di più.

    Questi i passaggi per Corrado:

    1. Attivare il riferimento alla libreria di Outlook (segui i passaggi)
      • dal foglio Excel attivo premi i pulsanti ALT+F11
      • l'editor è attivo - Menu Strumenti (oppure ALT+S) e click su Riferimenti
      • cerca, nell'elenco visualizzato in ordine alfabetico, Microsoft Outlook xx Object Library (dove xx è la versione del tuo Office)
      • click sulla scelta della libreria, premi ok.

    2. Incolla il codice proposto in un nuovo modulo, se preferisci, e testa premendo il pulsante F5 della tastiera.
    3. porta a termine il test d'invio con Outlook per essere sicuro che tutto è ok (prova ad inviarti una mail).


    Codice: 
    Sub MailFoglioAttivoInPDF()'
    ' Macro MailFoglioAttivoInPDF
    ' http://www.mrexcel.com/
    ' adattata alle esigenze del caso
    ' 13 settembre 2016
    
    
        Dim OutApp As Object
        Dim OutMail As Object
        Dim v As Variant
        
        ' piccolo inserimento per soddisfare la richiesta di Corrado.
        ' Prelevo i dati destinatario e oggetto dalle celle indicate. Ricorda: la procedura lavora sul foglio attivo!
        
        MailDestinatario = Range("I13")     ' è presumibile l'impiego di un indirizzo mail
        MailOggetto = Range("E15")          ' oggetto della mail
        
        ' propone il nome file prelevato dalla cella indicata del foglio attivo. E' solo un esempio di cella, variare secondo esigenza
        v = Application.GetSaveAsFilename(Range("A11").Value, "PDF Files (*.pdf), *.pdf")
             
        If VarType(v) <> vbString Then Exit Sub
         
        If Dir(v) <> "" Then
            ' controlla se il file esiste già e propone la scelta
            If MsgBox("Nome File esistente - vuoi sovrascriverlo?", vbYesNo, "File Esistente") = vbNo Then Exit Sub
        End If
        
        ' elabora il foglio attivo per la successiva esportazione in formato PDF
        With ActiveSheet
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=v, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=3, OpenAfterPublish:=False ' Se preferisci visualizzare anche il PDF, setta OpenAfterPublish su True
        End With
    
    
    ' attiva un istanza di posta elettronica
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    
        On Error Resume Next
        With OutMail
            .To = MailDestinatario  ' abbiamo prelevato il dato dalla cella I13
            .CC = ""
            .BCC = ""
            .Subject = MailOggetto  ' abbiamo prelevato il dato dalla cella E15
            
            ' il corpo del messaggio può contenere un testo preformattato. Se non necessario, cancellare l'esempio proposto.
            '.Body = ""
            
            .Body = "In allegato, si invia il file in formato PDF della situazione richiesta."
            
            .Attachments.Add v      ' allega il file PDF prodotto precedentemente
            .Display                ' visualizza il contenuto della mail prima di inviarla
        End With
        
        On Error GoTo 0
        
        Set OutMail = Nothing
        Set OutApp = Nothing
    
    
    
    
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End Sub
    Corrado, that's all! .
    Fai sapere come è andata.
    Saluti a tutti!

    Ilio

    p.s.:Se preferisci utilizzare il codice postato da te per la creazione del PDF, adattalo all'interno di quello proposto da me e testalo.
    Ultima modifica fatta da:iliomil; 13/09/16 alle 03:23 Motivo: Precisazione

  20. #20
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Grazie!
    ehs i sono alle prime armi con il VBA e non ci capisco nulla...ma vorrei usarlo per andare oltre in excle....
    Provo e vi faccio sapere

  21. #21
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Grazie funziona perfettamente ed è proprio quello che mi serviva volevo chiederti ancora un paio di cosette....

    1) ma se volessi che il nome del file in pdf invece di essere solo A11 fosse composto da più celle? è possibile?

    Codice: 
      v = Application.GetSaveAsFilename(Range("A11").Value, "PDF Files (*.pdf), *.pdf")
    2) e' possibile personalizare il body della mail cona alcuni riferimenti di cella? tipo

    Codice: 
    .Body = "Buongiono Sig, ("B5"), In allegato, le invio offerta relativa ai prodotti ("e15") ecc....."
    Grazie in anticipo!!!

  22. #22
    L'avatar di iliomil
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Siracusa
    Età
    53
    Messaggi
    60
    Versione Office
    2010 - 2013
    Likes ricevuti
    11
    Likes dati
    33

    Re: Inviare un pdf creato da excel via email

    Corrado buongiorno.

    Nel frattempo che si trovi una soluzione alle ultime modifiche che hai chiesto e, soprattutto, per rispettare le regole del Forum e quanto richiesto da Alfredo, allega il tuo file d'esempio. Elimina eventuali dati sensibili in modo che si possa lavorare su qualcosa di concreto, cioè sul tuo reale foglio. In questo modo, costringi anche me a testare quanto chiedi su un mio progetto.
    Non è un richiamo, ma una regola che deve essere seguita nello spirito del Forum, in modo che altri utenti che hanno le stesse necessità possano usufruire delle uguali possibilità date a te. Infatti credo che, parte del codice di salvataggio in PDF, tu lo abbia attinto da questo forum, giusto?
    E allora, come diciamo in Sicilia...."allèstiti" (muoviti, sbrigati) con l'allegare il tuo file

    Ilio

  23. #23

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    @ Corrado

    Per i due problemi che hai detto devi utilizzare l'operatore di concatenamento "&".

    Non ti dico di più per stimolarti un po'

    Le cose che si imparano da soli sono quelle che non si dimenticano più.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  24. I seguenti utenti hanno dato un "Like"


  25. #24
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Eh si ho provato ma non mi funziona...
    ho porvato sia a farlo puntare in una cella dove o concatenato i valori sia a mettere:
    Codice: 
    v = Application.GetSaveAsFilename(Range("A11"&"E15").Value, "PDF Files (*.pdf), *.pdf")
    Per il file da allegare....purtoppo è costituito da un listino di pordotti non pubblici che non posso pubblicare

  26. #25
    L'avatar di iliomil
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Siracusa
    Età
    53
    Messaggi
    60
    Versione Office
    2010 - 2013
    Likes ricevuti
    11
    Likes dati
    33

    Re: Inviare un pdf creato da excel via email

    Citazione Originariamente Scritto da corradoverse Visualizza Messaggio
    ...Per il file da allegare....purtoppo è costituito da un listino di pordotti non pubblici che non posso pubblicare
    L'ho fatto io con pratiche militari, credimi, lo puoi fare anche tu clonando il tuo file.

    Ilio

  27. #26
    L'avatar di corradoverse
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    roma
    Età
    44
    Messaggi
    32
    Versione Office
    10
    Likes ricevuti
    1

    Re: Inviare un pdf creato da excel via email

    Allego file esempio

  28. #27

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    Non credo sia la sintassi corretta; prova con

    Codice: 
    v = Application.GetSaveAsFilename(Range("A11").Value & Range("E15").Value, "PDF Files (*.pdf), *.pdf")
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  29. I seguenti utenti hanno dato un "Like"


  30. #28
    L'avatar di iliomil
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Siracusa
    Età
    53
    Messaggi
    60
    Versione Office
    2010 - 2013
    Likes ricevuti
    11
    Likes dati
    33

    Re: Inviare un pdf creato da excel via email

    Alfredo buongiorno anche a te.
    Il codice da te proposto funziona egregiamente.
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Codice: 
    v = Application.GetSaveAsFilename(Range("A11").Value & Range("E15").Value, "PDF Files (*.pdf), *.pdf")
    Suggerirei uno spazio nel concatena, oppure un underscore per migliorare la leggibilità
    Codice: 
    v = Application.GetSaveAsFilename(Range("A11").Value & " " & Range("E15").Value, "PDF Files (*.pdf), *.pdf")

  31. #29

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Inviare un pdf creato da excel via email

    Si certo Ilio era una "finezza" cui non avevo pensato (e dire che lo faccio sempre )
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  32. I seguenti utenti hanno dato un "Like"


  33. #30
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Inviare un pdf creato da excel via email

    .
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

Discussioni Simili

  1. Calcolare a che ora inviare un'email in diversi stati - fusi orari
    Di stefanoste78 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 26/12/16, 23:28
  2. [Risolto] come selezionare e inviare riga via email
    Di LUISA2010 nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 16/11/16, 11:56
  3. Creare un eseguibile ed inviare via email
    Di Marius44 nel forum Domande su Microsoft Power Point
    Risposte: 26
    Ultimo Messaggio: 27/09/16, 09:28
  4. Inviare Email multiple con Excel
    Di miccarm nel forum Domande su Excel in generale
    Risposte: 29
    Ultimo Messaggio: 24/08/16, 20:02
  5. Inviare email automaticamente da elenco excel
    Di KARLO16 nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 04/08/16, 18:59

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •