Outlook 2019 Pick the Folder Location to save send emails

J

JohanKotze

Senior Member
OS Version(s)
  1. Windows
Outlook version
Outlook 2019 64-bit
Email Account
IMAP
Operating system::    Windows 10 Pro
Outlook version:     2019
Email type or host:    IMAP
Hi I am new to Outlook VBA and follow Slipstick for awhile now are interested in Saving Send Email to a Folder using "Pick the Folder Location", I get a "compile error sub section not define" at ReplaceCharsForFileName. Here the code from Slipstick that I put in ThisOutlookSession

I hope Idid the BrowseForFolder Function right.
--------------------------
Option Explicit
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 enviro As String
Dim strFolderpath As String

enviro = CStr(Environ("USERPROFILE"))

'Defaults to Documents folder

' get the function at How to use Windows File Paths in a Macro
strFolderpath = enviro & "\\JK_Server-PC\Users\JK_Server\My Documents\JKBrokers\Clients\" 'BrowseForFolder

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
‐-----------------------------
I did add the ReplaceCharsForFilename to ThisOutlookSession
------------------------------
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
-------‐--------------------
but I get an error message that say "Marco Failed"
 
You must log in or register to reply here.
< Auto Remove [EXTERNAL] from Subject + ConversationTopic (WITHOUT Redemption plug-in) | Reply a selected message and remove blank space before signature Outlook 365 version 2406 64BIT >
Similar threads
Thread starter Title Forum Replies Date
A Pick Folder Substitute-----IMP AND URGENT Exchange Server Administration 2
farrissf Category list to pick from Outlook VBA and Custom Forms 4
L However, before you place an order, you want to pick out whether or not you want the to Using Outlook 0
T Pick-a-Meeting in Outlook 365 Using Outlook 2
G How do I create a custom pick list in VB for an outlook automated email? Outlook VBA and Custom Forms 1
Diane Poremsky How to Create a Pick-a-Meeting Request Using Outlook 0
E Automatically pick up Recipient's Name on the Body of the Email Message Using Outlook 1
B Llimit the number of people accepting one of the "pick a date" meeting Using Outlook 1
B Best way to get a pick-list on a form? Outlook VBA and Custom Forms 1
Q Email Address from Pick List Outlook VBA and Custom Forms 4
S Pick from list to use in a field Outlook VBA and Custom Forms 2
A OL24 Calendar folder pane too narrow Using Outlook 9
E "Cannot display the folder. MS Outlook cannot access the specified file location" Using Outlook 8
S How to get the actual Public Folder path from Favourites Folders Outlook VBA and Custom Forms 3
D.Moore Outlook COM addins source folder Using Outlook 12
M Folder names - rich text Using Outlook 6
E Gmail folder -why, in .ost IMAP situation, as well as Googlemail folder? Using Outlook 0
J Saving Send emails to a folder on the server Outlook VBA and Custom Forms 63
macdotcom Outlook 365 Outlook folder export to PST archival tool - close, but need a nudge Outlook VBA and Custom Forms 2
B How to get PST folder datetime? Outlook VBA and Custom Forms 1
M Search message, then (1) Jump to folder & (2) Select message that you searched for Outlook VBA and Custom Forms 6
G Search Folders and Jump to Folder Outlook VBA and Custom Forms 2
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P Yahoo/IMAP folder rename by Outlook desktop 365 Using Outlook 0
A Outlook 2019 folder counter Using Outlook 0
A Search folder and move the email Outlook VBA and Custom Forms 0
N Reply to Outlook messages by moving messages to a specific Outlook folder Outlook VBA and Custom Forms 1
T How to find or display the sub-folder name for an Archive Search Using Outlook 10
A Outlook 365 (OutLook For Mac)Move "On My Computer" Folder Items From Old To New Mac Computer Using Outlook 4
P Search folder: all emails sent to or from a domain Using Outlook 1
V Folder Properties - Gmail account can't switch Using Outlook 5
Victor_50 Outlook 2019 Jump to folder from search folder Outlook VBA and Custom Forms 0
HarvMan Outlook 365 - Rule to Move an Incoming Message to Another Folder Using Outlook 4
S Email Macros to go to a SHARED Outlook mailbox Draft folder...NOT my personal Outlook Draft folder Using Outlook 2
I Help with Smart Folder + Query Builder on IMAP Using Outlook 0
S Paperclip icon shows without attachment in email under Sent folder Using Outlook 0
Kika Melo Outlook Calendar deleted appointments not in Deleted Items folder Using Outlook 3
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
Z Outlook 365 Automatically assign categories to incoming mail in a shared folder Round Robin Outlook VBA and Custom Forms 1
G Adding a contact to a specific folder Using Outlook 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
Rupert Dragwater Duplicate email in Folder Using Outlook 7
S Adding a recipient's column to Sent folder in Outlook 2010 Outlook VBA and Custom Forms 1
L "Insert Pictures" Button-Wrong Folder Using Outlook 5
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
CWM330 Outlook 365 Hey Diane! MS 365 Biz Standard and "Potential Spam" addressed to others coming to my JUNK folder? Using Outlook 2
J Quick steps delete original email and move reply/sent email to folder Using Outlook 2
A manual rule sends mail to wrong folder Using Outlook 5
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5

Similar threads

Back
Top