SaveSentMessageFolder ???

[smiley0q0]

just have a question about what "SaveSentMessageFolder" does. i mistakenly assumed it was similar to "ReadReceiptRequested", which unchecks the box in the email to receive a read receipt, if you have your read receipt on. i thought this would uncheck the box that says "save sent messages to:" but instead, it changed to name of my "Sent Items" folder to "0" or "-1" and now i can't get it back to "Sent Items"
i put .SaveSentMessageFolder = False and it changed it to "0"
.SaveSentMessageFolder = True changes it to "-1"
i've tried .SaveSentMessageFolder = "Sent Items", but that just gives me an error.
here is the code i have been using. i just need to change my "0" folder back to "Sent Items"

Private Sub CmdSndbook1_Click()
Dim appOut As Outlook.Application
Dim EMailOut As Outlook.MailItem
Set appOut = CreateObject("Outlook.Application&quot
Set EMailOut = appOut.CreateItem(olMailItem)

With EMailOut
.To = "Joe"
.Subject = "whatever"
.Attachments.Add ("c:\my documents\book1.xls&quot
.ReadReceiptRequested = False
.SaveSentMessageFolder
.Display

End With
End Sub
(you do have to have the "Microsoft Outlook 8.0 Object Library" referenced in order for this code to work)

thanks for your help in advance
smiley

 

[bondm007]

I'm not sure how to change it programatically, however the Microsoft Exchange program can do this for you:

From Start|Run:
exchng32

Hope this helps...

 

[jonscott8]

The SaveSentMessageFolder property is an object reference to the folder that the sent copy will be saved to.

To rename it, use:

EmailOut.SaveSentMessageFolder.Name = "Sent Items"

IIRC, to not save a copy after sending, use:

EmailOut.DeleteAfterSubmit = True Jon Hawkins

 

[smiley0q0]

it worked PERFECTLY!!! THANK YOU!!!