Aide élaboration code VBA pour envoi de SMS via Outlook

Bonjour,

Je me permet de venir demander votre aide pour l'élaboration d'un projet très important.
Je dois mettre en place un fichier qui permet d'envoyer les horaires et affectation du personnel de mon entreprise par SMS.
On m'a donné un code VBA mais j'avoue être novice dans ce domaine et je n'arrive pas à l'utiliser.
J'ai mis en place un fichier, qui répertorie le personnel, les téléphones, les horaires et les affectations. Il est sous forme de planning annuel.
Le message devra être envoyé tous les jours à 16h et sera de cette forme:

"Bonjour, le 25/08/2016, vous serez sur la section ... en horaire 8h-12h//13h-16h. Merci et bonne journée"

J’espère sincèrement que vous pourrez m'aider.
Merci et bonne journée
Cordialement
Voici le code qu'un collègue néerlandais m'a envoyé:

Sub Macro3()
'
' Macro3 Macro
' Versturen van SMS
'
' Sneltoets: Ctrl+z
'
  Dim intresponse As Integer
    
    intresponse = MsgBox("Verzenden van SMS naar " + ActiveCell, vbYesNo + vbQuestion + vbDefaultButton2, "Bevestiging SMS versturen")
    
    If intresponse = vbYes Then
    
    Dim oLapp As Object
    Dim oItem As Object
    
    Set oLapp = CreateObject("Outlook.application")
    Set oItem = oLapp.CreateItem(0)

        With oItem
            .To = ActiveCell.Offset(0, 34).Range("A1").Value
            .Subject = ActiveCell.Offset(0, 35).Range("A1").Value
            .HTMLBody = " Beste, Gelieve in bijlage uw " + ActiveCell.Offset(0, 35).Range("A1").Value + " te vinden. " + ActiveCell.Offset(0, 36).Range("A1").Value + " Voor eventuele vragen gelieve " + ActiveCell.Offset(0, 37).Range("A1").Value + " te contacteren op " + ActiveCell.Offset(0, 38).Range("A1").Value + ". De planning kan dag per dag aangepast worden in functie van de noden van onze klanten. Met Vriendelijke Groeten. Olivier Lachampt"
            .Send
            
            End With

        Set oLapp = Nothing
        Set oItem = Nothing
        
        ActiveCell.Offset(0, 39).Range("A1").Formula = Date & " " & Time()
        ActiveCell.Offset(0, 40).Range("A1").Formula = ActiveCell.Offset(0, 36).Range("A1").Value
        
    End If
    
    ActiveCell.Offset(1, 0).Range("A1").Select
     
       
End Sub

Edit : Ajout des balises de code