PickFolder dialog "extension"

Status
Not open for further replies.

D.Moore

Senior Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Dear Diane,

May I ask your help how (if at all) possible to extend the functionality of the pickfolder dialog with a "Don't Send Message" button ?

In more detail what i am aiming for:

This is the code (thanks to you) what i use to select in which folder to save the message before I send it (works perfectly!):

Code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 'This is the dialog to ask where to save sent items with folder select dialog. Cancel put mail into default sent item folder
    
 Dim xNameSpace As NameSpace
 Dim xPickFolder As Folder
 
 On Error Resume Next
 
    Set xNameSpace = Outlook.Application.Session
    Set xPickFolder = xNameSpace.PickFolder

    If TypeName(xPickFolder) = "Nothing" Then Exit Sub
  
    Set Item.SaveSentMessageFolder = xPickFolder
 
 Set xPickFolder = Nothing
 Set xNameSpace = Nothing
 
End Sub

This has 2 options:
A) Select the folder where to save the sent message.
B) Cancel = Save the message at the default Sent Items folder.

What I would dream to have is a 3rd button "Don't Send Message", which would act as follows:
- When it is pushed, cancel the process of sending the message
- Remove it from Outbox folder (if needed to cancel the sending process. it can be also moved to Draft folder if needed)
- Re-open it for editing.

BIG thank you for your time and help, in advance!
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Pickfolder, modOpenSaveFile, clsCommonDialog Outlook VBA and Custom Forms 3
S Pickfolder question Outlook VBA and Custom Forms 6
S set the initial folder in PickFolder Outlook VBA and Custom Forms 1
U Disable "Always ask before opening" Dialog Using Outlook 3
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
M Dialog called up multiple times when saving emails from macro Outlook VBA and Custom Forms 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
witzker Outlook 2019 is cutting Picture Extension *.pn_ Using Outlook 3
Binocular222 Get User Exchange phone extension Outlook VBA and Custom Forms 6
P Outlook File Extension Question Using Outlook 3
D Remove extension while saving attachments Using Outlook 1
M Mistakenly Linked my Outlook.pst file extension to open with Outlook Using Outlook 1
H Replacing the extension symbol "x" with ";" ? Using Outlook 8
A How do I get Outlook to stop adding a "+1" in front of a telephone number that has an extension. Using Outlook 13
K Automatically save attatchment with a different extension Outlook VBA and Custom Forms 1
H Drag and Drop Outlook mails into a Windows Form Control with eml extension Outlook VBA and Custom Forms 1
V Outlook 2003 OpenEntry - Exchange Client Extension API Outlook VBA and Custom Forms 2
C Form Region, Task Pain, Ribbon Extension - which way is best? Outlook VBA and Custom Forms 1

Similar threads

Top