Private Sub CommandButton111_Click() 
    Dim outl As Object 
    Dim Mail As Object 
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString 
    Dim PDFname As String 
 
    Msg = "Your Document will be saved as PDF before mailing it as attachment, please agree?" 
    Style = vbOKCancel + vbQuestion + vbDefaultButton2 
    Title = "Document" 
    Ctxt = 1000 
    Response = MsgBox(Msg, Style, Title, Help, Ctxt) 
    If Response = vbOK Then 
        ActiveDocument.Save 
        PDFname = ActiveDocument.Path & "\" & "Document.pdf" 
        ActiveDocument.ExportAsFixedFormat OutputFileName:=PDFname, _
          ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
          OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
          Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
          CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
          BitmapMissingFonts:=True, UseISO19005_1:=False 
        Set outl = CreateObject("Outlook.Application") 
        Set Mail = outl.CreateItem(0) 
        Mail.Subject = "Document" 
        Mail.HTMLBody = "Document<br> <br> <img src='image.gif'>" 
        Mail.To = "" 
        Mail.Attachments.Add PDFname 
        Mail.Display 
    Else 
        MsgBox "You have chosen not to save PDF and your file will not be sent" 
        Cancel = True 
    End If 
End Sub