Sviluppare funzionalita su Microsoft Office con VBA Invia a email con allegato in pdf, cerco aiuto sulla modifica di un codice

LoginRegistrati
Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
  • Autore
    Articoli
  • #28139 Risposta
    Maurizio
    Maurizio
    Partecipante

      Buongiorno a tutti, ho un codice VBA che funziona perfettamente, la macro mi invia una email, scrive alcune cose e mi allega in pdf una scheda.

      io avrei la necessità di allegare più schede in pdf. inserisco qui sotto il codice e chiedo aiuto a tutti. ringrazio anticipatamente.

      Sub PDFOUTLOOK_allianz()
      Dim AppMail As Object 'Outlook.Application
      Dim NewMail As Object 'Outlook.Application
      Dim miaDir
      Dim MioWBK As Workbook
      Dim MioSheet As Worksheet
      Dim Nome As String
      Dim Cognome As String
      Dim indirizziTO As String
      Dim IndirizziCC As String
      Dim NomeFile As String
      Dim Oggetto As String
      Dim Testo As String

      Set MioWBK = ActiveWorkbook
      Set MioSheet = ActiveWorkbook.Sheets("richiesta_VM")
      miaDir = MioWBK.Path
      Nome = MioSheet.Range("d4")
      Targa = MioSheet.Range("j10")
      NomeFile = "Richiesta per conducente " & Nome & "_" & Targa & ".pdf"

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      miaDir & "/" & NomeFile, Quality:= _
      xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False

      On Error Resume Next
      Set AppMail = GetObject(, "Outlook.Application")
      If Err.Number <> 0 Then
      Err.Clear
      Set AppMail = CreateObject("Outlook.Application")
      AppMail.Session.Logon

      If Err <> 0 Then
      MsgBox "Could not load Outlook", vbOKOnly + vbInformation, "Error report"
      End
      End If
      End If
      indirizziTO = MioSheet.Range("n2")
      IndirizziCC = MioSheet.Range("o1")
      Set NewMail = AppMail.CreateItem(0)

      Oggetto = "Spettabile Allianz"
      Testo = "Richiesta preventivo per: " & Nome & " " & Targa & vbCrLf
      Testo = Testo & "Invio la documentazione allegata:" & vbCrLf
      Testo = Testo & " - " & NomeFile & vbCrLf & vbCrLf
      Testo = Testo & "Distinti saluti RVASA SA" & vbCrLf

      With NewMail
      .To = indirizziTO
      .CC = IndirizziCC
      .Subject = Oggetto
      .body = Testo & .body
      .Attachments.Add miaDir & "/" & NomeFile
      .Display
      End With

      NewMail.SEND
      Range("B23").Select
      ActiveCell.FormulaR1C1 = "Allianz inviato"
      Range("B23").Select
      End Sub

       

      #28151 Risposta
      Luca73
      Luca73
      Partecipante
        31 pts

        Ciao,

         mi sembra di conoscere il codice in oggetto.....  

        Dove sono allocati file che vuoi aggiugere? come si chiamano? Come li vuoi selezionare?

        Al momento la macro allega un file "Richiesta per conducente " + Nome (che prende in D4) + Targa (che prende in J10) e che si chiama che sta nella directory dove è salvato il file excel. Tale file pdf è stato creato esportando il foglio attivo e dandogli il nome sopra riportato.

        Se dai più informazioni ... 

      LoginRegistrati
      Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
      Rispondi a: Invia a email con allegato in pdf, cerco aiuto sulla modifica di un codice
      Gli allegati sono permessi solo ad utenti REGISTRATI
      Le tue informazioni:



      vecchio frac - 2750 risposte

      albatros54
      albatros54 - 1009 risposte

      patel
      patel - 976 risposte

      Marius44
      Marius44 - 848 risposte

      Luca73
      Luca73 - 720 risposte