Save E mail using different path.

Status
Not open for further replies.
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
 
Yeah... if it works, don't break it. :)
 
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 !
 
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)
 
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.
Similar threads
Thread starter Title 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
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
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Save emails within a certain date range to network drive Outlook VBA and Custom Forms 0
T Outlook 365 Move newly created tasks automatically on save. Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
N Save selected messages VBA does not save replies and/or messages that contain : in subject Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S save attachment with date & time mentioned inside the file Outlook VBA and Custom Forms 0
S Add VBA save code Using Outlook 0
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

Similar threads

Back
Top