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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoi mail avec destinataires et pieces jointes différentes

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoi mail avec destinataires et pieces jointes différentes

n°2155890
mushroom04​3
Posté le 06-09-2012 à 17:46:20  profilanswer
 

Bonjour à tous,
Voila j'aimerais me simplifier la vie et creer une macro m'envoyant le fichier X à 4 destinataires distincts et le fichier Y a 2 destinataires distincts.
Il faut savoir que les fichiers à envoyer changent de nom chaque jour (update de date )....
J'ai déja la macro simple permettant d'envoyer le fichier à un destinataire mais je lutte un peu pour arriver au resultat escompté....
 
Merci d'avance !

mood
Publicité
Posté le 06-09-2012 à 17:46:20  profilanswer
 

n°2155925
vave
Nice to meet me
Posté le 07-09-2012 à 07:11:00  profilanswer
 

Bonjour,
Tu utilises quelle méthode pour l'envoi de mail ?
 
J'en ai une qui utilise CDO.
Pour mettre plusieurs destinataires, tu sépares les adresses par un point virgule.

Code :
  1. Destinataires = "toto@tata.fr; titi@tutu.fr"


 
Pour les pièces jointes, tu fais autant de AddAttachment que tu as de fichiers à joindre.


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
n°2155955
mushroom04​3
Posté le 07-09-2012 à 14:37:21  profilanswer
 

Hello , merci pour ta réponse , ce que je voudrais c'est dissocier surtout l'envoi des deux fichiers qui n'ont rien à voir...

n°2155961
vave
Nice to meet me
Posté le 07-09-2012 à 15:13:57  profilanswer
 

Je ne comprends pas où tu bloques.
Si tu as déjà la macro pour envoyer une pièce jointe à un destinataire, ça me paraît assez simple de la modifier pour envoyer plusieurs mails à plusieurs destinataire.
 
Tu peux mettre ta macro ici pour partir de quelque chose ?


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
n°2156002
mushroom04​3
Posté le 07-09-2012 à 18:10:00  profilanswer
 

Sub EnvoiPJ()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim Ficjoint As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
 
obj = Sheets("Feuil1" ).Range("H10" ).Value
suj = Sheets("Feuil1" ).Range("H11" ).Value
 
derligne = Range("A65535" ).End(xlUp).Row
For i = 2 To derligne
Set olMail = olApp.CreateItem(olMailItem)
If Range("A" & i).Value <> vide Then
   rep = Range("D" & i).Value
   Ficjoint = rep & "\" & Range("E" & i).Value & ".Pdf"
   With olMail
       .To = Range("A" & i).Value
       .CC = Range("B" & i).Value
       .Subject = obj
       .Body = suj
       .Attachments.Add(
       '.Attachments.Add "c:\test\HIER NEW test"
       .Display '.Send
  End With
' Effacer les variables objets
Set olMail = Nothing
End If
Next i
Set olApp = Nothing
End Sub
 
Mon But principal est d'envoyer un fichier a 4 destinataires et un fichier totalement différent à deux autres , en sachant que ces deux fichiers changent de nom chaque jour car ils changent avec la date du jour...


Message édité par mushroom043 le 07-09-2012 à 18:18:27
n°2156707
Arl Guhr
Posté le 13-09-2012 à 22:11:55  profilanswer
 

hum?

Code :
  1. .Attachments.Add ficjoint


avec dans case "A" & i , un liste d'adresse e-mail séparé par des ";" comme dit précédemment.
 
Dans ta case "E" & i, tu peux "t'amuser" à générer le nom du fichier en fonction de la date genre avec la formule :

Code :
  1. =TEXT(YEAR(TODAY());"0000" ) & "-" & TEXT(MONTH(TODAY());"00" ) & "-" & TEXT(DAY(TODAY());"00" )


Si c'est ton repertoire qui change, fait varier "D" & i
 
Pour plusieurs fichiers, de plusieurs répertoires dans un seul mail, il y a plus de choses à modifier.
Pour plusieurs fichiers, d'un seul répertoire dans un seul mail, il y a un peu moins de choses à modifier.


Message édité par Arl Guhr le 13-09-2012 à 22:31:55

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

  Envoi mail avec destinataires et pieces jointes différentes

 

Sujets relatifs
Envoyer fichier excel implémenté par mailphp : fonction mail() et Cc:
[MySQL Linux] Bases de données sur différentes partitions?Inclure du PHP dans un mail en html
Envoi des onglets par emailsOvh détruit mes pièces jointes
[Shell Unix] envoi de mail : texte en PJ au lieu du corps.???? FORMULAIRE MAIL VIDE ????
Plus de sujets relatifs à : Envoi mail avec destinataires et pieces jointes différentes


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