Choisir l'adresse mail pour un envoi automatique

Bonjour le Forum,

Avec mon classeur excel pour la gestion de mon club, j'envoie un mail lors de l'anniversaire d'un membre.

Son nom et sa date de naissance figurant sur la feuille "membres"

le problème, c'est que l'envoi se fait avec l'adresse par défaut d'Outlook (qui est la mienne perso) et non avec l'adresse créé pour le club.

Est il possible de choisir l'adresse qui servira à l'envoi de ce petit message??

Je vous mets le code utilisé:

Private Sub Workbook_Open()
If Date = Range("V1").Value Then Range("V4:V58").ClearContents
Dim OutApp As Object
Dim OutMail As Object
If Mid(ThisWorkbook.Sheets("Membres").Range("L4").Value, 1, 5) = Mid(Date, 1, 5) Then
MsgBox ("OK")
End If
derl = Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To derl
If (Mid(ThisWorkbook.Sheets("Membres").Range("L" & i).Value, 1, 5) = Mid(Date, 1, 5)) _
And (ThisWorkbook.Sheets("Membres").Range("V" & i) <> "1") Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("Membres").Range("F" & i).Value
    .Subject = "Joyeux  Anniversaire de la part du Club d'ici"
    .Body = "Bonjour, " & ThisWorkbook.Sheets("Membres").Range("B" & i).Value & Chr$(13) & Chr$(10) & Chr(13) & _
    "Permettez moi de vous souhaiter un joyeux anniversaire et une excellente journée" & Chr(13) & _
    "de la part du Club d'ici" & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & _
    "**[Ce message a été généré automatiquement]**"
.Send
End With
Range("V" & i).Value = 1
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
Next i
End Sub

Si vous voyez des améliorations possible, faut pas se gêner mais à part ce petit problème de choix d'adresse, ça marche pas mal!!!

Merci à vous et bonne journée

JC

Bonjour,

A tester a l'intérieur de

With OutMail
...
End With

Essai de rajouter :

.SentOnBehalfOfName = "Adresse_Club@TonMail.com"

Si ça ne marche pas, tu peux aussi changer le .Send par .Display et changer manuellement l'expéditeur avant l'envoi.

A+

Bonjour Geof52,

Merci pour ton travail mais aucune des deux solutions ne fonctionnent.

désolé.

Bonjour bayard, le fil et le forum

ajoute avand la ligne

.send

cette ligne, à adapter l'adresse

Set .SendUsingAccount = .Session.Accounts.Item("monclub@mail.com")

Bonjour Sequoyah,

déjà merci pour ton intérêt et j'ai le plaisir de t'annoncer que ça fonctionne :)

Encore merci à toi et bonne journée!!!