Stefi,

You could try setting the sent item folder for the mail item: I'm not sure of the specific object
naming conventions that Ron uses, but you could try a variation on:

Set myNS = olApplication.GetNamespace("MAPI")

myItem.SaveSentMessageFolder = myNS.Folders(olFolderSentMail)

HTH,
Bernie
MS Excel MVP


"Stefi" wrote in message
...
Hi All,

I use Ron de Bruin's Sub Mail_small_Text_Outlook() (in Office2003) and it
works fine, except that e-mails sent with it are not recorded in Outlook2003
Sent messages. Is there any way to achieve this?

Thanks,
Stefi