Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2997 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoyer tout le contenu d'un dossier a une boite email via outlook

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoyer tout le contenu d'un dossier a une boite email via outlook

n°955493
betsamee
Asterisk Zeperyl
Posté le 18-01-2005 à 15:14:34  profilanswer
 

Bonjour
J'aimerais pouvoir envoyer de maniere automatique tous les fichiers .doc contenus dans un repertoire a une boite email via outlook (en pieces jointes).
Le nombre des fichiers est variable , leur nom aussi.
Voyez vous une solutions

mood
Publicité
Posté le 18-01-2005 à 15:14:34  profilanswer
 

n°955494
skeye
Posté le 18-01-2005 à 15:16:36  profilanswer
 

Créer une archive du dossier et envoyer l'archive?


---------------
Can't buy what I want because it's free -
n°955502
betsamee
Asterisk Zeperyl
Posté le 18-01-2005 à 15:27:02  profilanswer
 

j'y ai pense mais le destinataire n'est pas du style a utiliser winzip/rar j'aimerais lui envoyer tous les fichiers (4 ou 5 maximum , des petits fichiers).
En fait j'aimerais trouver une fonction qui me permette de scanner tous les fichiers d'un repertoire (pour les attachers ce n'est pas un probleme)
Merci

n°955534
betsamee
Asterisk Zeperyl
Posté le 18-01-2005 à 15:48:48  profilanswer
 

faire un truc du style
dans un dossier specifier
pour chaque fichier dont le nom contient le caractere "_"
MonMail.Attachments.Add fichier...

n°956164
betsamee
Asterisk Zeperyl
Posté le 19-01-2005 à 11:02:08  profilanswer
 

je dois etre mauvais parceque je trouve vraiment pas comment faire

n°956196
betsamee
Asterisk Zeperyl
Posté le 19-01-2005 à 11:29:39  profilanswer
 

J'ai trouve je sais je suis pas tres bon mais is ca peut aider quelqu'un alors...
 
Set pres = CreateItem(olMailItem)
Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject" )
    Set f = fs.GetFolder(chemin)
    Set fc = f.Files
     
    pres.Recipients.Add "XXXX@XXXX.fr"
    pres.Subject = "XXXXXXXXXXXXXXXXXXXX"
     
    'scanne le fichier et attache tout ce qui doit l'etre
    'et transfere les courriers vers les archives
    For Each f1 In fc
        If InStr(1, f1.Name, "_" ) Then
        pres.Attachments.Add chemin & f1.Name
        FileCopy chemin & f1.Name, "chemin" & "Archive\" & f1.Name
        f1.Delete
        End If
        Next

n°956198
betsamee
Asterisk Zeperyl
Posté le 19-01-2005 à 11:30:25  profilanswer
 

pres.Body ="XXXXXXXXXXXXXX"
pres.Send

n°956200
betsamee
Asterisk Zeperyl
Posté le 19-01-2005 à 11:30:41  profilanswer
 

...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoyer tout le contenu d'un dossier a une boite email via outlook

 

Sujets relatifs
regexp sur email et hostnameParcourir le contenu d'un dossier
[JAVA] envoyer un message simultanement aux clientsouverture d'un fichier mp3 aléatoirement dans un dossier
Envoyer / Recevoir FichierImporter contenu csv ds une combo box
Réponse auto. avec Macro OutlookSupprimer un dossier "vide ou non vide"
envoyer un message du serveur à tous les clients 
Plus de sujets relatifs à : Envoyer tout le contenu d'un dossier a une boite email via outlook


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR