Re : creation d'un PDF puis envoye par email a une liste
Bonjour PMO2,
merci de votre aide, mais j'arrive pas a comprendre comment faire pour envoyer l'email ... tout ce que j arrive a faire c'est de faire apparaitre un userform avec la liste des employés ayant une adresse email et travaillant, j'arrive pas comprendre comment envoyer un mail avec un pdf de la semaine selectionner en fichier joint, aurais je louper qq chose ??
en tout cas merci beaucoup pour votre aide
cordialement
Poto
bonsoir,
voici une macro que je viens de pofiner pour mon projet et qui marche trés bien pour envoyer par mail un fichier en jpg ou xls.
Sub Macro_mail_maison()
Dim Plage As Range
Dim Types$, Client$, Fichier$, Numfact$, jour$, Client1$, Image$, Mail$
Const Chemin3 = "D:\Users\admin\Desktop\MENU_Factures\" ' mettre votre chemin de votre fichier
Application.ScreenUpdating = False
With Sheets("ta feuille") ' mettre le nom de votre feuille
jour = Format(Now, "ddmmyyyy")
Client = .Range("d4") ' nom du client
Client1 = .Range("c1") ' nom du dossier client
Numfact = .Range("d3") ' numéro automatique de la facture
Types = .Range("c3") ' devis ou facture sélection par un menu
Mail = .Range("f9") ' adresse mail selection par une macro
Fichier = jour & "_" & Types & "_" & Numfact & ".xls"
Image = jour & "_" & Types & "_" & Numfact & ".jpg"
'Sub EnvoiMail()
MsgBox "Execution de OUTLOOK OFFICE" & Chr(13) & "Envoi de la pièce jointe" & Chr(13) & Image ' ou xls
Dim MonOutlook As Object
Dim MonMessage As Object
Dim corps As String
Fichier = jour & "_" & Types & "_" & Numfact & ".jpg"
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = Mail
MonMessage.Subject = "" & Types & Numfact
corps = "Bonjour," & Chr(13) & "Veuillez trouver ci-joint le fichier " & Types & Numfact & "," & " en question." & Chr(13) & Chr(13) & "Merci de me valider par reponse à ce mail la bonne reception de celui-ci." & Chr(13) & Chr(13) & " Cordialement " & Chr(13) & " Christophe S. "
Monfichier = Chemin3
MonMessage.Attachments.Add Chemin3 & Client & "\" & Fichier
MonMessage.Body = corps
MonMessage.Display
Application.Wait (Now + TimeValue("0:00:30"))
SendKeys "%v", True ' Envoi du message
Set MonOutlook = Nothing
Set MonMessage = Nothing
End Sub
-----------------------------------------------------------
voila j'éspere que cela pourra t'aider un peux.
cordialement christophe