PDA

View Full Version : Help Posting??



mromberg
11-15-2016, 10:26 AM
Trying to ask my first question and getting:
Post denied. New posts are limited by number of URLs it may contain and checked if it doesn't contain forbidden words.

Just trying to add my code and a question - no urls. Thoughts?

mromberg
11-15-2016, 10:44 AM
mods?

mancubus
11-15-2016, 11:05 AM
your code may contain script that can be interpreted as URL.
if your post count is 5+ you can post URL's.
it seems you have reached that number.
try again.

mromberg
11-15-2016, 11:21 AM
Thanks. I'll give it a shot.

mromberg
11-15-2016, 11:33 AM
Still not working. It's very basic code with only 17 or so lines.

Testing the first 3 lines:

Sub Mail_every_Worksheet()
Dim sh As Worksheet
Application.ScreenUpdating = False

mancubus
11-15-2016, 12:55 PM
PM the entire code to me.

mancubus
11-15-2016, 01:07 PM
Sub Mail_every_Worksheet()

Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets
If sh.Range("o2").Value Like "*@*" Then
sh.Copy
ActiveWorkbook.SaveAs sh.Name & " of " _
& ThisWorkbook.Name & ".xls"
ActiveWorkbook.SendMail ActiveSheet.Range("o2").Value, _
"Mike R Edit"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh

Application.ScreenUpdating = True

End Sub

mromberg
11-15-2016, 02:05 PM
Trying to amend my code to add text in the body of my email.

SamT
11-15-2016, 07:33 PM
The forum software is very simple. IMO, it is interpreting the @ symbol as a possible (email) URL.

mancubus
11-16-2016, 12:20 AM
i agree
but since the post count is more than 5 the OP should post URL's.