> Hi Sue > > The buttons has diffent looks and different help texts. One button > "Send and Save", another just "Save" and a 3th reads "Save and > delete". > > However if it cannot be solved any other way than your suggestion I > must re-think the buttons. > > BTW I'm using your suggestion to run code when a mail i sent and > reaches the sent folder but it is unstable. Sometimes it fires and > after sometimes it don't. If I restart Outlook it runs again but only > one or 2 times then it doesnt fire again until Outlook is restartet - > any ideas to this behavior? > > The code (in ThisOutlookSession): > Dim WithEvents colSentItems As Items > > Private Sub Application_Startup() > Dim NS As Outlook.NameSpace > Set NS = Application.GetNamespace("MAPI") > Set colSentItems = NS.GetDefaultFolder(olFolderSentMail).Items > Set NS = Nothing > End Sub > > Private Sub colSentItems_ItemAdd(ByVal Item As Object) > If Item.Class = olMail Then > strname2 = Left(Item.CreationTime, 10) > If Kundenr = "" Then > Item.SaveAs ValgtFolder & "\" & strname2 & " - " & strname > & ".msg", olMSG > Else > Item.SaveAs rootdir & Kundenr & "\Mail\" & strname2 & " - > " & strname & ".msg", olMSG > End If > End If > End Sub