Save E mail using different path.

Status
Not open for further replies.

Frédéric

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Dear Diane

Thanks for your help. I will try this code as soon as possible. For now mine is obviously working and i already start to work on another one. But, i'm curious to try your code, specialy the "Case" part.
Anyway, thanks for helping. I'll keep you in touch with testing your lines.

Fred
 

Frédéric

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Yeah :) It works great. Every time a mail which is under a rule, incomes, mail is tidied in the correct sub-folder and saved by the script executed by rule :p

But now i have another challenge...

This deals with attached file. I'm specialy interrested by two type of mails :

- Nornofolio Details
- Plassit Rice

I'm adding two rules in Outlook because besides saving mail on network, i need to extract attached file too.

Code:
'----------------------Règle 8-------------------------------------------------------------------------------------------------------
Sub rule_ExtractCP(Mail As Outlook.MailItem)

  FundType = "Tlassic Rice"
  Call ExtractCP(Mail, "H:\XXX\99. DWH\EXTRACTION\Tlassic Rice\", FundType)

End Sub

with

Sub ExtractCP(MyMail As Outlook.MailItem, repertoire, FundType)

End Sub
and
Code:
Sub ExtractPD(MyMail As Outlook.MailItem, repertoire, FundType)

End Sub

with

'----------------------Règle 9-------------------------------------------------------------------------------------------------------
Sub rule_ExtractPD(Mail As Outlook.MailItem)

  FundType = "Portfolio Details"
  Call ExtractCP(Mail, "H:\XXX\99. DWH\EXTRACTION\Nornolio Details\", FundType)
 
End Sub
I already have a macro which is working perfectly. Aim of this macro is too seek into "Extraction" Outlook sub-folder for mails. For each of mails found, Macro opens attached file, read and copy A2 cell information and paste it in the Excel file of Macro. At the end, macro use pasted cell to create name of file on network.
I did it because i need to name my files with information took into attached file...

This is the code :
Macro is in a module of an Excel file named "Extraction - Browser.xlsm"

Code:
Sub RetrieveMailFiles_Click()

Dim MonOutlook As Outlook.Application
Dim ns As Namespace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim Mypath As String
Dim i As Integer
Dim dtDate As Date
Dim sDate As String
Dim sName2 As String
Dim sName3 As String
Dim Inbox2 As MAPIFolder
Dim Inbox3 As MAPIFolder
Dim Td As Date
Dim Rd As Date
Dim Nd As String
Dim awb As Workbook
Dim aws As Worksheet
Set ns = GetNamespace("MAPI")

Set InboxFold = ns.GetFolderFromID("00000000CA5063795BBABA4E85B7BB93FA4923A901001D2C09AE1B48E742934DA9D063E6543B000000E6E19D0000")

Set awb = ActiveWorkbook
Set aws = awb.ActiveSheet
Dim d As String

Application.ScreenUpdating = False

    For Each Item In InboxFold.Items
        For Each Atmt In Item.Attachments

'-----------------------------------------------------/ AAA /----------------------------------------

        If Item.UnRead = False And Right(Atmt.FileName, 3) = "xls" And Item.Body Like "*AAA*" Then
  
    'Creation of a Temp file "datefile" which is a pasting of attached file
            FileName = "H:\XXX\99. DWH\EXTRACTION\datefile.xls"
            Atmt.SaveAsFile FileName
            Workbooks.Open FileName

    'Copy of "A2" cell whichi is.....
            Range("A2").Select
            Selection.Copy

    'Pasting data from A2 to B2 in "Extraction - Browser.xlsm"
            Windows("Extraction - Browser.xlsm").Activate
            Range("B2").Select
            ActiveSheet.Paste
            Application.CutCopyMode = False

    'Opening of "datefile"
            FileName = "H:\BSI ManCo\Control Function\99. DWH\EXTRACTION\datefile.xls"
            Workbooks.Open FileName

    'Copy of E2
            Range("E2").Select
            Selection.Copy

    'Pasting of E2 in B3 in "Extraction - Browser.xlsm"
            Windows("Extraction - Browser.xlsm").Activate
            Range("B3").Select
            ActiveSheet.Paste
            Application.CutCopyMode = False

    'Closing of "datefile..xls"
            Workbooks("datefile.xls").Close
            Kill FileName
 
    'Final File Creation
            Windows("Extraction - Browser.xlsm").Activate
            ActiveWorkbook.Save
 
                sDate = aws.Range("D2").Value
                sName2 = aws.Range("D3").Value
                sName3 = aws.Range("B4").Value

            FileName = "H:\99. DWH\EXTRACTION\" & sDate & " - " & sName2 & " - " & sName3 & ".xls"
            Atmt.SaveAsFile FileName

            Item.UnRead = False

'-----------------------------------------------------------------/ BBB /----------------------------------------
     
                    ElseIf Item.UnRead = False And Right(Atmt.FileName, 3) = "xls" And Item.Body Like "*
     
'-----------------------------------------------------------------/ CCC/-----------------------------------------
     
                    ElseIf Item.UnRead = False And Right(Atmt.FileName, 3) = "xls" And Item.Body Like "*

'-----------------------------------------------------------------/ DDD/----------------------------------------
     
                    ElseIf Item.UnRead = False And Right(Atmt.FileName, 3) = "xls" And Item.Body Like "*
     
        End If

    'Next Attachment in same mail
       Next Atmt

    'Next Email
    Next Item

'Kill FileName
If InboxFold.Items.Restrict("[UnRead] = True").Count = 0 Then
        MsgBox "NO Unread Email In Multichallenge Globes Inbox"

End If

End Sub
Well...both macro are perfectly working but i have to find a way to adapt second one in Outlook. For now the part

Code:
Set InboxFold = ns.GetFolderFromID("00000000CA5063795BBABA4E85B7BB93FA4923A901001D2C09AE1B48E742934DA9D063E6543B000000E6E19D0000")
does not suit with because i'm not extracting mails in Outlook but mails in Windows browser !
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
so you want to put H:\XXX\99. DWH\EXTRACTION\Nornolio Details\saved-filename.ext in the cell?

Assign the path and filename to a global variable


or if i misunderstand what you need to do and you just need to convert this:
Set InboxFold = ns.GetFolderFromID("00000000CA5063795BBABA4E85B7BB93FA4923A901001D2C09AE1B48E742934DA9D063E6543B000000E6E19D0000")

to the default inbox, use
Set InboxFold =Ns.GetDefaultFolder(olFolderInbox)
 

Frédéric

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Not exactly Diane.
My incoming mails (the .msg files) are saved in a network drive (to H:\XXX\99. DWH\Incoming Mails) thanks to an Outlook rule which runs also a script. Ok
Now i would like to add a rule (and a script) in order to extract attached file.

I already have a macro to do the extraction and it works fine but this macro is made to seek mails in an Outlook folder and i would like to seek into a network drive (H:\XXX\99. DWH\Incoming Mails)
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
L Save Mail Message to new folder created automatically Outlook VBA and Custom Forms 1
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
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
S how to disable security message in save attachments macro "A programis trying to access e-mail addre Outlook VBA and Custom Forms 5
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
P Outlook pst file is too huge with POP3. How to save more space? Using Outlook 4
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 2
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
Similar threads


















































Top