Net nepaluchiajetca. Ja vypalnal sndartny kod:
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
objOutlookMsg.To = "Email adress"
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = objOutlookMsg
Set myAttachments = myItem.Attachments
myAttachments.Add "Y zdes ja napisal atkuda dalzno by vziat etot fail"
myItem.Save
objOutlookMsg.Display
objOutlookMsg.Send
Tak on nevzial etot fail no izmenil SentItems ime
Mozet eto bag SMTP servera ili Windows?
etot kod proboval neadnokratno posle Windows update i bolshe takovo nesluchialos