Envoi auto par e-mail fichier PDF

[apdf1]

Bonjour PatrickToulon

J'ai trouvé ton code dans cette discussion super bien fait et trés explicit

Je voulais juste te félicité

Bonne journée

Max

[patricktoulon]

merci apdf1
j'espere qu'il te sera utile

au plaisir

[apdf1]

Re bonjour,

Est-il possible avec ton code d'envoyer a plusieur personne le même message

et si oui peut tu me dire la marche a suivre;

Merci d'avance

Bonne journée

Max

[patricktoulon]

oui c'est possible


a la ligne
".to" tu met :

exemple
1 destinataire

Code :

.to= "toto@msn.com"

2 destinataires

Code :

.to"= toto@msn.com" & ";" & "titi@live.fr"

3 destinataire

Code :

.to"= toto@msn.com" & ";" & "titi@live.fr" & ";" & "grosminet@hotmail.fr"

et ainsi de suite
il suffit de separer les adresses par un point virgule

au plaisir

[apdf1]

Re,

Oui je viens de voir sa mais sa peut pas aller pour moi je t'explique je fait partie d'un petit club de tarot et toute les semaine je doit envoyer les résultats a une vingtaine d'adhérents.

L'idéal pour moi aurais été de prendre la liste des adresses qui se trouve sur la feuille liste client en colonne "G" et de les envoyer en les sélectionnant un truc comme sa !

Cordialement

Max

[patricktoulon]

Rebonsoir
Qu'à cela ne tienne

Cà donne un truc du genre:

Au dessus de la ligne " .to", tu mets:

Code :

dim total_adresse as string

Ensuite tu mets
'si ta liste commence en g1

Code :

1
2
3
4
5
Dim total_adresse As String
For i = 1 To Sheets(1).Range("g65530").End(xlUp).Row'on prend en compte toute les lignes utilisées dans la colone G
total_adresse = total_adresse & Sheets(1).Range("g" & i) & ";"'on ajoute le nom et un point-virgule à chaque fois.
Next
total_adresse = Left(total_adresse, Len(total_adresse) - 1)'on enlève le dernier point-virgule qui ne sert à rien

'Maintenant ta variable total_adresse contient toutes les adresses
Ensuite à la ligne ".to" tu mets

Code :

.to=total_adresse

voili voilou
Comme tu peux le voir il n'y a rien de compliqué.
N'hésites pas si tu as besoin d'aide

Au plaisir

[apdf1]

Re,

Quand tu me dit au-dessus de la ligne .to ces bien ici

Code :

1
2
3
    .To = form_mail.destinataire.Value
    .From = form_mail.expediteur
    .Subject = form_mail.TITRE

@+
Max

[patricktoulon]

re

oui!!!!!!!

ca y est tu vois la lumiere

au plaisir

[apdf1]

Re,
Je m'excuse mais je pense que l'on ne s'est pas compris. Comme je le disais sur l'autre post je dois envoyer un mail à une vingtaine d'adhérents, bon jusque là rien de bien compliqué.
Moi ce que j'aurai aimé est que lorsque j'ouvre USF que j'ai une ListBox multiSelect avec ma liste d'adresse d'adhérent se trouvant sur la feuille "liste client" pouvoir cocher les personnes concernées et leur envoyer ainsi le même message et fichier joint.
Et comme je ne suis pas un crack du VBA j'ai besoin d'un bon coup de main, sur pour le code parce que pour mettre la listbox et faire apparaitre les noms et adresse des adhérent ça devrait aller.
Je pense avoir mieux expliqué. Ce n'est pas toujours évident.
Bonne soirée
Max

[patricktoulon]

Bonjour

Oui c'est possible, ça aussi

Une question te sers tu de mon usf ou simplement du module mail .

Si tu te sers de mon usf alors ajoutes y:
1 listbox

et a l'activate de l'usf tu met

Code :

1
2
3
4
dim tableau as variant
 
tableau=range("G1:"& sheets("le nom du sheets ou se trouve ta liste).range("G65530").end(xlup).row)
listbox1.list=tableau

ensuite dans le click listbox tu mets

Code :

1
2
3
form_mail.destinataire=form_mail.destinataire  & listbox1 &";" 
 
form_mail.destinataire=left(form_mail.destinataire,len(form_mail.destinataire)-1)

Ensuite quand tu cliques sur "envoyer" ça devrait être bon.
Si tu n'y arrives pas je reprendrai mon usf et je te le ferai.
As tu compris la manoeuvre?

Au plaisir

[apdf1]

Bonjour Patrick,

J'utilise bien ton USF et j'ai strictement suivi à la lettre tes indications depuis 3/4 heure j'essaye, mais rien à faire. Si tu peux me le faire ça serait sympa à toi, parce que je vais galérer un maximun.

Un grand merci d'avance et une bonne soirée.

J'espère qu'il ne fait pas trop froid à Toulon, parce que la semaine prochaine je vais à Hyères

Cordialement
Max

[patricktoulon]

rebonjour

ok donne moi le nom du sheets contenant la liste et la plage

la colonne je sais c'est "G" mais ça commence a quelle ligne ?

au plaisir

[apdf1]

Re,

La feuille se nome AdressEmail et sa commense a la ligne 2

Voila bonne soirée

Et merci encore

Max

[patricktoulon]

bonsoir

je m'en occupe ce week-end promis

au plaisir

[apdf1]

Bonjour,

Je te remercie, pas de probléme .....

Passe une bonne journée

@+
Max

[patricktoulon]

re
Bonjour apdf1

Bon voilà, j'ai eu un vendredi pas trop dur et j'ai eu le temps de me pencher sur ton cas.

Voilà ça donne çà :

Mais tu peux très bien intégrer le usf dans ton fichier.
Il te faudra faire la macro pour exporter la feuille en pdf pour l'envoyer.

J'ai volontairement mis dans la macro "xls to pdf" de façon à ce que les destinataires reçoivent la fiche au format pdf, pour qu'il n'y est pas de modifications possibles.

Au plaisir

[apdf1]

Re

Bonjour patrick

j'ai récuperé le fichier je verrai demain matin

je te remercie beaucoup et je te tiens au courant

bonne soirée

Max