Anführungszeichen im .body einfügen

Private Sub CommandButton2_Click()



a = MsgBox("Ist es wirklich Szenario 3?", vbYesNo)

If a = vbNo Then Exit Sub Else



Dim body As String

   

    With CreateObject("Outlook.Application").CreateItem(0)

      .GetInspector.Display

      .To = Range("A4").Value

      .Subject = "Vertragsobjekt:"

      .body = "Sehr geehrte/r ," & vbCrLf & vbCrLf _

            & "vielen Dank für die Zustimmung zur Hinterlegung Ihrer E-Mail-Adresse hier soll ein Anführungszeichen hin " & Range("A4") & hier soll ein Anführungszeichen hin " als zusätzliche Kontaktmöglichkeit für die Übermittlung wichtiger Informationen. " & vbCrLf _

            & "Zusätzlich werden wir Ihnen die Protokollierungen bei einem Ausfall des Testrufes zukünftig ebenfalls an diese zustellen. " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "  "

  End With

End Sub