Wie füge ich der Mail einen Text hinzu?

Option Explicit

Function GetPassword() As String
    Show
    GetPassword = InputPW.Text
    Unload Me
End Function

Private Sub InputPW_AfterUpdate()
    Hide
End Sub

Private Sub cBtnOK_Click()
    Hide
End Sub

Option Explicit

Private Const cdoFromAddress = "Deine Email-Adresse"            'Mail-Adresse-Von (Anpassen)  
Private Const cdoSmtpServer = "Smtp-Server-Adresse"             'Mail-Adresse-Smtp-Server (Anpassen)  

Private Const cdoBase64 = 1                                     'Mail-Kodierung  
Private Const cdoSendUsing = 2                                  'Mail-Senden  
Private Const cdoSSL = False                                    'Mail-SSL-Verschlüsselung True/False (Anpassen)  
Private Const cdoSmtpPort = 25                                  'Mail-Smtp-Port ohne SSL  
Private Const cdoSmtpPortSSL = 465                              'Mail-Smtp-Port mit SSL  
Private Const cdoTimeout = 60                                   'Mail-Timeout  
Private Const cdoConfig = "http://schemas.microsoft.com/cdo/configuration/"  

Private Const ErrMsg1 = "Keine EMail-Adressen gefunden"         'Fehlermeldung  
Private Const ErrMsg2 = "Kein Password angegeben!"              'Fehlermeldung  
Private Const ErrMsg3 = "Anhang nicht gefunden:"                'Fehlermeldung  
Private Const ErrMsg4 = "EMail-Versand fehlgeschlagen: "        'Fehlermeldung  

Sub SendMails() 'Diese Zeile durch die Button-Sub im Tabellenblatt ersetzen  
    Dim objHyperlink As Hyperlink, strPassword As String, strToAddress As String
    Dim strSubject As String, strText As String, strAttachment As String, x
    
    strPassword = FrmPW.GetPassword
    
    If strPassword = "" Then  
        MsgBox ErrMsg2, vbExclamation, "Fehler..."  
    Else
        With Columns("A:A")  
            If .Hyperlinks.Count Then
                strSubject = "Der Betreff"  
                strText = "Der Text"  
                strAttachment = Environ("Temp") & "\" & ActiveWorkbook.Name  
                ActiveWorkbook.SaveCopyAs strAttachment
    
                For Each objHyperlink In .Hyperlinks
                    If InStr(objHyperlink.Address, "mailto:") > 0 Then  
                        Call SendCdoMail(strPassword, objHyperlink.Name, strSubject, strText, strAttachment)
                    End If
                Next
                Kill strAttachment
                MsgBox "Habe Fertig!", vbInformation, "EMail-Versand..."  
            Else
                MsgBox ErrMsg1, vbExclamation, "Fehler..."  
            End If
        End With
    End If
End Sub

Private Sub SendCdoMail(ByRef strPassword, ByRef strToAddress, ByRef strSubject, _
                        ByRef strText As String, ByRef strAttachment)
    
    With CreateObject("CDO.Message")  
       .From = cdoFromAddress
       .To = strToAddress
       .Subject = strSubject
       .TextBody = strText
        
        If Dir(strAttachment) <> "" Then  
            .AddAttachment strAttachment
        Else
            MsgBox ErrMsg3, vbExclamation, "Fehler...":   Exit Sub  
        End If
    
        With .Configuration.Fields
            .Item(cdoConfig & "sendusing") = cdoSendUsing  
            'Smtp-Server Name oder IP  
            .Item(cdoConfig & "smtpserver") = cdoSmtpServer  
            'Smtp-Server SSL (True/False)  
            .Item(cdoConfig & "smtpusessl") = cdoSSL  
            'Smtp-Server Port (mit SSL 465/ohne SSL 25)  
            .Item(cdoConfig & "smtpserverport") = IIf(cdoSSL, 465, 25)  
            'Format-Type Base64 Encoded  
            .Item(cdoConfig & "smtpauthenticate") = cdoBase64  
            'Smtp-Server Benutzer ID  
            .Item(cdoConfig & "sendusername") = cdoFromAddress  
            'Smtp-Server Passwort  
            .Item(cdoConfig & "sendpassword") = strPassword  
            'Smtp-Server Timeout)  
            .Item(cdoConfig & "smtpconnectiontimeout") = cdoTimeout  
            .Update
        End With
        On Error Resume Next
       .Send
        If Err.Number Then MsgBox ErrMsg4 & strToAddress, vbExclamation, "Fehler..."  
        On Error GoTo 0
    End With
End Sub