Discussion :

[ericdev67]

Bonjour,

J'utilise ce code pour envoyer automatiquement des mails via outlook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub e()
Dim appoutlook As Outlook.Application
Dim email As String
Dim monmessage As Object
Dim texte As String
Set appoutlook = New Outlook.Application
Set monmessage = appoutlook.createitem(olmailitem)
 
email = "xx.xxx@yy.fr"
With monmessage
.To = email
.Subject = "essai eric"
texte = "essai texte"
 
.display
.Attachments.Add "C:\essais\fiche.pdf"
End With
End Sub

Mon problème, c'est que suivant ma requête, il y a parfois plusieurs pièces jointes à joindre.
J'ai pensé à mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Attachments.Add "C:\essais\fiche.pdf" & "C:\essais\fiche2.pdf" etc....

mais comme parfois j'ai 1 pièce à joindre, parfois 2, parfois 10...je ne peux pas le mettre à chaque fois....

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To c
d = Cells(i, 2) & ".pdf"
monmessage.attachments.Add "C:\essais\d"
Next i

Et la ligne "monmessage.attachments.Add "C:\essais\" ne reconnait pas le "d"....j'ai essayé en mettant "& d" et ça ne fonctionne pas non plus...

Une idée ?

Merci,
A+

[Fvandermeulen]

Salut,
Ca doit être un problème de syntaxe car l'idée y est, n'hésites pas à utiliser une message box pour vérifier si le chemin + nom du fichier correpsond à ce que tu attends.
Et petit conseil, indique la feuille dans laquelle se trouve la liste et pas seulement Cells...
Voici un bout de code qui fonctionne très bien chez moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To c
d = Sheets("Tafeuille").Cells(i, 2) & ".pdf"
.Attachments.Add "C:\essais\" & d 
Next i

A+

[ericdev67]

Merci Fvandermeulen,

Le code fonctionne En fait, c'était vraiment tout simple => il fallait sortir le "d" des pararenthèses.....comme tu me l'as indiqué.

Je prends bonne note de ta remarque sur la feuille déclarée, d'autant que j'ai plusieures feuilles dans le classeur...

En fait j'ai résolu mon problème de vérification à la base : je fais intervenir des Inputbox pour demander/confirmer l'adresse et le message, mais je ne voulais pas "alourdir" le code lors de ma question.

Merci quand même de m'avoir alerté et de m'avoir aidé.

Bonne journée,

A+ pour de prochaines aventures....

[Fvandermeulen]

Juste une petite précision, quand je parle de MsgBox, c'est pas forcément pour les utilisateurs (en plus, en général ça les gonfle tellement qu'ils ne lisent plus et click sans même savoir ce que ça implique).
En fait j'utilse ça quand je code et que j'ai un doute sur une variable, ça parrait idiot mais je préfère ça à L'immediate Windows ou me balader avec ma souris sur les variables...
A+

[ericdev67]

Merci Fvandermeulen pour tes précisions,

Moi, quand je parlais de Msgbox, je pré"cise que c'était justement pour "verrouiller" : je fais des inputbox, comme ça mes utilisateurs sont "obligés" de renseigner avant d'aller dans l'autre grille => j'ai bien compris ton post sur les Msgbox "gonflantes", je les ai changé en Inputbox de "renseignements"....

A+ pour de prochaines aventures....

Merci encore