Save changes bug - Any known workarounds ?

V

Vic Eldridge

Hi People,

I'm using the following code to produce a new MailItem in my Drafts folder.

-------------------------------------------------
Sub CreateNewEmailInDraftsFolder()
Dim objMailItem As Outlook.MailItem
Set objMailItem = Application.CreateItem(olMailItem)
With objMailItem
.To = "[email protected]"
.Subject = "Not happy Billy..."
.Body = "Dear Bill, your boy's bugs are driving me batty."
.Attachments.Add ("C:\SomeBugs4U2.exe")
.Close (olSave)
End With
Set objMailItem = Nothing
End Sub
-------------------------------------------------

This is working good except for one thing. If I navigate to my Drafts folder
and open the newly created MailItem by double-clicking on it, then I close it
without making any changes, Outlook 2003 asks if I want to save changes.
This is wrong - there were no changes made.

I've noticed that if I comment out the Attachments.Add line, everything works
as it should. But that doesn't help me much, as the app I'm working on must
have attachments.

I've also noticed that if I include the .Display method somewhere inside the
With...End With block, then everything works as it should. This however, is
not a satisfactory solution as it causes flashing on the screen as multiple
MailItems are generated.

The code seems fine to me. Is there some other trick I'm missing ?
Could someone at least confirm whether or not they see the same problem on
their system ?



Regards,
Vic Eldridge
 
M

Michael Bauer

Hi Vic,

for the moment I´ve no OL 2003 installed. So I´ve to guess. What
happens, if you are calling especially the save method before closing
the item? I`m using close only if there is an Inspector to close.
Another way could be using CDO instead of the OOM.
 
V

Vic

Thanks for your reply Michael.

I've already tried the Save method instead of Close(olSave). There was
no difference in the outcome.

You mentioned you don't have Outlook 2003. Does that mean you don't see
the same problem in previous versions ?

I'm still stuck on this problem. I thought I'd cracked it by Saving the
MailItem from inside the NewInspector event, but that rearranges the
order in which the MailItems are sorted, which again is an undesirable
side-effect.

I'm fine with VBA but I'm new to the OOM. As for CDO, I don't even know
what it stands for, although It sounds like I'll be finding out shortly
;-)


Regards,
Vic Eldridge


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
 
K

Ken Slovak - [MVP - Outlook]

If you are never displaying the item why use Close? Just use Save and
dispose of the object.

.Attachments.Add ("C:\SomeBugs4U2.exe")
.Save
End With
Set objMailItem = Nothing
 
M

Michael Bauer

Hi Vic,
You mentioned you don't have Outlook 2003. Does that mean you don't see
the same problem in previous versions ?
Click to expand...

that means: I can´t believe that the save method doesn´t work but if you
are saying that it doesn´t I would have to test your code.
I'm fine with VBA but I'm new to the OOM. As for CDO, I don't even know
what it stands for, although It sounds like I'll be finding out
Click to expand...
shortly

CDO is an optional installation for OL2k and later. You need a reference
on it via Extras/References/"Microsoft CDO 1.21 Library".
 
V

Vic Eldridge

Hi Micheal,
that means: I can´t believe that the save method doesn´t work but if you
are saying that it doesn´t I would have to test your code.
Click to expand...

What I'm seeing is that the Save method successfully saves the new
email in
my Drafts folder, however if I then manually open then close the newly
created
email (without making any changes to it), Outlook then shows the Save
Changes dialog, which seems to me to be wrong. If no changes were
made, why should I
be prompted to save changes ?


For example, the following code creates an email in my Drafts folder
that
behaves correctly when I manually open then close it.

Sub CreateEmail()
With Application.CreateItem(olMailItem)
.To = "[email protected]"
.Subject = "Subject Text"
.Body = "Body Text"
.Save
End With
End Sub



The email created by the following code does NOT behave correctly. If
I
manually open then close it, Outlook asks if I want to save changes,
even
though I made no changes to it.

Sub CreateEmailWithAttachment()
With Application.CreateItem(olMailItem)
.To = "[email protected]"
.Subject = "Subject Text"
.Body = "Body Text"
.Attachments.Add ("C:\Test.txt")
.Save
End With
End Sub


The only difference between the two pieces of code is that the second
one
attaches a file, the first one does not.


Regards,
Vic Eldridge
 
V

Vic Eldridge

Thanks for taking a look at this Ken. Could you please read my latest
reply to Micheal Bauer. Hopefully it will further clarify the problem
I'm seeing.


Regards,
Vic Eldridge
 
M

Michael Bauer

Hi Vic,

good resolve the recipients collection before saving. Otherwise OL
is doing that while the item is opened and then there are changes, in
fact.
 
V

Vic Eldridge

Thanks again Micheal and Ken.

Resolving the recipients made no difference to the outcome. I still
don't know what the solution is. I'm also seeing two WinXP/Office20003
machines behave differently (both erroneously) with regards to saving
mailitems with attachments. As long as there is no attachment, saving
works as one would expect. As soon as an attachment is made, saves
don't work correctly (be they issued manually, or via code).
It's now time to cut my losses and write it off as an Outlook "quirk".
I can reproduce the situation manually which at least will prove to my
users that it's Microsoft's bug, not mine.

Thanks again for your help.

Regards,
Vic Eldridge
 
M

Michael Bauer

Hi Vic,

here is a sample for you using CDO. What is about this?

Sub BugInSaveChangesDialogCDO()
Dim oSess As MAPI.Session
Dim oMsg As MAPI.Message
Dim oFld As MAPI.Messages

Set oSess = CreateObject("MAPI.Session")
oSess.LogOn , , False, False, , True
Set oFld = oSess.Outbox.Messages
Set oMsg = oFld.Add("subject", "text")
With oMsg.Recipients
.Add "[email protected]"
.Resolve
End With
oMsg.Attachments.Add "C:\Programme\MBBau\mbbau.exe"
oMsg.Update True
End Sub
 
Top