Save As dialog box on screen

Status
Not open for further replies.
J

jesseb

Need help.

My user needs to save email to a folder on the network as a PDF.

She has Acrobat, so the ability to save as PDF is there. The Save As dialog

box needs to pop up so she can pick file type.

I have some code to save the open email but the problem is I can not get the

right code to open the Save As dialog box on the screen so she can pick file

type as PDF.

Or the code that would change the File type to PDF.

Sub SaveAsPDF_OLD()

Dim myItem As Outlook.Inspector

Dim objItem As Object

Set myOlApp = CreateObject("Outlook.Application")

Set myItem = myOlApp.ActiveInspector

'If Not TypeName(myItem) = "Nothing" Then

Set objItem = myItem.CurrentItem

strname = objItem.Subject

objItem.SaveAsdialog ' "C:\" & strname & ".txt", oltxt

End Sub

Any help out there?
 
S

Sue Mosher [MVP]

You can't just make up your own method names, like SaveAsDialog. Look in the

object browser (F2 in VBA) to see what's available for each object. (And if

you do that with the SaveAs method, you'll see that it does not support any

constant for the 2nd argument that would allow for programmatically saving

an item as a PDF file.)

In this case, though, you won't find anything, because Outlook doesn't

expose a direct method for invoking that UI. It has to be done through the

CommandBars collection, as in this Outlook VBA procedure:

Sub ShowSaveAs()

Dim insp As Outlook.Inspector

Dim cbb As Office.CommandBarButton

Set insp = Application.ActiveInspector

If Not insp Is Nothing Then

Set cbb = insp.CommandBars.FindControl(, 748)

If Not cbb Is Nothing Then

cbb.Execute

End If

End If

Set insp = Nothing

Set cbb = Nothing

End Sub

This doesn't really get you very far, unfortunately, because she still has

to pick the path and save as type. The dialog can't be manipulated

programmatically, unless you want to try to code a SendKeys kludge.

FYI, you can use the Outlook VBA code sample at

http://www.outlookcode.com/codedetail.aspx?id=1507 to get the IDs, like 748

for Save As, that you need to be able to execute toolbar and menu commands.

Or use the Outlook Spy tool from http://www.dimastr.com/outspy/.

Sue Mosher

"jesseb" <jesseb> wrote in message

news:E8B3BE26-10E6-4145-B261-6370B7AA1990@microsoft.com...
> Need help.
> My user needs to save email to a folder on the network as a PDF.
> She has Acrobat, so the ability to save as PDF is there. The Save As
> dialog
> box needs to pop up so she can pick file type.

> I have some code to save the open email but the problem is I can not get
> the
> right code to open the Save As dialog box on the screen so she can pick
> file
> type as PDF.
> Or the code that would change the File type to PDF.

> Sub SaveAsPDF_OLD()
> Dim myItem As Outlook.Inspector
> Dim objItem As Object
> Set myOlApp = CreateObject("Outlook.Application")
> Set myItem = myOlApp.ActiveInspector
> 'If Not TypeName(myItem) = "Nothing" Then
> Set objItem = myItem.CurrentItem
> strname = objItem.Subject
> objItem.SaveAsdialog ' "C:\" & strname & ".txt", oltxt
> End Sub

> Any help out there?

>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
moron save as & file location dialog box popup Outlook VBA and Custom Forms 2
M Outlook2007 and VSTO, handle the Click on the Save Button in the IPM.Note dialog HOWTO? Outlook VBA and Custom Forms 4
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
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 Save Selected Email Message as .msg File Using Outlook 11
Diane Poremsky Export (Save) Outlook Contact photos Using Outlook 0
Diane Poremsky Save Messages and Attachments to a New Folder Using Outlook 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 Using Outlook 0

Similar threads

Top