IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

envoyer un email avec une PJ word


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2003
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2003
    Messages : 491
    Par défaut envoyer un email avec une PJ word
    Bonjour,

    Je souhaite via une feuille excel envoyer un email avec une pièce jointe en .txt
    Est ce possible ?

    J'ai un code mais il plante sur la ligne :
    MonMessage.Attachments.Add nomfich

    Voici le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Sub test()
      Dim MonOutlook As Object
      Dim MonMessage As Object
      Dim nomfich As String
      Dim Corps As String
      Set MonOutlook = CreateObject("Outlook.Application")
      Set MonMessage = MonOutlook.createitem(0)
     
    'faire une imput box demandant la commande à transmettre
     
    Sheets("Commandes").Select
    Range("I1").Select
    Cde = ActiveCell.Value
     
    Range("I3").Select
    Email = ActiveCell.Value
     
    myrep = "\\Serveur-caill\Documents\temporaire\Nicolas\Envoi_BA_par_email\Exple_Cde_clé_USB\20071106"
    nomfich = Dir(myrep & "\*" & Cde & "*.txt")
     
     
      MonMessage.To = Email
      MonMessage.Subject = "Lots de votre commande"
      Corps = "Bonjour," & vbCrLf & vbCrLf
      Corps = Corps & "Veuillez trouver ci-joint le fichier." & vbCrLf & vbCrLf & "Cordialement."
      MonMessage.body = Corps
      MonMessage.Attachments.Add nomfich
      MonMessage.Display
      SendKeys "^{ENTER}"
      Set MonOutlook = Nothing
    End Sub
    Merci d'avance pour votre précieuse aide

    Nini

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Je ne sais pas trop, mais à mon avis il ne doit pas aimer les * dans le nom de ton fichier.
    Enleves-les pour voir.

    Starec

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2003
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2003
    Messages : 491
    Par défaut
    Même chose sans les *


    Une autre idée ?

  4. #4
    Invité
    Invité(e)
    Par défaut
    Re

    Fais un debug.print ou affiche dans une message box le contenu de nomfich, pour voir si ce qu'il contient est cohérent.

    Starec

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2003
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2003
    Messages : 491
    Par défaut
    Il affiche en fait le nom du fichier que je souhaite en pj soit dans mon cas 13009.TXT

    Par contre, il n'affiche pas le chemin complet pour y accèder, alors peut-être que cela vient de là ?

  6. #6
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par liop49 Voir le message
    Il affiche en fait le nom du fichier que je souhaite en pj soit dans mon cas 13009.TXT

    Par contre, il n'affiche pas le chemin complet pour y accèder, alors peut-être que cela vient de là ?
    Eh oui, il ne peut trouver le fichier sans le répertoire.
    Fais une recherche sur les forums, tu trouveras comment le trouver.

    Starec

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Comment envoyer des emails avec une adresse Outlook?
    Par hamza_azerty dans le forum C#
    Réponses: 9
    Dernier message: 27/08/2014, 17h31
  2. Envoyer un email avec une image dans le corps du mail
    Par nitch01 dans le forum Langage
    Réponses: 1
    Dernier message: 04/01/2012, 08h36
  3. envoyer un email avec une pièce jointe
    Par stephanies_1977 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 05/09/2007, 20h53
  4. [FPDF] Créer un PDF et l'envoyer par email avec PHPMailer
    Par nico33307 dans le forum Bibliothèques et frameworks
    Réponses: 5
    Dernier message: 12/12/2005, 22h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo