[RESOLU]Macro envoi Mail avec pièce jointe en PDF

Sub SendWithAtt()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille.pdf "
CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "xxx@gmail.com"
.CC = "name2@domain2.com"
.Subject = "Main courante Flashover"
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile
'.Attachments.Add "c:\My Documents\book.doc"
.Display '.Send
End With
MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."
 
' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub

Sub SendWithAtt2()  ' Nécessite la référence : Microsoft Outlook 1x Object Library
  Dim olApp As Outlook.Application
  Dim olMail As MailItem
  Dim CurFile As String
  Dim LigneDep As Long
  ' Définir les variables objet nécessaires
  Set olApp = New Outlook.Application
  Set olMail = olApp.CreateItem(olMailItem)
  ' Initialiser les variables
  LigneDep = 96
  Index = LigneDep
  'Boucle sur la liste
  While Worksheets("synthese").Cells(Index, 3).Value <> ""
    'on renseigne B1 avec la valeur
    Range("b1").Value = Cells(Index, 3).Value


    NomFichier = Range("b1").Value & "- NOM DU FICHIER"


    ' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille .pdf "
    CurFile = ThisWorkbook.Path & "\" & Cells(Index, 3).Value & " - ETAT ENVELOPPE DGF.Pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False




    With olMail
      .To = "PRENOM.NOM@GMAIL.COM"
      .Subject = "test envoi fichier"
      .Body = "Vous trouverez ci-joint le fichier PDF ..."
      .Attachments.Add CurFile
      '.Attachments.Add "c:\My Documents\book.doc"
      .Send
      'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
    End With
    'on passe à la ligne suivante
    Index = Index + 1
  Wend
  ' APRES l'exécution du code sur toutes les lignes
  ' Effacer les variables objets
  Set olMail = Nothing
  Set olApp = Nothing
End Sub

.To = "PRENOM.NOM@GMAIL.COM"

Sub nouvelleentreeOI()

'Libération des variables
Set ObjOutlook = Nothing

Dim olApp As Outlook.Application
Dim olmail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olmail = olApp.CreateItem(olMailItem)

Application.ScreenUpdating = False
    Range("A1:K53").Select
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Bon de commande" & "     " & Range("I3") & Range("G7")

With olmail
     .To = Range("G15")
     .Subject = "Bon de commande" & "     " & Range("I3")
     .Body = "Bonjour," & vbCrLf & "Ci joint Bon de commande." & vbCrLf & "Cordialement." & vbCrLf & " XXX. "
     .Display
End With

Set olmail = Nothing
Set olApp = Nothing

Set MaMessagerie = Nothing
'MsgBox "votre mail a bien été envoyé"
End Sub