In einem Worddokument zwei CommanButtons erstellen. CB1 für das eingeben der Mailadresse und den Dokumentenschutz. CB2 für den Mailversand. Dann sollte folgender Code im Modul "ThisDocument" hinkommen:

Option Explicit

Private Sub CommandButton1_Click()
Dim strEmailAdr As String
strEmailAdr = InputBox("Emailadresse des Empfängers eingeben:", "Mailadresse")
If InStr(1, strEmailAdr, "@", vbBinaryCompare) = 0 Or InStr(1, strEmailAdr, ".", vbBinaryCompare) = 0 Then
    MsgBox """" & strEmailAdr & """ ist keine Emailadresse!" & Chr(10) _
    & "Geben Sie eine gültige Emailadresse ein!", vbCritical, "Abbruch..."
    Exit Sub
End If
'Wenn auf diesem CodeModule vor der (jetzigen) Zeile 32: strEmailAdr = "" Code eingefügt wird muß in der folgenden
'Zeile die Zeilennummer 32 bei .ReplaceLine = 32 angepaßt werden!
ThisDocument.VBProject.VBComponents("ThisDocument").CodeModule.ReplaceLine 32, "strEmailAdr = """ & strEmailAdr & """"
ThisDocument.VBProject.VBComponents("ThisDocument").CodeModule.DeleteLines 2, 23
With ThisDocument.CommandButton1
    .Width = 0
    .Height = 0
    .ForeColor = 2
    .BackColor = 2
    .Enabled = False
End With
ThisDocument.Protect wdAllowOnlyReading, , strEmailAdr
ThisDocument.Save
End Sub

Private Sub CommandButton2_Click()
'Es muß ein Verweis auf das "Microsoft Outlook nn.n Object Library" gesetzt sein!
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim olMail As Outlook.MailItem
Dim olRun As Boolean
Dim strEmailAdr As String
strEmailAdr = ""
On Error Resume Next
If strEmailAdr = "" Then
    MsgBox "Wegen fehlender Emailadresse kann keine Antwortmail versandt werden!", vbCritical, "Abbruch..."
    Exit Sub
End If
olRun = True
Set olApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
    Err.Clear
    Set olApp = CreateObject("Outlook.Application"): DoEvents
    Start = Timer
    While Timer < Start + 5
        DoEvents
    Wend
    olRun = False
End If

Set olMail = olApp.CreateItem(0)
With olMail
    'Die Angaben für "Subject" und "body" müssen natürlich angepaßt werden!
    .Recipients.Add strEmailAdr
    .Subject = "Rückmeldung"
    .body = "Ihre Mail bezüglich der ausstehenden Lieferung ist hier eingegangen und wurde bearbeitet."
    .send
End With
Set olMail = Nothing
If olRun = False Then
    olApp.Quit: DoEvents
    Start = Timer
    While Timer < Start + 5
        DoEvents
    Wend
End If
Set olApp = Nothing
End Sub