Save Selected Email Message as .msg File

Status
Not open for further replies.

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
M

michaelr

Is it possible to use a VBA msoFileDialogFolderPicker instead of Function BrowseForFolder? I like to use the address bar of the FileDialogFolderPicker window.
 

Nik

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hello Diane,


how to modify the 1. code of "Save Selected Email Message as .msg File" to save the incoming e-mails via the rule (in the rule assistant via executing a script)?

The original code is with the line "For Each objItem In ActiveExplorer.Selection" which automatically prevents to select the correct e-mail. Witch line have I to mode to get the correct focus (= to process the e-mails that are filtered via the rule)?


Thanks
Nik
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Delete these lines plus the End If and Next that go with them:
For Each objItem In ActiveExplorer.Selection
If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

Delete
Dim oMail As Outlook.MailItem
Dim objItem As Object
and put oMail As Outlook.MailItem in the () in the title:
Public Sub SaveMessageAsMsg(oMail As Outlook.MailItem)

That should be all you need to do to convert it to a run a script macro (but its possible i missed something else).
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Is it possible to use a VBA msoFileDialogFolderPicker instead of Function BrowseForFolder? I like to use the address bar of the FileDialogFolderPicker window.
You can use the Excel or Word object model to access their open/save dialogs as Outlook VBA doesn't have its own open save dialog.

This is the Excel method but Word would be similar. Open the picker and set the name and location -
Set xlApp = CreateObject("Excel.application")
xlApp.Visible = False
strSaveAsFilename = xlApp.GetSaveAsFilename
xlApp.Quit
Set xlApp = Nothing

use it in the macro like this:
Attachment.SaveAsFile(strSaveAsFilename)
 

Nik

Member
Outlook version
Outlook 2007
Email Account
IMAP
Thank Diane!
My problem was that I didn't' delite the line "Dim oMail As Outlook.MailItem" also.
Now it works!
 

Nik

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hello Diane,

I have here a VBA code but this is not mine I think I am not allow to publish it (also on the forum here).

I tried to modify the code sometimes with the same logic like my question yesterday/today like for "Save Selected Email Message as .msg File" to be possible to process the e-mails via the rule assistant but it don't work.

Would it be possible to show you this code and how without to publish it on the forum?

I think I need only to delete two ... three lines like in your code "Save Selected Email Message as .msg File" but I can't find them (similar to my problem with question on the forum from yesterday/today).

Nik
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
save it a notepad file and upload it to a post. After i take a look at it, i can delete the attachment.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
i think this is the macro that does the work - Public Sub ExportEMailsToDriverViaRules(oMail As Outlook.MailItem)

and it looks like these lines need to be deleted along with the next that goes with for each myitem.

Set myExplorer = Application.ActiveExplorer
Set myFolder = myExplorer.CurrentFolder
If myFolder Is Nothing Then Error 5001
If Not myFolder.DefaultItemType = olMailItem Then GoTo ExitScript

'Stop if more than x emails selected
If myExplorer.Selection.Count > EXM_OPT_MAX_NO Then Error 5002

'No email selected at all?
If myExplorer.Selection.Count = 0 Then Error 5003

Set olSelection = myExplorer.Selection
For Each myItem In olSelection

replace the lines above with
set myitem = oMail
or replace each instance of myitem with omail.
 

Nik

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hello Diane!

it works fine ;-). You can delete the attached file.

Do you know why the msgbox does not close automatically if the code is insert in VBA editor of outlook?

Code:
Public Sub MsgBoxTimer()
    Dim objShell

    Set objShell = CreateObject("WScript.Shell")
    objShell.PopUp "The e-mails have been exported", 2, "Information", vbInformation
    Set objShell = Nothing
End Sub
I would like only to be inform if the rules was processed on the background but without to press "OK" ore similar button.
This code works but the the msgbox does not close automatically.

Is this normal in VBA of Outlook or maybe I have an old Windows Script Host?

Nik
 

Nik

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hello Diane!

Now I have solution and it works fine also in Outlook :

"Automatically Dismiss a Message Box"

Code:
Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 2 seconds
    AckTime = 2
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 2 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub
Thank you ;-)

Nik
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
I Save selected email message as .msg file (with user to choose folder location) Outlook VBA and Custom Forms 14
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
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
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 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
O Cannot open or save calendar items Using Outlook 0
Diane Poremsky Choosing the Folder to Save a Sent Message In New Slipstick.com Articles 0
Frédéric Save E mail using different path. Outlook VBA and Custom Forms 24
M Question: Is there a rule that will save email in Windows Explorer Outlook VBA and Custom Forms 3
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
S using script rule to save attachments on arrival Outlook 2010 Outlook VBA and Custom Forms 9
S Save in folder other than Sent when replying with Quick Steps Using Outlook 5
L Save message from outlook to desktop in 2013 outlook Outlook VBA and Custom Forms 1
Mark Foley Where are Outlook categories save for IMAP? Using Outlook 12
Diane Poremsky Save Sent Items in Shared Mailbox using an Exchange Server Cmdlet New Slipstick.com Articles 0
Diane Poremsky Save Messages and Attachments to a New Folder New Slipstick.com Articles 0
Similar threads


















































Top