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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoi automatique mail avec PJ via thunderbird

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoi automatique mail avec PJ via thunderbird

n°2054548
haroye2
Posté le 05-02-2011 à 15:54:34  profilanswer
 

Bonjour,  
Dans le cades de mon travail, je dois envoyer régulièrement des fichier PDF aux collectivités. Je souhaiterais que ces envois se fassent automatiquement ou quasi...  
Je pense procéder ainsi :  
 - Enregistrer les fichiers PDF comme tel : XXX00.pdf , XXX correspond aux codes de la collectivité.  
 - Dans un fichier Excel : mettre le code de la collectivité, l'adresse mail et un texte basique (veuillez trouver ci joint votre situation à la date du...).
Le problème c'est que je ne vois pas du tout comment je pourrais faire...
Est-ce que quelqu'un pourrait m'aider.
Merci
 
<config>Windows XP pro/ Internet Explorer 6.0 / pack office 97 / thunderbird 3.</config>

mood
Publicité
Posté le 05-02-2011 à 15:54:34  profilanswer
 

n°2054550
kiki29
Posté le 05-02-2011 à 16:19:52  profilanswer
 

Salut,il te faudra trouver un utilitaire générant du PDF du style PDFCreator ( gratuit )
si Acrobat Distiller voir http://www.developpez.net/forums/d [...] distiller/
à partir d'Excel 2007 la génération de PDF est native
par contre pour les mails avec Thunderbird je ne connais pas, via CDO cela doit-être possible, mais peut-être pas avec Excel 97  
http://www.google.fr/#hl=fr&source [...] d74d00e400

n°2054553
haroye2
Posté le 05-02-2011 à 16:50:05  profilanswer
 

Ok, merci. Je regarde tout ça et je reviens si ça ne marche pas.

n°2054554
kiki29
Posté le 05-02-2011 à 16:59:26  profilanswer
 
n°2054555
kiki29
Posté le 05-02-2011 à 17:33:37  profilanswer
 

Re,via CDO chez moi cela fonctionne avec Excel 97 mais j'ia 97 2002 et 2007 sur mon PC donc je reste prudent

Code :
  1. Option Explicit
  2. Sub Envoi_CDO()
  3. Dim CdoMessage As Object
  4. Dim Fichier As String
  5.     Fichier = ThisWorkbook.Path & "\" & "Essai.pdf"
  6.     Set CdoMessage = CreateObject("CDO.Message" )
  7.     With CdoMessage
  8.         .Subject = "Exemple"
  9.         .From = "xxxxx.fr"
  10.         .To = "yyyyy.fr"
  11.         .CC = ""
  12.         .BCC = ""
  13.         .TextBody = "Texte dans le corps de message"
  14.         .AddAttachment Fichier
  15.         .Send
  16.     End With
  17.    
  18.     Set CdoMessage = Nothing
  19.    
  20. End Sub

n°2054556
haroye2
Posté le 05-02-2011 à 17:53:03  profilanswer
 

En fait il y a deux problèmes :  
- Le premier c'est que je n'y comprend rien, CDO... Je ne sais même pas ce que c'est CDO, où le trouver et comment s'en servir... Je suis un débutant.
- Le deuxième c'est que j'ai une trentaine de collectivités donc autant de fichier PDF et d'adresse mail. Il faudrait donc que le programme puisse choisir l'adresse mail en fonction du nom du fichier (le nom du PDF est constant pour chaques collectivités et peut servir de clefs de référence pour trouver l'adresse mail dans un fichier Excel par exemple), insérer la PJ correspondante et envoyer le mail...

n°2054565
kiki29
Posté le 05-02-2011 à 19:19:03  profilanswer
 

Re,si je t'ai donné un exemple CDO c'est pour que tu fasses l'essai et en fonction de cela on verra,chaque chose en son temps
 
Tu colles le code dans un module
tu modifies les adresses email de From et To
tu crées un Fichier bidon dans le même dossier que l'application à nommer en essai.pdf


Message édité par kiki29 le 06-02-2011 à 05:51:45
n°2054617
haroye2
Posté le 06-02-2011 à 10:30:47  profilanswer
 

Ok, dans ce cas autant s'attquer au premier point... c'est quoi un module, je l'installe comment ?
merci

n°2054619
kiki29
Posté le 06-02-2011 à 10:49:33  profilanswer
 

Salut, voir la FAQ http://excel.developpez.com/faq/ et http://excel.developpez.com/cours/ et par exemple ftp://ftp-developpez.com/bidou/Co [...] ionVBA.pdf


Message édité par kiki29 le 06-02-2011 à 10:52:34
n°2054621
haroye2
Posté le 06-02-2011 à 11:01:51  profilanswer
 

Alors, j'ai mis le code dans le module ; enlever les numéros de ligne, ça avait l'air de ne pas lui plaire et lancer. Il plante à "Send".

mood
Publicité
Posté le 06-02-2011 à 11:01:51  profilanswer
 

n°2054622
kiki29
Posté le 06-02-2011 à 11:13:22  profilanswer
 

Re,il suffisait de double cliquer dans la zone de code pour faire disparaitre les N° de lignes et copier/coller le code, enfin bref
 
tu modifies les adresses email de From et To avec des adresses valides ; par exemple si tu as plusieurs adresses personnelles tu en utilises 2


Message édité par kiki29 le 06-02-2011 à 11:16:17
n°2054623
haroye2
Posté le 06-02-2011 à 11:29:39  profilanswer
 

J'avais déjà fait ça. Il y a toujours un problème au niveau de "send"...
Je laisse tomber. Je suis désolé de t'avoir fait perdre ton temps, mais cela est trop compliqué pour moi.  
En tous les cas, merci pour l'aide que tu m'as apporté.

n°2054625
kiki29
Posté le 06-02-2011 à 11:41:57  profilanswer
 

Re, dommage voir quand même http://www.google.fr/#hl=fr&rlz=1W [...] f4b3c47475
 
Dommage également car la partie Excel pour gérer les envois était quasiment prête chez moi


Message édité par kiki29 le 07-02-2011 à 08:15:27

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

  Envoi automatique mail avec PJ via thunderbird

 

Sujets relatifs
formulaire automatique sous vb.netLien automatique sur URL valide
Lien automatique en fonctione de motsAjouter un champ DE lors d'un envoi de mail en VBA ?
Script de transfert automatique de fichiers[HTML] Insertion automatique d'un terme dans la barre d'adresse
chercher mail dans une chaine de caractère en phpenvoie automatique de fax
PEAR : Mail_Queue 
Plus de sujets relatifs à : Envoi automatique mail avec PJ via thunderbird


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR