Saving Send emails to a folder on the server

JohanKotze · Aug 19, 2024

Good day
I got this code from Slipstick Systems "Pick a Folder to save a send message". What I want to achieve is that when send button is clicked a dialog box on needs to open and the user will select between CommercialClients & PersonalClient then scroll to that client and save the message under sub dir Email Send

I am struggling to get this to work

Code:

Public Sub SaveMessageAsMsg()
  Dim oMail As Outlook.MailItem
  Dim objItem As Object
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim StrFolderpath As String
  Dim StrUserPath As Variant

'Defaults to Documents folder
'get the function at http://slipstick.me/u1a2d

StrUserPath = "\\JK_Server-PC\Users\JK_Server\My Documents\JKBrokers\Clients\"
StrFolderpath = BrowseForFolder(StrUserPath)
  
   For Each objItem In ActiveExplorer.Selection
   If objItem.MessageClass = "IPM.Note" Then
    Set oMail = objItem
    
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "-"
  
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "ddmmyyyy", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
      
  sPath = StrFolderpath & "\"
  Debug.Print sPath & sName
  oMail.SaveAs sPath & sName, olMSG
   
  End If
  Next
   
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "'", sChr)
  sName = Replace(sName, "*", sChr)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "\", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
  Dim ShellApp As Object
  Set ShellApp = CreateObject("Shell.Application"). _
 BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
 
 On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
 On Error GoTo 0
 
 Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":"
            If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "\"
            If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
        Case Else
            GoTo Invalid
    End Select
 Exit Function
 
Invalid:
    BrowseForFolder = False
End Function
 
Invalid:
 BrowseForFolder = False
End Function

When I run Debug to cursors the below dialog popup. When I run Debug to cursor the 2 dialog popup. I need the 1st dialog to popup. And there need be a nothing return if the user do not want to save the email.

JohanKotze · Aug 19, 2024

Not much interaction on this forum I persume. As my thread is related to Diane's code she posted on Slipstick.

JohanKotze · Aug 19, 2024

Marco only runs from within VBA Editor and not from send button in Outlook. Private Sub ReplaceCharsForFileName(sName As String, _<br> sChr As String _<br>) gives an error.

I have a digital signed macro

Diane Poremsky · Aug 19, 2024

I'm here - just haven't had time to test the code.

Diane Poremsky · Aug 19, 2024

JohanKotze said:
Marco only runs from within VBA Editor and not from send button in Outlook. Private Sub ReplaceCharsForFileName(sName As String, _<br> sChr As String _<br>) gives an error.

I have a digital signed macro

That sub replaces unsupported filename characters in the subject.

What is the exact error message?

Diane Poremsky · Aug 19, 2024

In a quickie test, it is working for me to save to a network folder.

Noticed this is duplicated.

Code:

Invalid:
    BrowseForFolder = False
End Function
 
Invalid:
 BrowseForFolder = False
End Function

To cleanly exit if clicking cancel, add the If statement after the strfolderpath line.

Code:

StrFolderpath = BrowseForFolder(StrUserPath)
 
 If StrFolderpath = "False" Then
      Cancel = True
      Exit Sub
  End If

On the wrong dialog - is the path correct? If it isn't, you'll get this dialog. If it is correct, test it with a shorter path and see if it brings up the correct folders (ie, use just \\JK_Server-PC\Users\). No need to create the subfolders - you should be able to tell by looking if it is using the path.

JohanKotze · Aug 19, 2024

Hi Diane thank you so much for replying. I will apply your suggestions and revert back tomorrow. Thx a lot.

JohanKotze · Aug 20, 2024

Hi Diane
I amand the code as follow and do the StrFolderPath bit for bit and it works. I add the cancel code. The duplication in BrowserForFolder was a typo and was not duplicated in Outlook VBA Editor.. So the code now looks like this

Code:

Public Sub SaveMessageAsMsg()
  Dim oMail As Outlook.MailItem
  Dim objItem As Object
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim StrFolderpath As String
  Dim StrUserPath As Variant

'Defaults to Documents folder
'get the function at http://slipstick.me/u1a2d

StrUserPath = "\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\"
StrFolderpath = BrowseForFolder(StrUserPath)

If StrFolderpath = "False" Then
      Cancel = True
      Exit Sub
  End If
 
   For Each objItem In ActiveExplorer.Selection
   If objItem.MessageClass = "IPM.Note" Then
    Set oMail = objItem
   
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "-"
 
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "ddmmyyyy", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
     
  sPath = StrFolderpath & "\"
  Debug.Print sPath & sName
  oMail.SaveAs sPath & sName, olMSG
 
  End If
  Next
 
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "'", sChr)
  sName = Replace(sName, "*", sChr)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "\", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
  Dim ShellApp As Object
  Set ShellApp = CreateObject("Shell.Application"). _
 BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
 
 On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
 On Error GoTo 0
 
 Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":"
            If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "\"
            If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
        Case Else
            GoTo Invalid
    End Select
 Exit Function
 
Invalid:
    BrowseForFolder = False
End Function

The I run Debug on Public Sub SaveMessageAsMsg()
StrUserPath = "\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\" popup display so far so good

Debug on
Private Sub ReplaceCharsForFileName(sName As String, _
sChr As String _
)
Brought nothing up nor any error , maybe because there is nothing

Debug on Function BrowseForFolder(Optional OpenAt As Variant) As Variant and the dialog box displayed

So I remove and add the digital signature again exit VBA Developer and outlook and restart Outlook. Dis test send email but no dialog box popup. So I went to VBA Editor and run the macro from there all is working good. Macro setting set to "Notifications for digitally signed macros, all other macro disabled I event set the Marco to low no popup

When I run the Marco from within VBA Editor the correct popup pops up

Diane Poremsky · Aug 20, 2024

JohanKotze said:
Debug on Function BrowseForFolder(Optional OpenAt As Variant) As Variant and the dialog box displayed

Running/debugging that will default to the default path - because you did not pass a location to it - that is the "Optional OpenAt As Variant" part.

The same would apply to ReplaceCharsForFileName - it requires a value (the string you want to clean) to work.

JohanKotze · Aug 20, 2024

Diane Poremsky said:
Running/debugging that will default to the default path - because you did not pass a location to it - that is the "Optional OpenAt As Variant" part.

The same would apply to ReplaceCharsForFileName - it requires a value (the string you want to clean) to work.

Hi Diane I understand the above argument

What I do not understand is the fact the (macro) popup is working in VBA Editor but not in Outlook when I click on Send. What do I do wrong

Diane Poremsky · Aug 21, 2024

The macro - SaveMessageAsMsg - is not an automatic macro. It will run from a button you click on the ribbon - and applies to the selected messages.

You need to use the macro here if you want it automated.

Save Selected Email Message as .msg File

A VBA code sample to save one or more selected messages to your My Documents folder as .msg files, using the received date and time as the filename.

www.slipstick.com

It needs to be in ThisOutlookSession - the macro above needs tweaked to be added to the itemadd macro - specially, removing all of the code that deals with processing selected messages.

Code:

Private WithEvents objSentItems As Items

Private Sub Application_Startup()
Dim objSent As Outlook.MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objSentItems = objNS.GetDefaultFolder(olFolderSentMail).Items
Set objNS = Nothing
End Sub
 
Private Sub objSentItems_ItemAdd(ByVal Item As Object)

-- snip --

Or use itemsend -

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

 ' code to save goes here 

End Sub

JohanKotze · Aug 21, 2024

Diane Poremsky said:
The macro - SaveMessageAsMsg - is not an automatic macro. It will run from a button you click on the ribbon - and applies to the selected messages.

You need to use the macro here if you want it automated.

Save Selected Email Message as .msg File

A VBA code sample to save one or more selected messages to your My Documents folder as .msg files, using the received date and time as the filename.

www.slipstick.com

It needs to be in ThisOutlookSession - the macro above needs tweaked to be added to the itemadd macro - specially, removing all of the code that deals with processing selected messages.

Code:

Private WithEvents objSentItems As Items Private Sub Application_Startup() Dim objSent As Outlook.MAPIFolder Set objNS = Application.GetNamespace("MAPI") Set objSentItems = objNS.GetDefaultFolder(olFolderSentMail).Items Set objNS = Nothing End Sub Private Sub objSentItems_ItemAdd(ByVal Item As Object) -- snip --

Or use itemsend -

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) ' code to save goes here End Sub

Hi Diane like this if use the 2nd option

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim oMail As Outlook.MailItem
  Dim objItem As Object
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim StrFolderpath As String
  Dim StrUserPath As Variant

'Defaults to Documents folder
'get the function at http://slipstick.me/u1a2d

StrUserPath = "\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\"
StrFolderpath = BrowseForFolder(StrUserPath)

If StrFolderpath = "False" Then
      Cancel = True
      Exit Sub
  End If
 
   For Each objItem In ActiveExplorer.Selection
   If objItem.MessageClass = "IPM.Note" Then
    Set oMail = objItem
    
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "-"
 
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "ddmmyyyy", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
      
  sPath = StrFolderpath & "\"
  Debug.Print sPath & sName
  oMail.SaveAs sPath & sName, olMSG
  
  End If
  Next
  
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "'", sChr)
  sName = Replace(sName, "*", sChr)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "\", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
  Dim ShellApp As Object
  Set ShellApp = CreateObject("Shell.Application"). _
 BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
 
 On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
 On Error GoTo 0
 
 Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":"
            If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "\"
            If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
        Case Else
            GoTo Invalid
    End Select
 Exit Function
 
Invalid:
    BrowseForFolder = False
End Function

JohanKotze · Aug 21, 2024

JohanKotze said:

Hi Diane like this if use the 2nd option

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim oMail As Outlook.MailItem
  Dim objItem As Object
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim StrFolderpath As String
  Dim StrUserPath As Variant

'Defaults to Documents folder
'get the function at http://slipstick.me/u1a2d

StrUserPath = "\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\"
StrFolderpath = BrowseForFolder(StrUserPath)

If StrFolderpath = "False" Then
      Cancel = True
      Exit Sub
  End If
 
   For Each objItem In ActiveExplorer.Selection
   If objItem.MessageClass = "IPM.Note" Then
    Set oMail = objItem
   
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "-"
 
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "ddmmyyyy", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
     
  sPath = StrFolderpath & "\"
  Debug.Print sPath & sName
  oMail.SaveAs sPath & sName, olMSG
 
  End If
  Next
 
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "'", sChr)
  sName = Replace(sName, "*", sChr)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "\", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
  Dim ShellApp As Object
  Set ShellApp = CreateObject("Shell.Application"). _
 BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
 
 On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
 On Error GoTo 0
 
 Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":"
            If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "\"
            If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
        Case Else
            GoTo Invalid
    End Select
 Exit Function
 
Invalid:
    BrowseForFolder = False
End Function

HI Diane thanks for this. The is a hick up however. The dialog do popup and I save the email under the client's dir. But my message to the my client email before sending is not save only my client' email.

JohanKotze · Aug 21, 2024

JohanKotze said:
HI Diane thanks for this. The is a hick up however. The dialog do popup and I save the email under the client's dir. But my message to the my client email before sending is not save only my client' email.

What I just pick up is that I was sending another to another client and save it to the client's dir but the email that was accually save was the one in the above reply that was sent previously and not the current one.

JohanKotze · Aug 21, 2024

JohanKotze said:
What I just pick up is that I was sending another to another client and save it to the client's dir but the email that was accually save was the one in the above reply that was sent previously and not the current one.

Its as if the code hold the previous email and not delete or release it

Diane Poremsky · Aug 21, 2024

It needs tweaked a little - removing the lines that deal with the selection and removing the DIMs and changing the object name in the "title" - the last is because its easier to change their than editing all the uses in the code.

I also moved the line "If oMail.MessageClass = "IPM.Note" Then" to before you choose the path - it makes more sense here. (In the manual macro you can choose a selection, which could include non-email items so it makes sense to check it during the saving part, after the path is set.)

Code:

Private Sub Application_ItemSend(ByVal oMail As Object, Cancel As Boolean)
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim StrFolderpath As String
  Dim StrUserPath As Variant

'Defaults to Documents folder
'get the function at http://slipstick.me/u1a2d
If oMail.MessageClass = "IPM.Note" Then

StrUserPath = "C:\Users\JennyWren\OneDrive - Slipstick Systems\Documents\"
StrFolderpath = BrowseForFolder(StrUserPath)

If StrFolderpath = "False" Then
      Cancel = True
      Exit Sub
  End If
 
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "-"
 
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "ddmmyyyy", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
     
  sPath = StrFolderpath & "\"
  Debug.Print sPath & sName
  oMail.SaveAs sPath & sName, olMSG
 
  End If
 
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "'", sChr)
  sName = Replace(sName, "*", sChr)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "\", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
  Dim ShellApp As Object
  Set ShellApp = CreateObject("Shell.Application"). _
 BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
 
 On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
 On Error GoTo 0
 
 Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":"
            If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "\"
            If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
        Case Else
            GoTo Invalid
    End Select
 Exit Function
 
Invalid:
    BrowseForFolder = False
End Function

Diane Poremsky · Aug 21, 2024

BTW - these are the lines that need to be removed - the first one applies to the selection - probably the previously sent message. The only thing left was to make sure we use oMail everywhere, not objitem.

For Each objItem In ActiveExplorer.Selection
If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

and then the Next at the end.

JohanKotze · Aug 21, 2024

Diane Poremsky said:
BTW - these are the lines that need to be removed - the first one applies to the selection - probably the previously sent message. The only thing left was to make sure we use oMail everywhere, not objitem.

For Each objItem In ActiveExplorer.Selection
If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

and then the Next at the end.

Thx Diane, you are really a star. Where were you all my life

JohanKotze · Aug 21, 2024

Hi Diane just picking this up. The email I send is saved before sending

JohanKotze · Aug 21, 2024

JohanKotze said:
Hi Diane just picking this up. The email I send is saved before sending

View attachment 4241

Sorry email is not saved. Typo error in above post

Thread starter	Title	Forum	Replies	Date
N	Saving .msg as sent item on send	Outlook VBA and Custom Forms	1	Sep 7, 2014
	Background colors not saving in Outlook 365	Using Outlook	15	Sep 28, 2023
R	Saving Emails and Attachments as .msg file	Using Outlook	3	Jun 18, 2023
	Saving Data: Don't check certain folders	Using Outlook	2	Oct 19, 2022
M	Saving emails using Visual Basic - Selecting folder with msoFileDialogFolderPicker	Outlook VBA and Custom Forms	6	Mar 2, 2022
D	Outlook 2016 Outlook not saving Sent Items	Using Outlook	4	Jan 27, 2021
I	Error saving screenshots in a custom form in outlook 2016, outlook 365 - ok in outlook 2013, outlook 2010	Outlook VBA and Custom Forms	5	May 14, 2020
I	Saving attachments from multiple emails and updating file name	Outlook VBA and Custom Forms	0	Feb 27, 2020
M	Adding Subject to this Link-Saving VBA	Outlook VBA and Custom Forms	5	Oct 25, 2019
L	Attachment saving and tracking - PLEASE help!	Outlook VBA and Custom Forms	5	Oct 9, 2019
D	Saving Selected Emails as PDF and saving Attachments	Outlook VBA and Custom Forms	6	Dec 20, 2017
B	Saving items under a folder	Using Outlook	3	Dec 4, 2017
R	Quick Access view in File Explorer when saving attachments	Using Outlook	0	Nov 28, 2017
N	Saving And Deleting Outlook Attachments with Unknown Error Message	Outlook VBA and Custom Forms	1	Aug 23, 2017
V	Saving attachment from outlook in My Documents	Outlook VBA and Custom Forms	14	Jul 8, 2017
M	Dialog called up multiple times when saving emails from macro	Outlook VBA and Custom Forms	2	May 23, 2017
A	saving attachement to folder named the same as rule name	Outlook VBA and Custom Forms	0	Apr 6, 2017
T	Saving all email to file folder in Windows	Using Outlook	2	Nov 28, 2016
J	Saving attachments from specific sender (phone number) to specific folder on hard drive	Using Outlook	3	Sep 13, 2016
C	Saving Outlook attachments and links to attachments with VBA	Outlook VBA and Custom Forms	2	Aug 29, 2016
	Remotely saving emails	Using Outlook	1	Jul 3, 2016
R	Outlook 2010 Modify Style "Do not check spelling or grammar" not saving	Outlook VBA and Custom Forms	0	Nov 5, 2015
R	Outlook Office 365 not saving addresses	Using Outlook	0	Sep 10, 2015
A	Keep color categories when saving vCards	Using Outlook	1	Jun 24, 2015
P	Saving All Messages to the Hard Drive Using VBA	Outlook VBA and Custom Forms	5	Jun 18, 2015
	question about saving my .pst so I can import it to my Outlook after I build a new system	Using Outlook	10	Mar 11, 2015
S	Editing an email with notes and saving it for record using Macro	Outlook VBA and Custom Forms	3	Feb 5, 2015
O	Saving Attachments to folder on disk and adding Initials to end of file name	Outlook VBA and Custom Forms	9	Feb 4, 2015
J	Outlook 2013 crashes saving VBA & clicking tools \| digital signature	Outlook VBA and Custom Forms	1	Dec 21, 2014
	Saving sent email to specific folder based on category with wildcard	Outlook VBA and Custom Forms	1	Dec 20, 2014
	Changes to meeting body not properly saving	Outlook VBA and Custom Forms	4	May 8, 2014
A	ItemAdd on Imap Folder get endless loop after saving item	Using Outlook	5	May 6, 2014
T	Saving Outlook 2010 email with attachments but read the email without Outlook	Using Outlook	2	Mar 18, 2014
T	From Field Blank when saving to folder other than Sent items	Using Outlook	2	Jan 23, 2014
L	Outlook DST (Daylight Saving Time) problem	Using Outlook	0	Jan 20, 2014
F	Using Outlook 2007 as an IMAP Mail Station Without Saving Data Locally	Using Outlook	2	Dec 7, 2013
E	Saving Changes To Edited E-Mail Received Message	Using Outlook	0	Nov 2, 2013
D	File Lock issue when saving message from Outlook to new folder	Using Outlook	1	Oct 22, 2013
D	Remove extension while saving attachments	Using Outlook	1	Sep 6, 2013
K	Printing & Saving Outlook Contacts	Using Outlook	3	Aug 10, 2013
S	Not saving attachments in the Sent Folder	Using Outlook	2	Aug 3, 2013
S	trouble with Outlook 2010 saving sent emails	Using Outlook	2	Jun 4, 2013
D	Saving outlook emails in html and attachments	Using Outlook	4	Apr 30, 2013
W	Default Saving a message as text	Using Outlook	2	Apr 8, 2013
R	Outlook 2007 QAT buttons not saving	Using Outlook	2	Feb 7, 2013
C	Exchange 2003 - Outlook 2003 - Calendar entries saving over each other	Using Outlook	2	Oct 30, 2012
J	Saving Published Outlook Form as msg	Using Outlook	1	May 29, 2012
J	Saving recent colors used for fonts in an email?	Using Outlook	1	Mar 15, 2012
B	How to choose which contacts folder to use when saving contacts?	Using Outlook	1	Feb 22, 2012
J	Saving Incoming & Outgoing Outlook 2010 Email Locally with IMAP	Using Outlook	2	Nov 9, 2011

Saving Send emails to a folder on the server

Similar threads