VBA outlook, automatiser dates dans phrases

Bonjour à tous,

Je rencontre un problème et je ne sais pas comment le résoudre, je ne sais meme pas si il y a une solution à ma question qui est la suivante :

Je possède un mail type que je vais envoyer à tous mes clients. Ce mail connait quelques changements tous les mois, du type :

Changement de dates dans l'objets du mail : "Fachsheet Mars et point mensuel..." / "Fachsheet Avril et point mensuel..."

J'aimerais savoir si il est possible que le mois ce change automatiquement d'un mois sur l'autre.

J'ai pensé à relier cela à une formule excel : =Aujourd'hui() ; et en soutirer le mois mais je n'arrive pas à l'incorporer dans le codage VBA par la suite.

Bref si vous connaissez des solutions pour ce problème, pour les objets et corps de mail, merci de m'en avertir.

Bonne journée à vous

Bonjour,

à tester,

t = "Fachsheet " & Application.Proper(Format(Date, "mmmm")) & " et point mensuel..."

Bonjour,

Ce code ne fonctionne pas apparemment.

Je pense que ca ne peut fonctionner sur l'objet du mail.

re,

à tester,

Sub Mail_Outlook_With_Signature_Html_1()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Library"

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String, t1 As String, t2 As String, i As Long

For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    t1 = "Fachsheet " & Application.Proper(Format(Date, "mmmm")) & " et point mensuel..."
    t2 = "Bonjour " & Cells(i, "B").Value & ","
    strbody = "<H3><B>" & t2 & "</B></H3>" & _
              "" & t1 & "<br><br>" & _
              "<A HREF=""http://www.mon_site.com"">ma page web</A>" & _
              "<br><br><B>Merci!</B>"

    On Error Resume Next

    With OutMail
        .display
        .To = Cells(i, "B").Value
        .CC = ""
        .BCC = ""
        .Subject = "les nouvelles"
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .display  'mettre en commentaire pour ne pas voir le mail
    '    .Send    'mettre actif pour envoyer le mail
    End With
Next i
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub