Save Mail Message to new folder created automatically

Status
Not open for further replies.

leuzzo

New Member
Outlook version
Outlook 2010 32 bit
Email Account
IMAP
Hi ,
Please help me to do update in below code so as to create automatically a folder in established location (path D:\MailSave\FirstWordSubject), the folder name is with the first word from the subject mail. If it already exists (path D:\MailSave\) must just to copy in the message.

Sub SaveMsg(MyMail As MailItem)
On Error GoTo err

Dim strID As String
Dim olNS As Outlook.NameSpace
Dim olMail As Outlook.MailItem
Dim FolderName As String

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)

olMail.SaveAs "D:\MailSave\" & olMail.Subject & ".msg", olMSG

Set olMail = Nothing
Set olNS = Nothing
Exit Sub

err:
MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Assuming the words are delimited by a space, and assuming the mailsave folder does already exit :
Code:
FolderName=Left(olMail.Subject, Instr(olMail.Subject, " ")-1)
FolderName="d:\mailsave\" & FolderName
mkDir FolderName
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
S how to disable security message in save attachments macro "A programis trying to access e-mail addre Outlook VBA and Custom Forms 5
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
Frédéric Save E mail using different path. Outlook VBA and Custom Forms 24
P How to save sent mail and forward it the next day Exchange Server Administration 3
D VBA Script (Ask to where to save send mail) Outlook VBA and Custom Forms 1
K Ask about a simple script about save a incoming mail as file on local PC Outlook VBA and Custom Forms 3
F CAN'T SAVE OUTLOOK 2010 E-MAIL TEMPLATE (.oft) Using Outlook 1
S Save an attachment back to the original e-mail. Using Outlook 2
C Linking e-mail messages to Business Contact Manager records does not save the attachments in the ema Using Outlook 1
L Can not get Outlook to save e-mail account passwords. If I put passwords in manually system works fine, but when I close Outlook and reopen I have to Using Outlook 1
H Won't save a copy of every piece of sent mail? Using Outlook 7
H how to delete The address is auto save when i send mail Using Outlook 2
M how to save incoming mail in TRUE csv format Outlook VBA and Custom Forms 1
B Save e-mail to .msg file Outlook VBA and Custom Forms 4
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 0
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
R Use an ItemAdd to Save Attachments on Arrival Outlook VBA and Custom Forms 0
W Outlook Calendar does not save view any longer! Using Outlook 3
S automate save the .xlxs file to share Network Using Outlook 1
S save email from excel Outlook VBA and Custom Forms 1
Y Open and Save Hyperlink Files in multiple emails Outlook VBA and Custom Forms 9
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
O Save attachments using hotkey without changing attributes Outlook VBA and Custom Forms 1
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
N Open & Save VBAProject.Otm using VBA Code Outlook VBA and Custom Forms 1
R VBA | Chosing path to save file Outlook VBA and Custom Forms 1
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
V Change default default save location to Quick Access Using Outlook 1
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
C Change default "Save Sent Item To" folder Outlook VBA and Custom Forms 9
C Outlook - cannot save subject line changes Using Outlook 2
I Outlook 2016 64bit - on receipt convert emails into PDF and save Outlook VBA and Custom Forms 2
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
N editing drafts - won't let me save Using Outlook 12
nathandavies Email Details to Excel & Save as .MSG on one macro - combination of 2 macros Outlook VBA and Custom Forms 3
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
D Save Sent Item to Using Outlook 0
Diane Poremsky Save Selected Email Message as .msg File New Slipstick.com Articles 11
Diane Poremsky Export (Save) Outlook Contact photos New Slipstick.com Articles 0
Diane Poremsky Save Messages and Attachments to a New Folder New Slipstick.com Articles 0
B Delete/replace old files and save new attachments Using Outlook 1
E Outlook 2016 and Numerous Prompts to Save Emails Using Outlook 3
Diane Poremsky Save Outlook Email as a PDF New Slipstick.com Articles 0
Diane Poremsky Edit and Save Outlook's Read-Only Attachments New Slipstick.com Articles 0
Diane Poremsky Save Attachments to the Hard Drive New Slipstick.com Articles 2
B VBA Help Email that will save as draft and send as attachment Outlook VBA and Custom Forms 3
C Save Subject of Received Email as a String Outlook VBA and Custom Forms 1
C Rule To Save attachments on receipt of email Outlook VBA and Custom Forms 2
Similar threads


















































Top