Good day
I hope you are all well and safe.
We request a lot of information from our clients on a regular basis. We usually keep track of all our requests on a request list in Excel.
But updating this request list on a daily basis is both time consuming and frustrating.
I'm therefore busy creating a request list using VBA to assist with this process.
The current code below creates a directory where the requested information needs to be uploaded by the client.
It then opens up a mail in Outlook where the details of the request will be communicated.
Is there a way to save this mail to the created directory once it has been sent?
Any assistance will be greatly appreciated.
I hope you are all well and safe.
We request a lot of information from our clients on a regular basis. We usually keep track of all our requests on a request list in Excel.
But updating this request list on a daily basis is both time consuming and frustrating.
I'm therefore busy creating a request list using VBA to assist with this process.
The current code below creates a directory where the requested information needs to be uploaded by the client.
It then opens up a mail in Outlook where the details of the request will be communicated.
Is there a way to save this mail to the created directory once it has been sent?
VBA Code:
Private Sub bSubmitRequest_Click()
Dim sCreateFolder As String
Dim olApp As Object
Dim olEmail As Object
'Create Company folder if it does not exist
sCreateFolder = Range("D3").Value & "\" & Range("B12").Value
If Len(Dir(sCreateFolder, vbDirectory)) = 0 Then
MkDir sCreateFolder
End If
'Create Section folder if it does not exist
sCreateFolder = sCreateFolder & "\" & Range("C12").Value
If Len(Dir(sCreateFolder, vbDirectory)) = 0 Then
MkDir sCreateFolder
End If
Set olApp = CreateObject("Outlook.Application")
Set olEmail = olApp.CreateItem(olMailItem)
With olEmail
.To = Range("F12").Value
.Subject = Range("B12").Value & " - " & Range("C12").Value
.Display
End With
End Sub
Any assistance will be greatly appreciated.