All now working using the code below:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If UserForm1.TextBox4.Value = "YES" Then
Dim lngAns As Long
Dim varArray As Variant
Dim strWordFound As String
varArray = Array("Attached", "Attach", "Enclosed"...
Hi,
I am using the code below to check for missing attachments after you hit the send button. If no attachments are found and you choose yes from the msgbox then a userform loads and all it well. However, if you press no in the msg box what I want to happen is that you are returned back to the...
I tried but couldn't get it to work probably because I got the code wrong. I tried
sub commandbutton17_click ()
dim msg as outlook.mailitem
msg.deleteaftersubmit = true
msg = nothing
End sub
I have developed code that does various things including saving incoming and outgoing emails in MSG format in a standard file naming convention in a folder the user chooses either from browsing to the folder or selecting it from a drop down list on a userform. I have set up a userform that...
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.