Souhaiter un anniversaire

Bonjour

Je fais partie d'une association d'environ 221 membre et je souhaiterais qu'à chaque date anniversaire de ces derniers un envoie automatique sur leur boîte mail leur adressant un joyeux anniversaire. Et aussi en même temps leur adresser soit un bon d'achat ou soit un bon de réduction dans un des magasins que j'aurai sélectionné

Quand je dis que j'aurais sélectionné c'est que j'aurais eu tous les renseignements que j'aurais pu demander au membre

Donc il me faudrait une fiche par membre avec tous les renseignements que je peux leur demander date d'anniversaire leurs habitudes où ils vont acheter leurs habits de sport ou autre leur adresse leur mail leur téléphone ect

En espérant qu'une personne puisse m'aider à faire ce fichier cordialement michael

Bonjour

Pour que cela fonctionne il faudrait que ton fichier excel soit en permanence ouverte...

Néanmoins, voilà le code qui permet d'envoyer un mail avec une pièce joint

IMPORTANT : il faut posséder Microsoft Outlook

Sub Envoidu_Mail_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'corps du message si besoin
    strbody = Contenu
    With OutMail
        .To = "xxxxxx@gmail.com"        'destinataire(s)
        .Subject = "Anniversaire"
        .Body = strbody
        'Piece_jointe
        .Attachments.Add ("C:\test.txt")        'mettre chemin et fichier a joindre
        .Display        'ouvre Outlook
        'or use
        '.Send           'envoi sans ouvrir Outlook
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub