An Outlook question!

[BMPeers]

Ok, I know this is an excel forum, but there are so many clever people on here, that I am hoping that you can solve this problem and it is VBA related.

At the moment I can either select that sent messages can either be saved automatically into the sent folder or not.

Is it possible to be prompted after each mail with a message box, asking you whether you do or don't want it saved?

Thanks Brian

 

[BMPeers]

managed to find the answer, just in case anyone wants to do this as well!
pop this in your outlook session in vba in outlook.


Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
Item.Categories = ""
If Item.Class = olMail Then
Call CheckToSave(Item)
End If
End Sub

' this sub can be installed anywhere

Sub CheckToSave(objMail As MailItem)

Dim Msg, Style, Title, Response, MyString
Msg = "Do you want to save a copy of this email?" ' Define message.
Style = vbSystemModal + vbYesNo + vbQuestion + vbDefaultButton1 ' Define buttons.
Title = "Mailbox Control" ' Define title.

' Display message.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' User chose Yes.
objMail.DeleteAfterSubmit = False
Else ' User chose No.
objMail.DeleteAfterSubmit = True
End If

End Sub