Option Explicit
Dim strFilename As String
Sub SaveAndSend()
    Dim strDate As String
    Dim strNoti As String
    Dim strTitle As String
    
    strDate = ActiveDocument.SelectContentControlsByTag("EventDate").Item(1).Range.Text
    
    If IsDate(strDate) Then
        strDate = Format(strDate, "yyyy-mm-dd")
    Else
        MsgBox "Please select an event date.", vbExclamation, "Date Error"
        Exit Sub
    End If
    
    strNoti = ActiveDocument.SelectContentControlsByTag("NotificationNumber").Item(1).Range.Text
    strTitle = ActiveDocument.SelectContentControlsByTag("ShortText").Item(1).Range.Text
    
    If Not IsNumeric(strNoti) Or Len(strNoti) <> 9 Then
        MsgBox "Please enter a valid notification number.", vbExclamation, "Notification Error"
        Exit Sub
    End If
    
    If Left(strTitle, 5) = "Enter" Then
        MsgBox "Please enter short text.", vbExclamation, "Title Not Entered"
        Exit Sub
    End If
    
    
    
    strFilename = strDate & " " & strNoti & " " & strTitle & ".pdf"
    
    ActiveDocument.SaveAs FileName:= _
    "https://spo.bhpb.com/sites/COLMTAmac...Notifications/" & strFilename, FileFormat:=wdFormatPDF
    
    ActiveDocument.SaveAs FileName:= _
    "\\necmacfil01\bcc_data\Transfer\Sue Jones\NHSEC_DIR_CTRL_DOCS_(MRE)\" & strFilename, FileFormat:=wdFormatPDF
    
    Call SendDocumentAsAttachment
End Sub
Sub SendDocumentAsAttachment()
    Dim strDate As String
    Dim strNoti As String
    Dim strTitle As String
    
    strDate = ActiveDocument.SelectContentControlsByTag("EventDate").Item(1).Range.Text
    
    If IsDate(strDate) Then
        strDate = Format(strDate, "yyyy-mm-dd")
    Else
        MsgBox "Please select an event date.", vbExclamation, "Date Error"
        Exit Sub
    End If
    
    strNoti = ActiveDocument.SelectContentControlsByTag("NotificationNumber").Item(1).Range.Text
    strTitle = ActiveDocument.SelectContentControlsByTag("ShortText").Item(1).Range.Text
    
    If Not IsNumeric(strNoti) Or Len(strNoti) <> 9 Then
        MsgBox "Please enter a valid notification number.", vbExclamation, "Notification Error"
        Exit Sub
    End If
    
    If Left(strTitle, 5) = "Enter" Then
        MsgBox "Please enter short text.", vbExclamation, "Title Not Entered"
        Exit Sub
    End If
    
    
    
    strFilename = strDate & " " & strNoti & " " & strTitle & ".pdf"
    
    Dim bStarted As Boolean
     
    Dim oOutlookApp As Outlook.Application
     
     'You'll need to add the Outlook Object Library to VBA Tools References
     
    Dim oItem As Outlook.MailItem
    strTitle = ActiveDocument.SelectContentControlsByTag("ShortText").Item(1).Range.Text
    
    On Error Resume Next
     
    ' If Len(ActiveDocument.Path) = 0 Then 'Document has not been saved
         
        'so save it
    ' ActiveDocument.Save
        
    ' End If
     
     'see if Outlook is running and if so turn your attention there
     
    Set oOutlookApp = GetObject(, "Outlook.Application")
     
    If Err <> 0 Then 'Outlook isn't running
         
         'So fire it up
         
        Set oOutlookApp = CreateObject("Outlook.Application")
         
        bStarted = True
         
    End If
     
     'Open a new e-mail message
     
    Set oItem = oOutlookApp.CreateItem(olMailItem)
     
    With oItem 'and add the detail to it
         
        .To = "DL-COL-NEC-MACEventNotification@bhpb.com" 'send to this address
        .CC = ""
         '.BCC = ""
         
        .Subject = strDate & " " & strNoti & " " & strTitle 'This is the message subject
         
        
        .Attachments.Add Source:="\\necmacfil01\bcc_data\Transfer\Sue Jones\NHSEC_DIR_CTRL_DOCS_(MRE)\" & strFilename
        .Display
         
    End With
     
   ' If bStarted Then 'If the macro started Outlook, stop it again.
         
   '     oOutlookApp.Quit
         
   ' End If
     
     'Clean up
     
    Set oItem = Nothing
     
    Set oOutlookApp = Nothing
     
End Sub