Hi, really hope someone can help with this.
I have a macro button that sends a document via email. I would also like the macro to save the file in a particular location with some details in the filename.
For example,
path: C:\reports\templates
filename: to include, MMR, Author, date, time,
example: MMR A.N.Other 20160108 09:10.doc
My current macro code is below.
Code:
Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
With EmailItem
.Subject = "Monthly Management Report"
.Body = "Hi Brian," & vbCrLf & _
"Please find attached our Monthly Management Report" & vbCrLf & _
"Regards,"
.To = "n.parsons@lur.co.uk"
.Importance = olImportanceNormal
.Attachments.Add Doc.FullName
.Send
End With
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub
Private Sub CommandButton2_Click()
ActiveDocument.PrintOut Copies:=1
End Sub
Appreciate any help.