I am trying to save messages as a MSG format. I checked on the forum and
found the code but when I save, the file name is not completely written and
the file size is 0 bytes. Right now the code is only for the open message.
Ideally, I would like the code to be run on an Outlook folder. I am
operating in a Vista Enterprise environment. Any help would be greatly
appreciated.

-----VBA Code-----
Sub SaveAsTXT()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Dim strname As String


Set myItem = Application.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem

strname = "U:\E-Mail\" & objItem.SenderName & " " & objItem.Subject
& objItem.Sent & ".msg"
MsgBox strname
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the item? " & _
"If a file with the same name already exists, " & _
"it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs strname, olMSGUnicode
End If
Else
MsgBox "There is no current active inspector."
End If
End Sub
-----End of VBA Code-----

See if the file name you end up with has any illegal characters in it. See
if you can save the same item yourself manually, to see if that works.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris" wrote in message
...
I am trying to save messages as a MSG format. I checked on the forum and
found the code but when I save, the file name is not completely written
and
the file size is 0 bytes. Right now the code is only for the open
message.
Ideally, I would like the code to be run on an Outlook folder. I am
operating in a Vista Enterprise environment. Any help would be greatly
appreciated.

-----VBA Code-----
Sub SaveAsTXT()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Dim strname As String


Set myItem = Application.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem

strname = "U:\E-Mail\" & objItem.SenderName & " " & objItem.Subject
& objItem.Sent & ".msg"
MsgBox strname
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the item? " & _
"If a file with the same name already exists, " & _
"it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs strname, olMSGUnicode
End If
Else
MsgBox "There is no current active inspector."
End If
End Sub
-----End of VBA Code-----

Ken,

That partially solved the problem as it was adding an additional path to the
name which had illegal characters. However, it seems to be missing items
such as read receipts, meeting requests and responses, and tasks. Is there a
way to check for these items and then make the filename based on those
available fields? My thought is to do a Select Case TheEmail.Class but I
don't know if this will work and what fields are availble to create a name.
Right now, messages are created by SenderName, a scrubbed subject, and a
scrubbed received date. I would assume that I have to scrub any of the
fields in the other item types.

Thanks for assisting.

"Ken Slovak - [MVP - Outlook]" wrote:

See if the file name you end up with has any illegal characters in it. See
if you can save the same item yourself manually, to see if that works.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris" wrote in message
...
I am trying to save messages as a MSG format. I checked on the forum and
found the code but when I save, the file name is not completely written
and
the file size is 0 bytes. Right now the code is only for the open
message.
Ideally, I would like the code to be run on an Outlook folder. I am
operating in a Vista Enterprise environment. Any help would be greatly
appreciated.

-----VBA Code-----
Sub SaveAsTXT()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Dim strname As String


Set myItem = Application.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem

strname = "U:\E-Mail\" & objItem.SenderName & " " & objItem.Subject
& objItem.Sent & ".msg"
MsgBox strname
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the item? " & _
"If a file with the same name already exists, " & _
"it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs strname, olMSGUnicode
End If
Else
MsgBox "There is no current active inspector."
End If
End Sub
-----End of VBA Code-----

.

Many of those "missing things" would not be available in a saved out MSG
file. You can certainly get any fields you want from a mail item to provide
a naming scheme, but in all cases you will want to make sure there are no
illegal characters in the resulting file name. These days you don't need to
worry about things like making your file name an 8.3 format, but illegal
characters are always a concern.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris" wrote in message
...
Ken,

That partially solved the problem as it was adding an additional path to
the
name which had illegal characters. However, it seems to be missing items
such as read receipts, meeting requests and responses, and tasks. Is
there a
way to check for these items and then make the filename based on those
available fields? My thought is to do a Select Case TheEmail.Class but I
don't know if this will work and what fields are availble to create a
name.
Right now, messages are created by SenderName, a scrubbed subject, and a
scrubbed received date. I would assume that I have to scrub any of the
fields in the other item types.

Thanks for assisting.

Ken,

Is there a way to save the delivery and read receipts and meeting request
acceptances/declines?

I looked at the Class of the delivery receipt and it came up the same as a
message. There is no ol equivalent for a read or delivery receipt but there
is for meeting requests.

I need to be able to copy everything in a folder to a .msg format. My code
works on messages perfectly but not on those items mentioned. I did scrub
the information and it still would not save. PLEASE HELP!!!!!

Chris

"Ken Slovak - [MVP - Outlook]" wrote:

Many of those "missing things" would not be available in a saved out MSG
file. You can certainly get any fields you want from a mail item to provide
a naming scheme, but in all cases you will want to make sure there are no
illegal characters in the resulting file name. These days you don't need to
worry about things like making your file name an 8.3 format, but illegal
characters are always a concern.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris" wrote in message
...
Ken,

That partially solved the problem as it was adding an additional path to
the
name which had illegal characters. However, it seems to be missing items
such as read receipts, meeting requests and responses, and tasks. Is
there a
way to check for these items and then make the filename based on those
available fields? My thought is to do a Select Case TheEmail.Class but I
don't know if this will work and what fields are availble to create a
name.
Right now, messages are created by SenderName, a scrubbed subject, and a
scrubbed received date. I would assume that I have to scrub any of the
fields in the other item types.

Thanks for assisting.

.

I'm not sure what you're talking about.

Delivery reports for example have a MessageClass of "REPORT.IPM.Note.DR".
That's not an email MessageClass.

You would instantiate any item where the MessageClass starts with "REPORT"
as a ReportItem, with which you should be able to use SaveAs().

Most recipients won't allow delivery of either types of reports, but where
you do get them back that's what you'd do.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris" wrote in message
...
Ken,

Is there a way to save the delivery and read receipts and meeting request
acceptances/declines?

I looked at the Class of the delivery receipt and it came up the same as a
message. There is no ol equivalent for a read or delivery receipt but
there
is for meeting requests.

I need to be able to copy everything in a folder to a .msg format. My
code
works on messages perfectly but not on those items mentioned. I did scrub
the information and it still would not save. PLEASE HELP!!!!!

Chris