PJ dans mail : .attachments.Add = ??

john

XLDnaute Impliqué

• 15 Décembre 2005

• #2

Salut,

Voici un petit programme pour envoyer des mails via excel avec pièce jointes.

Avec ce programme tu peux envoyer plusieur fois le même mail et aussi en anonyme (avec une adresse mail bidon), mais il ne faut pas en abuser hein !!!!!!!!

Bonne soirée.

John

Ps: un petit tour sur mon site (non commercial) serai sympa :whistle: [file name=envoimailviaexcel.zip size=17228]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/envoimailviaexcel.zip[/file]

Message édité par: john, à: 15/12/2005 17:46

 

Pièces jointes

• envoimailviaexcel.zip

  16.8 KB · Affichages: 577

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 15 Décembre 2005

• #3

Bonjour

en fait il faut

.Attachments.Add vPJ

SAns le signe =

Bonne soirée

 

Vote positif 0 Vote négatif

C

copayo

XLDnaute Occasionnel

• 15 Décembre 2005

• #4

Et voila tout simplement,

merci beaucoup Pascal tu m'apprends plein de trucs !!!

 

Vote positif 0 Vote négatif

C

copayo

XLDnaute Occasionnel

• 15 Décembre 2005

• #5

merci,

par contre ca bug et pas de mail envoyés !

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 15 Décembre 2005

• #6

Re

C'est quoi ton bug car je viens de refaire un test et pas de prob

 

Vote positif 0 Vote négatif

C

copayo

XLDnaute Occasionnel

• 15 Décembre 2005

• #7

au niveau de la pièce jointe

nom de la piece jointe incorrecte

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 15 Décembre 2005

• #8

Bonjour

Pour plusieurs pièces jointes

.Attachments.Add vPJ
Vpj=range('B27)
.Attachments.Add vPJ
Vpj=range('B28)
.Attachments.Add vPJ

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 15 Décembre 2005

• #9

Re,

Tu as essayé mon programme ???

En tout cas c'est sûre qu'il fonctionne !!!

Bonne soirée.

John

 

Vote positif 0 Vote négatif

C

copayo

XLDnaute Occasionnel

• 15 Décembre 2005

• #10

pascal ca marche

j'ai crée vPJ1 et vPJ2!!

vPJ1 = Range('B62')
vPJ2 = Range('B63')

.Attachments.Add vPJ1
.Attachments.Add vPJ2

merci bcp

Message édité par: copayo, à: 15/12/2005 18:24

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 15 Décembre 2005

• #11

Re

Oui tu es obligé de creer plusieurs variables dans le sens que tu le fais

Si tu faisais dans l'odre que j'avais donné une seule suffit.

 

Vote positif 0 Vote négatif