cibleo
XLDnaute Impliqué
Bonsoir le forum,
Dans ce bloc, la variable Msg représente le texte du message envoyé (TextBody) à chacun de mes destinataires (AdresMail)
Or, j'aimerais changer le texte du message à envoyer en fonction de la date du jour (Date systeme).
Il y aurait donc Msg1 envoyé le 1er et dernier jour du mois
et Msg envoyé les autres jours du mois.
Msg1 serait composé comme ci-dessous et reprendrait le contenu de Msg en y ajoutant la ligne surlignée en bleu.
Pouvez-vous m'aider à introduire un nouveau test en fonction de la date du jour dans ce bloc d'instructions.
Merci de votre aide
Bonne soirée Cibleo
Dans ce bloc, la variable Msg représente le texte du message envoyé (TextBody) à chacun de mes destinataires (AdresMail)
Code:
Sub EnvoyerMailEtPDF()
Dim objMessage As CDO.Message
Dim sNomPDF As String
Dim sCheminPDF As String
Dim Prenom As String
Dim AdresMail As String
Dim [COLOR=red]Msg[/COLOR] As String
.../...
[COLOR=darkgreen]'---- Création et envoi message ------------[/COLOR]
With Sheets("MesDestinataires")
For Each cell In Range("C2:C6")
If cell.Value Like "*@*" And cell.Offset(0, -2).Value = "x" Then
Prenom = cell.Offset(0, -1).Value
AdresMail = cell.Value
[COLOR=red]'Composer le message[/COLOR]
[COLOR=red]Msg = "Bonjour " & Prenom & "," & vbCrLf & vbCrLf[/COLOR]
[COLOR=red]Msg = Msg & "Tu trouveras ci-joint le planning du jour." & vbCrLf & vbCrLf[/COLOR]
[COLOR=red]Msg = Msg & "Cordialement Cibleo"[/COLOR]
Set objMessage = New CDO.Message
'Set objMessage = CreateObject("CDO.Message")
With objMessage
.Subject = "Envoi Planning du jour à " & Prenom ' Sujet du mail
.From = "[EMAIL="cibleo@wanadoo.fr"]cibleo@wanadoo.fr[/EMAIL]"
.To = [COLOR=blue]AdresMail[/COLOR]
' Corps du mail
[COLOR=red].TextBody = Msg[/COLOR]
.AddAttachment sCheminPDF & sNomPDF ' Fichier joint au mail
.Send '<<<<<<<<<<<<<<<Pour envoyer directement
End With
Set objMessage = Nothing
End If
Next cell
End With
End Sub
Or, j'aimerais changer le texte du message à envoyer en fonction de la date du jour (Date systeme).
Il y aurait donc Msg1 envoyé le 1er et dernier jour du mois
et Msg envoyé les autres jours du mois.
Msg1 serait composé comme ci-dessous et reprendrait le contenu de Msg en y ajoutant la ligne surlignée en bleu.
'Composer le message
Msg1 = "Bonjour " & Prenom & "," & vbCrLf & vbCrLf
Msg1 = Msg1 & "Tu trouveras ci-joint le planning du jour." & vbCrLf & vbCrLf
Msg1 = Msg1 & "Cordialement Cibleo" & vbCrLf & vbCrLf
Msg1 = Msg1 & "N'oubliez pas de relever le compteur des voitures"
Pouvez-vous m'aider à introduire un nouveau test en fonction de la date du jour dans ce bloc d'instructions.
Merci de votre aide
Bonne soirée Cibleo