Please Help ! "Birthday Emails to be sent on Sat/Sun"

Hi, I don't know much about coding....just the beginner.
Want to send birthday wishes to all team members. I have got the vba coding which helps me to send the wishes with image at the time I open the excel workbook. However I am still stuck... if the birthday falls on Saturday or Sunday, then how I can figure this out. Also If i open the workbook more than once in a day ...it resend as many times I open it. Please help me with these.

Code:

---

Sub Bdwishes()
Dim i as long
Dim ws as worksheet
Dim sendmessage as boolean
Set ws= this.workbook.sheets("sheet1")
With ws
For i=2 to .Range("A" & Rows.count).End(xlUp).Row
Send message=True
Birthday=Cdate(.Range("C" & i).value
Select Case True
Case Day(now())= Day(Birthday) And Month(Now()) = Month(Birthday)
'birthday this day
Sendmessage=True
End Select
If SendMessage Then Call SendBDay(Range("a" & i).value, Range("b" & i)
next i
End with
End Sub

---

The following will send a message (insert as appropriate) if the worksheet is opened on a weekday and a message has not already been sent. The code adds the year to column D to record the fact that this year the message has been sent. Note Sunday is weekday1 and Saturday is weekday 7, so you can use this to determine what to do with birthdays that fall on the weekend.

Code:

---

Sub Bdwishes()
Dim i As Long
Dim ws As Worksheet
Dim bSendMessage As Boolean
Dim dBirthday As Date
    Set ws = ThisWorkbook.Sheets("Sheet1")
    With ws
        For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
            bSendMessage = False
            dBirthday = CDate(.Range("C" & i).Value)
            Select Case True
                Case Day(Now()) = Day(dBirthday) And Month(Now()) = Month(dBirthday)
                    'birthday this day
                    bSendMessage = True
            End Select
            If bSendMessage Then
                If Weekday(dBirthday) > 1 And Weekday(dBirthday) < 7 Then
                    'the birthday is a weekday
                    If .Range("D" & i).Value < Year(Now) Then
                        'send birthday message
                        MsgBox "send message"
                        'update year message sent
                        .Range("D" & i).Value = Year(Now)
                    End If
                End If
            End If
        Next i
    End With
End Sub

---