hi macropod thanks for the help,
this document is going to be used for internal use only, the whole office is running office 2010 and windows 7.
i was going to give them the option, after much thought i have decided to keep these forms for future reference.
i have used the code you provided me previously. which is working great
instead of the document saving to the temp folder it now saves on the shared drive.
one problem i have is the naming of the document.
it is saving the document under the username but im unsure how to get the document to save using the info that has been written in the ActiveX TextBox
The ActiveX TextBox i want grab the info from is named TextBox111
are you able to help? i have also copied the latest code i am using
regards matt
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
Doc.SaveAs2 FileName:=("S:\DATA\InformationTech\Secured\New Staff") & "\" & Environ("username"), Fileformat:=wdFormatDocument, AddToRecentFiles:=True
With EmailItem
.Subject = "New Employee"
.Body = "" & vbCrLf & _
"" & vbCrLf & _
""
.To = "ITSupport@compnay.com.au"
.Importance = olImportanceHigh
.Attachments.Add Doc.FullName
.Display
End With
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub