Destinataire en copie par mail et date du jour dans objet mail

titoffe60 · 22 Mars 2014

Bonsoir

Je voudrais envoyer par mail en copie un destinataire et marquer la date du jour dans l'objet du mail

Vous donne la formule existante pour voir déjà ce qui est fais

'Envoyer par mail
Private Sub CommandButton28_Click()
Dim Rep As Integer
Rep = MsgBox("Voulez-vous envoyer par mail le planning à x et y en copie?", vbYesNo + vbQuestion, "Envoyer par mail")
If Rep = vbYes Then

' ici le traitement si réponse positive
Sheets(Array("2014", "2015")).Copy
Me.Hide

' chemin pour l'enregistrement
ChDir "C:\Users\essai"

'nom de fichier
Dim MonFichier
MonFichier = "essai 1 "
ActiveWorkbook.SaveAs Filename:=MonFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

'envoyer par mail
ActiveWorkbook.SendMail "titoffe60@essai.fr", " planning" & " - date"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Votre planning a été envoyée au destinataire")
Else

End If
End Sub

Merci encore une fois de m'aider
A+

xhudi69 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir titoffe60, le Forum

Voir ce FIL qui t'apporte la solution, si tu as un soucis pour adapter le code, fais moi signe.

@+

titoffe60 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Ouii je te fais signe

peut tu me l’adapter a ma formule pour mettre en copie un destinataire et mettre la date du jour dans l'objet du mail
s il te plais merci

xhudi69 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir titoffe60, le Forum,

Ce serait plus facile si tu joignais ton fichier (anonimisé bien sûr)

@+

titoffe60 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

voici le fichier
encore merci de ton aide
cdl

titoffe60 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

me suis tromper celui ci c'est pour un lien vers les mois de l'année remarque si tu peux faire quelque chose!!!!!!!!!!!
merci d avance

xhudi69 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir titoffe60, le Forum,

En PJ ton fichier remanié,.
J'ai mis le code dans un module, ne sachant pas se que tu voulais en faire.
Tu devrais mettre les mois, chacun dans un onglet et adapter la macro pour envoyer par mail le dit mois.

@+

xhudi69 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Re Bonsoir, le Forum,

Excuses, j'avais pas rafraichis la page Web, mets le bon fichier et je vois ce que je peux faire, demain certainement car il se fait tard (oh! vieillesse énemie )

@+

titoffe60 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Voici le fichier refais pourquoi comme un idiot j ai oublié d'enregistrer le travail , le voila refais

titoffe60 · 22 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

J'ai rectifié le fichier avec ce que tu m'a donné " Format(Now, "yyyy/mm/dd") "
C'est coll c'est ce que je cherchais et ca marche nickel

Peut tu m'aidé sur la formule pour la personne en copie et comment ajouter un texte dans le message

te remercie Oui il se fais tard et oui vieillesse ennemi
A+

xhudi69 · 23 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir titoffe60, le Forum,

J'ai un soucis avec ton planning , pourquoi est-il si important ?
J'ai mis chaque mois dans un onglet et adapté le code, tout fonctionne bien sauf que c'est illisible en PDF.
Peux-tu m'afficher quelques données et me dire à quoi il sert?
Je suis sûre que l'on peut rationnaliser tout cela, de plus toutes ces listes déroulantes pourraient aisément être remplacées.

Je vais essayé de l'afficher directement dans le Body de l'email.

@+

xhudi69 · 24 Mars 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir titoffe60, le Forum,

En PJ ton fichier remanié, avec les mois chacun dans un onglet (je n'ai fait que 2 mois, comment ça fénéant!! )
Ton UserForm remanié, avec:
1) 1 ComboBox pour le destinataire
2) 1 ComboBox pour le destinataire de copie
3) un TextBox pour taper un message

Tu n'as plus qu'a finir le code et "enjoy "

PS: tu ne m'a toujour pas dis pourquoi ton planning ressemble à un drap de lit ?

@+

titoffe60 · 9 Avril 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir

Vraiment désoler de na pas t'avoir répondu ai eu vraiment une grosse galère

Te remercie de ce que tu as fait , vraiment, mais il faudrait vraiment garder cette configuration de mon fichier envoyé
Cela m'enbete vraiment de te dire cela mais cela va me servir pour d'autre chose (il faut que j'ais une vision d'ensemble)
Et le corps du message seras toujours le même" Bonjour Voici la mise à jour du planning Cordialement"

Et mort de rire pour le drap de lit
Mais j'ai 14 personnes a gérer avec prés de 200 infos que se soit à la semaine ou journalière
C'est vraiment un casse tête
Et encore merci
A+

xhudi69 · 15 Avril 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonsoir titoffe60, le Forum,

Peux-tu préciser ce que tu veux faire précisément en joignant ton fichier avec quelques données anonymes pour voir comment s'articule ton fichier.
Je persiste à dire que 1 mois par onglet serait bien, vu l'étendue de ce planning, puis pour le remplir et le consulter passer par un UserForm etc etc....

@+

EDIT: ou envoyer la feuille seule en pièce jointe.

titoffe60 · 16 Avril 2014

Re : Destinataire en copie par mail et date du jour dans objet mail

Bonjour

Ce que je faire c'est: sur l'onglet "2014" avoir une vue d'ensemble de tout le monde et à l'année (doit rentrer 3 infos par personne)
Sur l'onglet "titoffe" c'est le planning individuel à l'année et cela je le ferais pour tout le monde.

Un collage spécial avec liaison relie les 2 feuilles (Encore un problème les couleurs ne se change pas sur l'onglet "titoffe")

Donc voudrais envoyer l'onglet "2014" aux N+1 et N+2
Et après envoyer l'onglet "titoffe" à titoffe et cela pour tout le monde

Te remercie d'avance

Cdl

Destinataire en copie par mail et date du jour dans objet mail

titoffe60

XLDnaute Junior

xhudi69

XLDnaute Accro

titoffe60

XLDnaute Junior

xhudi69

XLDnaute Accro

titoffe60

XLDnaute Junior

Pièces jointes

titoffe60

XLDnaute Junior

xhudi69

XLDnaute Accro

Pièces jointes

xhudi69

XLDnaute Accro

titoffe60

XLDnaute Junior

Pièces jointes

titoffe60

XLDnaute Junior

Pièces jointes

xhudi69

XLDnaute Accro

xhudi69

XLDnaute Accro

Pièces jointes

titoffe60

XLDnaute Junior

xhudi69

XLDnaute Accro

titoffe60

XLDnaute Junior

Pièces jointes

Discussions similaires