Envoi mail avec destinataires et pieces jointes différentes

Envoi mail avec destinataires et pieces jointes différentes - VB/VBA/VBS - Programmation

Marsh Posté le 06-09-2012 à 17:46:20    

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 !

Reply

Marsh Posté le 06-09-2012 à 17:46:20   

Reply

Marsh Posté le 07-09-2012 à 07:11:00    

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
Reply

Marsh Posté le 07-09-2012 à 14:37:21    

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

Reply

Marsh Posté le 07-09-2012 à 15:13:57    

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
Reply

Marsh Posté le 07-09-2012 à 18:10:00    

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
Reply

Marsh Posté le 13-09-2012 à 22:11:55    

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
Reply

Sujets relatifs:

Leave a Replay

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