With ItemSend you must have a mailitem open.
If you only open the userform from ItemSend this should pick up the item being sent.
Public Sub SaveSent2_test()
Dim strPath As String
On Error Resume Next
strPath = UserForm3.TextBox1.Value
On Error GoTo 0
If strPath = "" Then...
If you temporarily remove Private from Private Sub Application_Startup you can put "ThisOutlookSession.Application_Startup" on the Quick Access Toolbar or a Ribbon. You can put Private back afterwards.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.