Public Sub EmailForm_Click() 
 
    Dim outl As Object 
    Dim Mail As Object 
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString 
    Dim PDFname As String 
 
    Msg = "Choose where to save this form. An email with a .pdf attachment will automatically be generated" 
    Style = vbOKCancel + vbQuestion + vbDefaultButton2 
    Title = "Confirm save & email" 
    Ctxt = 1000 
    Response = MsgBox(Msg, Style, Title, Help, Ctxt) 
    If Response = vbOK Then 
         'ActiveDocument.Save
        PDFname = ActiveDocument.Path & "\" & "SonicWall Config-" & AcctName & ".pdf" 
        ActiveDocument.ExportAsFixedFormat OutputFileName:=PDFname, ExportFormat:=wdExportFormatPDF, _
          OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
          Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, UseISO19005_1:=False, _
          CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True
        Set outl = CreateObject("Outlook.Application") 
        Set Mail = outl.CreateItem(0) 
        Mail.Subject = "SonicWall Config Request- " & AcctName 
        Mail.Body = "" 
        Mail.Importance = olImportanceHigh 
        Mail.To = "mtomlinson@tulsacash.com" 
        Mail.Attachments.Add PDFname 
        Mail.Display 
    Else 
        MsgBox "The document was saved, but will not be emailed" 
        Cancel = True 
    End If 
End Sub