Envoi automatique mail avec PJ via thunderbird

Envoi automatique mail avec PJ via thunderbird - VB/VBA/VBS - Programmation

Marsh Posté le 05-02-2011 à 15:54:34    

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>

Reply

Marsh Posté le 05-02-2011 à 15:54:34   

Reply

Marsh Posté le 05-02-2011 à 16:19:52    

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

Reply

Marsh Posté le 05-02-2011 à 16:50:05    

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

Reply

Marsh Posté le 05-02-2011 à 16:59:26    

Reply

Marsh Posté le 05-02-2011 à 17:33:37    

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

Reply

Marsh Posté le 05-02-2011 à 17:53:03    

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...

Reply

Marsh Posté le 05-02-2011 à 19:19:03    

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
Reply

Marsh Posté le 06-02-2011 à 10:30:47    

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

Reply

Marsh Posté le 06-02-2011 à 10:49:33    

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
Reply

Marsh Posté le 06-02-2011 à 11:01:51    

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".

Reply

Marsh Posté le 06-02-2011 à 11:01:51   

Reply

Marsh Posté le 06-02-2011 à 11:13:22    

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
Reply

Marsh Posté le 06-02-2011 à 11:29:39    

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é.

Reply

Marsh Posté le 06-02-2011 à 11:41:57    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed