Envoi mail avec destinataires et pieces jointes différentes - VB/VBA/VBS - Programmation
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 :
|
Pour les pièces jointes, tu fais autant de AddAttachment que tu as de fichiers à joindre.
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...
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 ?
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...
Marsh Posté le 13-09-2012 à 22:11:55
hum?
Code :
|
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 :
|
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.
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 !