Mail VBA et config outlook

bonjour je suis en train de me faire un fichier VBA mais je ne m'y retrouve pas
dans l'onglet menu en cliquant sur le bouton vert de droite j'arrive à une userform
mot de passe actuel okdemquai
si je coche la case "cochez si besoin intervention maintenance" j'aurais voulu faire partir un mail aux adresses mails renseignées dans l'onglet liste transporteur ma macro dit ca

Private Sub CheckBox8_Click()
Dim ClientEmail As Object
Dim Message As Object
Dim Corps As String

Set ClientEmail = CreateObject("Outlook.Application")
Set Message = ClientEmail.CreateItem(0)

Corps = "Bonjour" & vbCrLf & vbCrLf _
& "Une anomalie a été détectée durant le ok demarrage" & vbCrLf & vbCrLf _
& "Merci de prévoir une intervention rapidement. " & vbCrLf _
& "Logistique reception. " & vbCrLf _
& "Gap leader 652. " & vbCrLf _

On Error Resume Next
With Message
.To = "blabla@bla.com;"
.CC = "blabla@bla.com"
.Subject = "OK demarrage quai reception non conforme"
.Body = Corps
.Send

MsgBox "Message envoyé avec succès à " & Format(Time(), "hh:mm"), vbOKOnly, "OK DEMARRAGE NON CONFORME" 'Message confirmant l'envoi du mail avec précision de l'heure d'envoi
End With
On Error GoTo 0

Set Message = Nothing
Set ClientEmail = Nothing

End Sub

je ne sais pas comment la modifier pour lui dire d'aller chercher les valeurs
ensuite j'obtiens ce message dans outlook comment faire en sorte pour le supprimer

merci pour votre aide