Risultati da 1 a 22 di 22

Discussione: Invia Email



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Invia Email

    Ciao a tutti

    Ho preso spunto dalla discussione di barchetta perchè avrei bisogno di inviare
    la tabella dinamica che aggiorno di volta in volta per email tramite il pulsante "invia Email".
    in modo che da msgbox, scrivo le email a cui voglio inviare il file in formato pdf.

    E la mia email da cui voglio inviare il file è da ............@gmail.com


    Grazie a tutti

    https://www.dropbox.com/s/9r6d6xscvy...mana.xlsm?dl=0
    windows 10
    Excel 2016

  2. #2

    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: Invia Email

    Ciao Nick

    Prova con questa macro associata al pulsante "Invia mail"

    Codice: 
    Private Sub CommandButton2_Click()
    Dim OutlookApp As Outlook.Application
        Dim MItem As Object
        Dim Recipient As String, Subj As String
        Dim Msg As String, Fname As String
        Dim dest As String
        dest = InputBox("Immettere indirizzo mail")
        Recipient = dest
        Subj = "Torneo"
        Msg = "In allegato rimettiamo PDF del torneo"
        Fname = Application.DefaultFilePath & "\" & _
          ActiveSheet.Name & ".pdf"
        ActiveSheet.Range("a1:g27").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname
        Set OutlookApp = New Outlook.Application
        Set MItem = OutlookApp.CreateItem(olMailItem)
        With MItem
          .To = Recipient
          .Subject = Subj
          .Body = Msg
          .Attachments.Add Fname
          .Display
          '.Send
        End With
        Set OutlookApp = Nothing
        Kill (Fname)
    End Sub
    Attenzione: Va attivata la libreria di Microsoft Outllook Object Library nell'editor di VBA in Strumenti, Riferimenti.

    Attualmente la macro visualizza solo l'anteprima della mail.

    Per spedirla devi togliere l'istruzione ".Display" e togliere l'apostrofo che è davanti a ".Send"

    A questo punto penso sia possibile eliminare il pulsante "Esporta in PDF" perché il tutto avviene con l'invio della mail.

    Ti allego il file

    http://www.filedropper.com/torneopar...lfinesettimana

    Fai sapere se era quello che volevi.

    Alfredo

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    ciao Alfrimpa

    in riferimenti trovo solo:

    outlookaddinlib.........
    outlookchangenotifier addin 1.0 type library.

    qual'è delle due????
    windows 10
    Excel 2016

  4. #4
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    scusa. ho sbagliato riga
    windows 10
    Excel 2016

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    e comunque questa liberia
    Microsoft Outllook Object Library

    non ce..............:186:
    windows 10
    Excel 2016

  6. #6
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    Praticamente quando clicco su invia email mi dice di devo fare la configurazione di outlook 2013

    io pensavo che si potesse collegare direttamente alla mia casella di posta di gmail come allegato e inviarlo automaticmente
    windows 10
    Excel 2016

  7. #7

    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: Invia Email

    Ciao Nick

    Se hai Outlook 2013 dovresti trovare Microsoft Outlook 15.o Object Library.

    Cerca bene perchè non vedo motivo per il quale non dovresti averla anche se non so se ci sono differenze tra Windows e Mac.

    In questo ti potrebbe essere d'aiuto Ges che mi pare abbia il Mac.

    Alfredo

  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: Invia Email

    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    io pensavo che si potesse collegare direttamente alla mia casella di posta di gmail come allegato e inviarlo automaticmente
    Su questo non ti so rispondere a me fa tutto il automatico senza che debba configurare alcunché (e pensa che io Outlook non lo uso da anni avendo una webmail Libero).

    Magari anche su questo Ges potrà essere più preciso.

    Alfredo

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    questa libreria e gia spuntata

    Microsoft Outlook 15.o Object Library.

    però ora mi dà questo errore di debug

    Set MItem = OutlookApp.CreateItem(olMailItem)

    come mai???
    windows 10
    Excel 2016

  10. #10

    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: Invia Email

    Ciao Nick

    Onestamente non saprei dirti; a me funziona tutto perfettamente.

    Ma l'errore te lo dà sul mio file? Che errore ti dà?

    Alfredo

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    si il tuo file

    mi dà errore di debug una volta immesso indirizzo email da spedire
    mi dà questo in giallo:

    Set MItem = OutlookApp.CreateItem(olMailItem)
    windows 10
    Excel 2016

  12. #12

    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: Invia Email

    Ciao Nick

    A questo punto ho esaurito le mie risorse e spero che qualcuno più esperto possa intervenire sul tuo caso.

    Per curiosità qual è nello specifico l'errore di debug che ti viene fuori?

    Alfredo

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    errore di run time '287'

    grazie alfrimpa

    ti ho fatto ammattire.............
    windows 10
    Excel 2016

  14. #14

    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: Invia Email

    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    errore di run time '287'

    grazie alfrimpa

    ti ho fatto ammattire.............
    No ma è che m'incazzo quando non riesco a capire.

    Fai un'altra prova (magari su un file vuoto) con questa macro e vedi che succede

    Codice: 
    Sub Send_Email_Using_VBA()
    Dim Email_Subject, Email_Send_From, Email_Send_To, _
    Email_Cc, Email_Bcc, Email_Body As String
    Dim Mail_Object, Mail_Single As Variant
    Email_Subject = "Trying to send email using VBA"
    Email_Send_To = "....."  <=== Qui tra le virgolette inserisci un indirizzo mail valido
    Email_Body = "Congratulations!!!! You have successfully sent an e-mail using VBA !!!!"
    On Error GoTo debugs
    Set Mail_Object = CreateObject("Outlook.Application")
    Set Mail_Single = Mail_Object.CreateItem(0)
    With Mail_Single
    .Subject = Email_Subject
    .To = Email_Send_To
    .cc = Email_Cc
    .BCC = Email_Bcc
    .Body = Email_Body
    .Display
    '.send
    End With
    debugs:
    If Err.Description <> "" Then MsgBox Err.Description
    End Sub
    Diceva Leonardo Da Vinci: "Provando e riprovando ogni torto si drizza" :167:

    Alfredo

  15. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    questo il file nuovo

    vedi te..............
    File Allegati File Allegati
    windows 10
    Excel 2016

  16. #16

    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: Invia Email

    Ciao Nicola

    A parte la cancellazione della seconda riga (che è in più hai dimenticato di toglierla) a me tutto funziona come deve

    Codice: 
    Sub CommandButton1_Click()
    'Sub Send_Email_Using_VBA() <===== Questa Riga va cancellata
    Dim Email_Subject, Email_Send_From, Email_Send_To, _
    Email_Cc, Email_Bcc, Email_Body As String
    Dim Mail_Object, Mail_Single As Variant
    Email_Subject = "Trying to send email using VBA"
    Email_Send_To = "nicola.renzi@gmail.com"
    Email_Body = "Congratulations!!!! You have successfully sent an e-mail using VBA !!!!"
    On Error GoTo debugs
    Set Mail_Object = CreateObject("Outlook.Application")
    Set Mail_Single = Mail_Object.CreateItem(0)
    With Mail_Single
    .Subject = Email_Subject
    .To = Email_Send_To
    .cc = Email_Cc
    .BCC = Email_Bcc
    .Body = Email_Body
    .Display
    End With
    debugs:
    If Err.Description <> "" Then MsgBox Err.Description
    End Sub
    Cancella la riga in rosso e riprova.

    Alfredo

  17. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    scusa Alimpra ma ora ti funziona cosi?
    File Allegati File Allegati
    windows 10
    Excel 2016

  18. #18
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    scusa Alimpra mo ora ti funziona cosi..................................
    File Allegati File Allegati
    windows 10
    Excel 2016

  19. #19

    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: Invia Email

    Si Nick a me funziona perfettamente.

    L'unica (piccola) cosa è che Outlook rimane sulla barra di stato (e non capisco perché) ma se lo massimizzi vedi l'anteprima della mail.

    Alfredo

  20. #20
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    a me dice
    errore definito dal' applicazione o dall' oggetto.

    mi dispiace ma ce qualcosa che ancora non funziona

    forse è un problema di pc
    windows 10
    Excel 2016

  21. #21

    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: Invia Email

    No non credo sia un problema di pc ma di software/configurazione (ma potrei anche sbagliarmi).

    Io a questo punto alzo le mani sperando che passi di qui qualche superesperto (scossa, cromagno, ges o altri dove siete? :167:)

    Il problema è che se non funziona solo a te gli altri come fanno gli altri a verificare.

    Penso che la persona più indicata a dir qualcosa in più sia Ges che ha Office 2011-2016 per Mac (ma non so che versione di Outlook).

    Alfredo

  22. #22
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Invia Email

    mi dispiace di averti fatto impazzire oggi
    stasera comunque voglio provare su un altro pc...
    per vedere se ci sono differenze
    windows 10
    Excel 2016

Discussioni Simili

  1. funzione se per confrontare le email
    Di stefanoste78 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 26/01/17, 17:27
  2. [Risolto] Invio email in automatico
    Di fauly nel forum Domande su Excel VBA e MACRO
    Risposte: 39
    Ultimo Messaggio: 29/12/16, 08:43
  3. [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
  4. Email
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 21/04/16, 23:47
  5. filtra salva ed invia
    Di ste75v nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 22/10/15, 23:27

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
  •