Web Listing 1: VBA Macro to Send the Current Word Document as an Outlook Attachment

Sub SendMeWord()
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem
    Dim strMsg As String
    Dim intRes As Integer
   
    If Not ActiveDocument.Saved Then
        strMsg = "Word needs to save this document before " & _
            "Outlook can send it. Is that OK?"
        intRes = MsgBox(strMsg, vbQuestion + vbYesNo, "Save Document?")
        If intRes = vbYes Then
            ActiveDocument.Save
        End If
    End If
   
    If ActiveDocument.Saved Then
        Set objOL = CreateObject("Outlook.Application")
        Set objMsg = objOL.CreateItem(olMailItem)
        objMsg.Attachments.Add ActiveDocument.FullName
        objMsg.Display
    End If
   
    Set objMsg = Nothing
    Set objOL = Nothing
End Sub