macro envoi fichier pdf via OUTLOOK 2007 ou 2010

bruiz

XLDnaute Nouveau
Config : OFFICE 200

Bonjour,

je sais que le sujet a déjà été traité mais je n'y connais rien en VBA.
Voilà mon pb.
J'ai un fichier excel qui génére un pdf et j'ai une macro qui doit envoyer via Outlook un mail avec le ficher pdf attaché.
Le mail ne doit pas partir en automatique, il suffit juste de lancer Outlook avec l'adresse mail récupérée dans le fichier excel et joindre le fichier pdf.
j'ai essayé ma macro (que j'ai pompé je ne sais où);
elle fonctionne sous office 2010 sans pb mais pas sous office 2007

je vous joins mon programme excel avec qques explications.
vous allez certainement trouver de grosses boulettes mais je n'ai pas votre niveau !!!

Un grand merci (si vous avez 5 mn vous pouvez regarder la macro sur la date qui ne fonctionne plus mais pourquoi???)





voir morceau de code plus bas:

la macro plante avec message erreur de compilation projet ou bibliothèque introuvable
la ligne qui apparemement pose pb est :

Set MailOutLook = appOutLook.CreateItem(olMailItem)

olMailItem est en bleu

Excusez moi pour ma nullité en VBA . Il existe peut-être une façon pour faire plus simple mais je n'y connais rien.

MErci d'avance pour votre aide précieuse CDLT


Sub Send_Mails()
' envoie de message via outlook

Dim appOutLook As Object

Dim MailOutLook As Object

Dim Fichier As String

Dim rep_fic As String

rep_fic = "C:\Factdavid\FICHIER_PDF\" & Range("nom_cli") & "." & Year(Range("date_facture")) & "-" & Month(Range("date_facture")) & "-" & Day(Range("date_facture")) & ".pdf"


Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

With MailOutLook

'où se trouve l'adresse du destinataire

.To = Worksheets("entete").Range("adr_mail")

.Subject = "Devis"

'.Body = "Ton message"
'Seulement si tu veux joindre un fichier

'If rep_fic <> "" Then
.Attachments.Add rep_fic
' End If

.Display
' pour envoie automatique
' .Send

End With

Set MailOutLook = Nothing
Set appOutLook = Nothing

End Sub
 

Pièces jointes

  • fichier_clients.xls
    151 KB · Affichages: 93
  • toto.xls
    316 KB · Affichages: 93
  • toto.xls
    316 KB · Affichages: 119
  • toto.xls
    316 KB · Affichages: 116

Discussions similaires

Réponses
2
Affichages
434

Statistiques des forums

Discussions
313 283
Messages
2 096 813
Membres
106 752
dernier inscrit
Tahiri1976