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