Macro to send automatic emails on birthday meets with today

[shekar goud]

Hi All,

iam just trying to write a macro which will automatically send email depending on one's birthday.

iam able to send the email but iam stucked at calcualtions of days could someone please help me.

iam attaching an S/S

Sub shekartestmail()
    Dim ol As Object, myItem As Object
  
    Set ol = CreateObject("outlook.application")
    For Each AddCell In Worksheets("Sheet1").Range("B2:B100")
    Set myItem = ol.CreateItem(olMailItem)
        myItem.To = AddCell.Value
        myItem.Subject = "Hello There..."
        myItem.Body = "Hello, " & AddCell.Offset(0, 1).Value & "." & Chr(13) & Chr(13)
        myItem.Body = myItem.Body & "Many Happy returns of the day." & Chr(13)
        myItem.Body = myItem.Body & "Thanks for all your Support." & Chr(13) & Chr(13)
        myItem.Body = myItem.Body & "Shekar Thonta," & Chr(13)
        myItem.Body = myItem.Body & "Senior Analyst HR," & Chr(13)
        myItem.Body = myItem.Body & "India Service Centre" & Chr(13)
        myItem.Body = myItem.Body & "ManiKonda,Gachibowli" & Chr(13)
        myItem.Body = myItem.Body & "Hyderabad-500001" & Chr(13)
        myItem.Body = myItem.Body & "Internal Message" & Chr(13)
                SendIt = MsgBox("Here's the message to " & myItem.To & Chr(13) & Chr(13) & myItem.Body, vbOKCancel)

        If SendIt = vbOK Then
        myItem.Send
        Else:
        myItem.Delete
        MsgBox "Not sent"
        End If
    Next AddCell
    Set ol = Nothing
Workbook.Close
End Sub

Thanks for all your help

Regards,
Shekar.