Dialog called up multiple times when saving emails from macro

Status
Not open for further replies.

Izbi

New Member
Outlook version
Outlook 2007
Email Account
This macro saves selected emails into a folder chosen by function "BrowseForFolder". If I select "n" emails to save, the dialog comes up "n" times. Is there a way to call it up just once?

Code:
Option Explicit

Public Sub Save_Messages_Select_Ask2()

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

enviro = CStr(Environ("USERPROFILE"))
For Each objItem In ActiveExplorer.Selection

If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

sName = oMail.Subject

dtDate = oMail.ReceivedTime
sName = Format(dtDate, "yyyy mm dd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(dtDate, " hhnn", _
vbUseSystemDayOfWeek, vbUseSystem) & " - " & sName & ".msg"

sPath = BrowseForFolder(enviro & "\Documents\")
Debug.Print sPath & "\" & sName
oMail.SaveAs sPath & "\" & sName, olMSG

End If
Next

End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant

Dim ShellApp As Object
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please choose a folder", 0, OpenAt)

On Error Resume Next
BrowseForFolder = ShellApp.self.Path
On Error GoTo 0

Set ShellApp = Nothing
Select Case Mid(BrowseForFolder, 2, 1)
Case Is = ":"
If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
Case Is = "\"
If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
Case Else
GoTo Invalid
End Select

Exit Function

Invalid:
BrowseForFolder = False

End Function
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
it's inside the loop -
For Each objItem In ActiveExplorer.Selection
next

move it above the loop.


Code:
sPath = BrowseForFolder(enviro & "\Documents\")


For Each objItem In ActiveExplorer.Selection

If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

sName = oMail.Subject

dtDate = oMail.ReceivedTime
sName = Format(dtDate, "yyyy mm dd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(dtDate, " hhnn", _
vbUseSystemDayOfWeek, vbUseSystem) & " - " & sName & ".msg"


Debug.Print sPath & "\" & sName
oMail.SaveAs sPath & "\" & sName, olMSG

End If
Next
ETA: oops - can't move everything above the loop, just the folder picker.
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
D.Moore PickFolder dialog "extension" Outlook VBA and Custom Forms 0
Commodore Folders always closed in move/copy items dialog box Using Outlook 3
P IMAP Folders Dialog Box Using Outlook 1
P Suppress dialog box on email check error? Using Outlook 5
S Reminder Dialog Open Button Using Outlook 2
Laurent Duchastel New email setup dialog doesn't allow alias Using Outlook 2
Diane Poremsky Enter Network Password Dialog Keeps Popping Up New Slipstick.com Articles 0
Diane Poremsky Rules & Alerts Dialog Won't Open New Slipstick.com Articles 1
moron save as & file location dialog box popup Outlook VBA and Custom Forms 2
N Outlook dialog about retention policy Using Outlook 3
P VBA for Dialog Box when sending Email Using Outlook 8
R Need code to gather value of custom field on addressentry.details dialog box Using Outlook 3
D Contacts as default in Select Names dialog Using Outlook 1
B Sign-in dialog pops up repeatedly for shared calendars Using Outlook 1
H Attachment dialog box "Always do this action" greyed out Using Outlook 4
J Getting Rid of Mail Mail Delete Confirmation Dialog Box in Outlook 2010 Using Outlook 2
N Receive "Requested Operation Failed" Dialog when trying to add BCM Database in Outlook 2010 Using Outlook 2
F A dialog box is open, close it and try again. Don't see any dialog box open. Using Outlook 5
B Error Dialog Boxes when opening Calendar in Outlook 2010 Using Outlook 2
M Shortcut Key Needed Working with Dialog Box while Inserting Hyperlink in a Contact Using Outlook 1
J The filter Button is dimmed in the View - Customize Current View dialog. Using Outlook 2007 on Exchange. Using Outlook 3
S Outlook 2010 profile dialog box at startup removal advice Using Outlook 3
S "File Download" Dialog open every time I click on an email to read it. Using Outlook 8
M Outlook 2007 dialog box font too large, contents truncated Using Outlook 2
R How do I re-enable the confirmation dialog? Using Outlook 4
Z Getting the entering password dialog box regularly Using Outlook 1
M Outlook 2007 – Insert Item dialog box shortcomings detected Using Outlook 1
J New Entry Dialog Box appears when navigating messages Using Outlook 1
C How do I get a permission dialog box when other people try to view my calendar? Using Outlook 1
I Bug Report: Outlook 2010 first-run hangs due to "Microsoft Update" dialog box Using Outlook 1
O reminder listed twice on reminder dialog Using Outlook 5
R how do I eliminate allow access dialog box using VBAproject in Out Outlook VBA and Custom Forms 1
J Select Names Dialog Box Outlook VBA and Custom Forms 16
P Open Advanced Search Dialog Outlook VBA and Custom Forms 1
A outlook AdvanceFind dialog Outlook VBA and Custom Forms 5
S how to add my custom items to "Change E-mail Account" dialog Outlook VBA and Custom Forms 1
J Save As dialog box on screen Outlook VBA and Custom Forms 1
H How turn off outlook security warning dialog box from outlook Outlook VBA and Custom Forms 1
R (Outlook2003)Monitor change for "to" "cc" "bcc" on message compose dialog? Outlook VBA and Custom Forms 6
P How to Open File Selector dialog in VBA Outlook VBA and Custom Forms 4
B Browse Dialog Box Outlook VBA and Custom Forms 1
M Outlook2007 and VSTO, handle the Click on the Save Button in the IPM.Note dialog HOWTO? Outlook VBA and Custom Forms 4
J common dialog Outlook VBA and Custom Forms 1
B how/what dialog boxes can I display from VBA code Outlook VBA and Custom Forms 1
A Can't add a column called "name" to Inbox? Using Outlook 1
L In MS Office 2010 Contacts I need to merge two groups both called "company: None". Using Outlook 2
P Aborting ItemChange if ItemRemove Event Handler will be called nex Outlook VBA and Custom Forms 1
S What's the appointment ribbon called? Outlook VBA and Custom Forms 1
E After resizing Custom Task Pane "BeforeFolderSwitch" Event handler stopps being called Outlook VBA and Custom Forms 11
E After resizing Custom Task Pane "BeforeFolderSwitch" Event handler stopps being called Outlook VBA and Custom Forms 11
Similar threads


















































Top