Dialog called up multiple times when saving emails from macro

Status
Not open for further replies.

mail11

New Member
Outlook version
Email Account
IMAP
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.
Similar threads
Thread starter Title Forum Replies Date
U Disable "Always ask before opening" Dialog Using Outlook 3
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 Using Outlook 0
Diane Poremsky Rules & Alerts Dialog Won't Open Using Outlook 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
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
P Print attachments automatically and move the mail to an existing folder called "Ted" Outlook VBA and Custom Forms 4
A Can't add a column called "name" to Inbox? Using Outlook 1
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
K OnButtonClick event in MSOutlook called twice. Outlook VBA and Custom Forms 2
K How to share multiple calendar items Using Outlook 1
K Multiple copies of task being created Using Outlook 2
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
K Multiple Rules on Single Email Using Outlook 2
Cathy Rhone gmail listed multiple times Using Outlook 3
H Synchronize contacts and calendars across multiple devices Using Outlook 0
V Outlook 2016 Multiple recurring tasks getting created Using Outlook 0
K can't get custom form to update multiple contacts using VBA Outlook VBA and Custom Forms 3
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
J Multiple calendars Using Outlook 0
C Multiple emails Using Outlook 8
C Outlook with Office365 - search across account, by date rate, in multiple folders - how? Using Outlook 2
E Asking user to select multiple options in a list in an email Outlook VBA and Custom Forms 0
A Multiple signatures Using Outlook 2
O Outlook tasks - Add text column with multiple lines Using Outlook 3
R How to get the Items object of the default mailbox of a specific account in a multiple account Outlook? Outlook VBA and Custom Forms 0

Similar threads

Top