Mail avec pièces jointes variables

Bonjour,

Voici une macro qui permet d’envoyer un mail avec des pièces jointes.

Je veux mettre des destinataires en destinataire en CC (Copie Carbone) et Cci (Copie Carbone invisible). Cela ne fonctionne pas, tous sont en destinataires principales. Je ne vois pas ou peuvent se situer mes erreurs ?

D’une autre part, je voudrai ajouter des pièces jointes quel que soit l’extension du nom du fichier qui se trouve dans un dossier. Où faut-il que je modifie dans la macro ?

Merci de votre aide.

88mailpj.zip (15.48 Ko)
sophang a écrit :

Bonjour,

Voici une macro qui permet d’envoyer un mail avec des pièces jointes.

Je veux mettre des destinataires en destinataire en CC (Copie Carbone) et Cci (Copie Carbone invisible). Cela ne fonctionne pas, tous sont en destinataires principales. Je ne vois pas ou peuvent se situer mes erreurs ?

c'est normal, tu ne donnes une valeur qu'à la variable Msgto. Si tu veux envoyer en mode CC et CCi tu dois mettre une valeur dans les variables msgcc et msgcci

D’une autre part, je voudrai ajouter des pièces jointes quel que soit l’extension du nom du fichier qui se trouve dans un dossier. Où faut-il que je modifie dans la macro ?

Merci de votre aide.

il ne faut pas modifier la macro, il suffit de modifier les noms de fichiers en colonne C et de mettre la bonne extension.

Bonjour h2so4,

J’ai pu résoudre mon premier problème grâce à tes conseils. Voici ce que j’ai modifié au début de la macro :

Sub envoi_PJ()
    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook
    '---  Envoi par mail
    Dim olapp As Outlook.Application
    Sheets("destinataires").Select
    [A11].Select
    Do While Not IsEmpty(ActiveCell)
      MsgTo = MsgTo & ActiveCell & ";"
    [A12].Select
      MsgCC = MsgCC & ActiveCell & ";"
    [A13].Select
      MsgBCC = MsgBCC & ActiveCell & ";"

Par contre, pour mon second problème, c’est que la pièce jointe a un nom variable. Le fichier « Compta.xls » se trouve dans un dossier « C:\Service comptabilité\mailpj.xls\Opérations Comptables\ Compta du 14.01.2016.xls ». Ce fichier « Compta.xls » change de date chaque jour.

Je ne veux pas modifier à chaque fois le nom du fichier à la colonne C.

Cordialement.

bonjour

proposition de correction en pièce jointe. adaptation du code et du nom de fichier en colonne C.

à tester

79mailpj.zip (13.11 Ko)

ça ne fonctionne pas et je ne comprends pas pourqoui

j'ai le message "Erreur de compilation : Projet ou bibliothèque introuvable" à la ligne 3, Colonne 22

répertoireAppli =

Bonjour

essaie avec cette version-ci

65mailpj.zip (13.94 Ko)

Bonjour,

Hélas, j'ai toujours le même message d'erreur

Bonsoir,

une autre version

67mailpj.zip (15.69 Ko)

si cela ne fonctionne toujours pas, peux-tu mettre le fichier qui donne cette erreur ?

Juste avant attachment, mets un debug.print nf et regarde bien si le fichier est bien celui recherché !

Bonjour h2SO4,

J'ai essayé le dernier fichier que tu as modifié, et j'ai le message d'erreur : "Erreur de compilation : Projet ou bibliothèque introuvable", à la ligne 5, colonne 22 :

MsgTo


Steelson a écrit :

Juste avant attachment, mets un debug.print nf et regarde bien si le fichier est bien celui recherché !

Bonjour Steelson,

Comme ceci ? çà ne fonctionne pas.

 msg.debug.Print nf; Attachments.Add; Source

Non, sur une ligne séparée

Sinon remplace par un MsgBox nf

Voici la macro, mais j'ai toujours le message d'erreur suivant : "Erreur de compilation : Projet ou bibliothèque introuvable" à

répertoireAppli =

Je suis perdu là..

Sub envoi_PJ()
    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook
    '---  Envoi par mail
    Dim olapp As Outlook.Application
    Sheets("destinataires").Select
    [A11].Select
    Do While Not IsEmpty(ActiveCell)
        MsgTo = MsgTo & ActiveCell & ";"
        [A12].Select
        MsgCC = MsgCC & ActiveCell & ";"
        [A13].Select
        MsgBCC = MsgBCC & ActiveCell & ";"
    Loop
    Dim msg As MailItem
    Set olapp = New Outlook.Application
    Set msg = olapp.CreateItem(olMailItem)
    msg.To = MsgTo
    msg.CC = MsgCC
    msg.BCC = MsgBCC
    msg.Subject = [A2]
    msg.Body = [A5] & Chr(13) & Chr(13) & Chr(13) & [A6] & Chr(13) & Chr(13) & Chr(13) & [A8].Value & Chr(13) & Chr(13)
    '-- pj
    [C8].Select
    Do While Not IsEmpty(ActiveCell)
        f = Dir(ActiveWorkbook.Path & "\" & ActiveCell.Value)
        While f <> ""
        nf = ActiveWorkbook.Path & "\" & f
        msg.Attachments.Add Source:=nf
        f = Dir()
        Wend
        ActiveCell.Offset(1, 0).Select
    Loop
    msg.Display
End Sub

J'ai l'impression de ne pas avoir toutes les informations, car chez moi ceci fonctionne bien ;

Sub envoi_PJ()

    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook

MsgBox répertoireAppli

End Sub

Y a t'il unoption explicit? et as-tu déclaré répertoireAppli ?

Bonjour Steelson,

Ce code ci dessous ne fontionne pas, çà bloque toujours à "répertoireAppli =".

Option Explicit

Sub envoi_PJ()

    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook

MsgBox répertoireAppli

End Sub

Ajoute une déclaration

Dim répertoireAppli as String

Bonjour,

une nouvelle version, si cela ne fonctionne pas peux-tu joindre le fichier avec lequel tu as l'erreur ?

18mailpj.zip (15.63 Ko)
h2so4 a écrit :

Bonjour,

une nouvelle version, si cela ne fonctionne pas peux-tu joindre le fichier avec lequel tu as l'erreur ?

Bonjour h2so4,

Avec ton fichier, j'ai le message d'erreur "Erreur de compilation, Projet ou bibliothèque introuvable" à

olMailItem

en ligne 13, Col 42.

Steelson a écrit :

Ajoute une déclaration

Dim répertoireAppli as String

Steelson,

Où dois-je l'ajouter cette variable ?

un nouvel essai

41mailpj.zip (15.66 Ko)

Bonjour h2so4,

Avec ton dernier fichier, j'ai le message : "Erreur de compilation, Projet ou bibliothèque introuvable" en Li 16, Col 33 à

Chr

Coridalement.

Rechercher des sujets similaires à "mail pieces jointes variables"