Saving Send emails to a folder on the server

[JohanKotze]

I don't know what add-in that one is - but as long as the VB add-in is loaded, the macro will work.

I'm guessing klavplg is part of the parent apps name - maybe stands for klav plugin? Beyond that, I don't know what it is or what klav could be.

Hi Diane
I find out that it is Kaspersky add in.
Can you please help me with post# 38

 

[Diane Poremsky]

Ok I run Outlook 2019 in safe mode (Outlook.exe /safe)
I then run Debug to cursor and get the following File Picker Dialog called Capture instead of the Correct Dialog (please see attachments). This happens in safe mode. In normal mode no popup dialog

View attachment 4267

View attachment 4268

There is something not correct in the file path - that is why it drops back to the user's folder.

You opened the path in file explorer and copied it from the address bar, correct?

 

[Diane Poremsky]

Hi Diane
I find out that it is Kaspersky add in.
Can you please help me with post# 38

I wondered if it was that - but the L in the name mage me question it.

 

[JohanKotze]

All I did was to copy the working code from Outlook 2021 and paste it into Outlook 2019 VBE and signed the code. The path for saving the email is the same as in Outlook 2021

 

[JohanKotze]

There is something not correct in the file path - that is why it drops back to the user's folder.

You opened the path in file explorer and copied it from the address bar, correct?

No, I got the path from an on click event bihind a button of my email (outlook) automation saving a report in pdf format under client directory.

All I did was to copy the working code from Outlook 2021 and paste it into Outlook 2019 VBE and signed the code. The path for saving the email is the same as in Outlook 2021.

When Outlook 2019 is in safe and do a Debug to cursor then only does user folder popup. In normal mode nothing no dialog popup

 

[Diane Poremsky]

If you copy the path and paste it into file explorer, does the folder open?

If you use your local documents folder, does it work?

 

[JohanKotze]

If you copy the path and paste it into file explorer, does the folder open?

If you use your local documents folder, does it work?

Hi Diane
I tried the above nothing open. I post the code again maybe I am missing something

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 oMail As Object)

 Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim StrFolderpath As String
  Dim StrUserPath As Variant
 
  MsgBox "macro is running"

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

'StrUserPath = "\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\"
StrUserPath = "C:\Users\Server\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]

Is this the path on the computer Outlook is installed on?
C:\Users\Server\Documents\

In this screenshot it is OfficeWS?

Actually... it would be better to use the downloads folder - that way you know if macro is using the path in the script, not the default.

If you paste this into the address bar in file explorer, does it open?
\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\

 

[JohanKotze]

Is this the path on the computer Outlook is installed on?
C:\Users\Server\Documents\

In this screenshot it is OfficeWS?
View attachment 4276


Actually... it would be better to use the downloads folder - that way you know if macro is using the path in the script, not the default.
View attachment 4275


If you paste this into the address bar in file explorer, does it open?
\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\

It should be OfficeWS I typed the wrong name. As this computer has 2 Users but main user OfficeWS.

I will do what you suggested during this weekend. I am off to play ️ tomorrow.

 

[JohanKotze]

Is this the path on the computer Outlook is installed on?
C:\Users\Server\Documents\

In this screenshot it is OfficeWS?
View attachment 4276


Actually... it would be better to use the downloads folder - that way you know if macro is using the path in the script, not the default.
View attachment 4275


If you paste this into the address bar in file explorer, does it open?
\\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\

Diane, Yes the location opens if I copied the \\JK_Server-PC\Users\JK_Server\Documents\JKBrokers\Clients\ directly into File Explorer under user OfficeWS.

I Debug line for line in the VBE, Step Into jumps to Function BrowseForFolder skipping all the Private Subs above. Then OfficeWS Folder do popup.



If I copied C:\Users\OfficeWS\Downloads. I get this mesaage can't find path.


I then remove the digital certificate re-added it, save the VBE file/save and also click the save icon, doing a double save,. Exit VBE and Outlook, svae the project and run Outlook. Send test email, nothing no folder to select popup.

 

[Diane Poremsky]

I would definitely leave the macro unsigned until it is working.

Using any local path (copied from the address bar in file explorer - but not the documents folder (subfolder of documents ok) - does it work?

 

[Diane Poremsky]

Step Into jumps to Function BrowseForFolder skipping all the Private Subs above.

When it hits StrFolderpath = BrowseForFolder(StrUserPath), it will jump to the browseforfolder sub - then when you select a folder, goes back to the main sub.

 

[JohanKotze]

I would definitely leave the macro unsigned until it is working.

Using any local path (copied from the address bar in file explorer - but not the documents folder (subfolder of documents ok) - does it work?

Diane I try this tomorrow

 

[JohanKotze]

When it hits StrFolderpath = BrowseForFolder(StrUserPath), it will jump to the browseforfolder sub - then when you select a folder, goes back to the main sub.

Diane
This what get when I select FAIS Files

 

[Diane Poremsky]

Diane
This what get when I select FAIS Files

View attachment 4281

You have the FAIS folder path as the path in the macro?

 

[JohanKotze]

Diane, no this what the BrowseForFolder function debugged.
I am struggling to copy a path from the local drive. It gives server as user instead of OfficeWS user.

C:\users\server\pictures\
Instead of C:\users\OfficeWS\pictures

This C:\users\server\pictures all so do not popup anything.

The following users is one PC
Server (I have to ask my IT why this user is on this PC as only OfficeWS used this PC
OfficeWS (this one is what admin use)

 

[Diane Poremsky]

Type C:\users\%username% in the address bar - what is the path? It's possible OfficeWS is the display name, not the alias name.

This is the result when I do it - the alias is diane but it uses my display name in the address bar - (signing in with Microsoft account)

The display name shows in the browse for folder dialog.

 

[JohanKotze]

Type C:\users\%username% in the address bar - what is the path? It's possible OfficeWS is the display name, not the alias name.

This is the result when I do it - the alias is diane but it uses my display name in the address bar - (signing in with Microsoft account)
View attachment 4283

The display name shows in the browse for folder dialog.

View attachment 4284

 

[JohanKotze]

Diane
C:\users\OfficeWS\Pictures show the below popup

 

[JohanKotze]

Diane Yes
C:\users\%username% is OfficeWS

Is there away to hard code this.

StrUserPath = "\\JK_Server-PC\Users\JK_Server\My Documents\JKBrokers\Clients\"

See that I am struggling to get it wright on this machine.