Save e-mail to .msg file

Status
Not open for further replies.
B

Brad

Thanks for taking the time to read my question.

I'd like to make a button on my tool bar in Outlook 2007 that will

automatically save the selected e-mail to a predetermined folder. This is

the code I have so far for my macro, but it doesn't work. I get the error

Run-time error '91':

Object variable or With block variable not set

code:

Public Sub ExportSAR()

Dim TheEmail As MailItem

Dim NewFileName As String

NewFileName = InputBox("Enter the SaveAs name", "Save E-mail As", "SAR -

Change - ")

If NewFileName <> "" Then

TheEmail.SaveAs "A:\2009\\" & NewFileName, olMSG

Else

MsgBox "No file name was entered. Operation aborted.", 64, "Cancel

Operation"

Exit Sub

End If

End Sub

I can't figure out what I need to fix to make this work. Any help would be

great.

Thanks,

Brad
 
S

Sue Mosher [MVP]

Your code needs a statement to instantiate the TheEmail variable. If you

want the item selected in the current folder view, that would be

Application.ActiveExplorer.Selection(1).

Sue Mosher

"Brad" <Brad> wrote in message

news:4774AB57-CCD6-4625-8536-382AA0AF959C@microsoft.com...
> Thanks for taking the time to read my question.

> I'd like to make a button on my tool bar in Outlook 2007 that will
> automatically save the selected e-mail to a predetermined folder. This is
> the code I have so far for my macro, but it doesn't work. I get the error
> Run-time error '91':
> Object variable or With block variable not set

> code:
> Public Sub ExportSAR()
> Dim TheEmail As MailItem
> Dim NewFileName As String

> NewFileName = InputBox("Enter the SaveAs name", "Save E-mail As",
> "SAR -
> Change - ")

> If NewFileName <> "" Then
> TheEmail.SaveAs "A:\2009\\" & NewFileName, olMSG
> Else
> MsgBox "No file name was entered. Operation aborted.", 64, "Cancel
> Operation"
> Exit Sub
> End If

> End Sub

> I can't figure out what I need to fix to make this work. Any help would
> be
> great.

> Thanks,

> Brad
 
B

Brad

Thanks Sue,

I was just lookin at that in the Outlook Developer Reverence - Application

Object Model Map.

I'll try adding this to my code and see what I get.

Brad

"Sue Mosher [MVP]" wrote:


> Your code needs a statement to instantiate the TheEmail variable. If you
> want the item selected in the current folder view, that would be
> Application.ActiveExplorer.Selection(1).
> > Sue Mosher
> > >

> "Brad" <Brad> wrote in message
> news:4774AB57-CCD6-4625-8536-382AA0AF959C@microsoft.com...
> > Thanks for taking the time to read my question.
> > I'd like to make a button on my tool bar in Outlook 2007 that will
> > automatically save the selected e-mail to a predetermined folder. This is
> > the code I have so far for my macro, but it doesn't work. I get the error
> > Run-time error '91':
> > Object variable or With block variable not set
> > code:
> > Public Sub ExportSAR()
> > Dim TheEmail As MailItem
> > Dim NewFileName As String
> > NewFileName = InputBox("Enter the SaveAs name", "Save E-mail As",
> > "SAR -
> > Change - ")
> > If NewFileName <> "" Then
> > TheEmail.SaveAs "A:\2009\\" & NewFileName, olMSG
> > Else
> > MsgBox "No file name was entered. Operation aborted.", 64, "Cancel
> > Operation"
> > Exit Sub
> > End If
> > End Sub
> > I can't figure out what I need to fix to make this work. Any help would
> > be
> > great.
> > Thanks,
> > Brad


>
 
B

Brad

Thanks Sue,

It's working perfectly now.

Have a great weekend,

Brad

"Sue Mosher [MVP]" wrote:


> Your code needs a statement to instantiate the TheEmail variable. If you
> want the item selected in the current folder view, that would be
> Application.ActiveExplorer.Selection(1).
> > Sue Mosher
> > >

> "Brad" <Brad> wrote in message
> news:4774AB57-CCD6-4625-8536-382AA0AF959C@microsoft.com...
> > Thanks for taking the time to read my question.
> > I'd like to make a button on my tool bar in Outlook 2007 that will
> > automatically save the selected e-mail to a predetermined folder. This is
> > the code I have so far for my macro, but it doesn't work. I get the error
> > Run-time error '91':
> > Object variable or With block variable not set
> > code:
> > Public Sub ExportSAR()
> > Dim TheEmail As MailItem
> > Dim NewFileName As String
> > NewFileName = InputBox("Enter the SaveAs name", "Save E-mail As",
> > "SAR -
> > Change - ")
> > If NewFileName <> "" Then
> > TheEmail.SaveAs "A:\2009\\" & NewFileName, olMSG
> > Else
> > MsgBox "No file name was entered. Operation aborted.", 64, "Cancel
> > Operation"
> > Exit Sub
> > End If
> > End Sub
> > I can't figure out what I need to fix to make this work. Any help would
> > be
> > great.
> > Thanks,
> > Brad


>
 
M

Mojgan Tah

Would you please help me and let me know how your problem for auto save as *.msg was solved .

Thanks in advance for your cooperation .

Brad wrote on Fri, 17 July 2009 15:09
> Thanks Sue,

> It's working perfectly now.

> Have a great weekend,

> Brad

> "Sue Mosher [MVP]" wrote:
>
> > Your code needs a statement to instantiate the TheEmail variable. If you
> > want the item selected in the current folder view, that would be
> > Application.ActiveExplorer.Selection(1).
> > > > Sue Mosher
> > > > > > > > "Brad" <Brad> wrote in message
> > news:4774AB57-CCD6-4625-8536-382AA0AF959C@microsoft.com...
> > > Thanks for taking the time to read my question.
> > > > I'd like to make a button on my tool bar in Outlook 2007 that will
> > > automatically save the selected e-mail to a predetermined folder. This is
> > > the code I have so far for my macro, but it doesn't work. I get the error
> > > Run-time error '91':
> > > Object variable or With block variable not set
> > > > code:
> > > Public Sub ExportSAR()
> > > Dim TheEmail As MailItem
> > > Dim NewFileName As String
> > > > NewFileName = InputBox("Enter the SaveAs name", "Save E-mail As",
> > > "SAR -
> > > Change - ")
> > > > If NewFileName <> "" Then
> > > TheEmail.SaveAs "A:\2009\\" & NewFileName, olMSG
> > > Else
> > > MsgBox "No file name was entered. Operation aborted.", 64, "Cancel
> > > Operation"
> > > Exit Sub
> > > End If
> > > > End Sub
> > > > I can't figure out what I need to fix to make this work. Any help would
> > > be
> > > great.
> > > > Thanks,
> > > > Brad

> >
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
Frédéric Save E mail using different path. Outlook VBA and Custom Forms 24
L Save Mail Message to new folder created automatically Outlook VBA and Custom Forms 1
P How to save sent mail and forward it the next day Exchange Server Administration 3
D VBA Script (Ask to where to save send mail) Outlook VBA and Custom Forms 1
K Ask about a simple script about save a incoming mail as file on local PC Outlook VBA and Custom Forms 3
F CAN'T SAVE OUTLOOK 2010 E-MAIL TEMPLATE (.oft) Using Outlook 1
M how to save incoming mail in TRUE csv format Outlook VBA and Custom Forms 1
S how to disable security message in save attachments macro "A programis trying to access e-mail addre Outlook VBA and Custom Forms 5
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 10
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 8
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
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

Similar threads

Top