Formatting of posted VBA code

Mumps · Dec 5th 2021

I asked this question a while back but I didn't get a solution so I thought that I would try again. When I post code using code tags in a response to a question, the code loses its 'indentation' formatting. Immediately after it is posted, it seems to retain the formatting. However, when the post is closed and then re-accessed, the 'indentation' formatting is gone. Please refer to my response in Post #2 at this link:

VBA Macros code - copy paste transposed loop - Excel VBA / Macros - OzGrid Free Excel/VBA Help Forum

You will note that the 'indentation' that was there in my original post, is no longer there. This creates a problem when someone copies/pastes the code. The formatting has to be re-entered manually. Does anyone have any suggestions as to why this happens?

Logit · Dec 5th 2021

Code

TESTING :


Option Explicit

Sub sendmail()
   Dim OutApp       As Object
   Dim OutMail      As Object
   Dim SigString    As String
   Dim Signature, EmailTo, CCto, Subj, msg, Filepath As String
   Dim ws           As Worksheet
   Dim cel          As Range
   Dim LR           As Long

   Set ws = Sheets("MRM")
   With ws
      LR = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
                       SearchDirection:=xlPrevious).Row
      If Not .AutoFilterMode Then
         .Range("A3:P3").AutoFilter
      End If
      .Range("A3:P" & LR).AutoFilter Field:=16, Criteria1:="<>"
      If .Range("P3:P" & LR).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
         For Each cel In .Range("P4:P" & LR).SpecialCells(xlCellTypeVisible)
            EmailTo = .Cells(cel.Row, "J").Value
            CCto = .Cells(cel.Row, "K").Value
            Subj = .Cells(cel.Row, "L").Value
            Filepath = .Cells(cel.Row, "M").Value
            msg = .Cells(cel.Row, "N").Value

            With Application
               .EnableEvents = False
               .ScreenUpdating = False
            End With
            Set OutApp = CreateObject("Outlook.Application")
            Set OutMail = OutApp.CreateItem(0)

            SigString = Environ("appdata") & _
                        "\Microsoft\Signatures\mrm.htm"

            If Dir(SigString) <> "" Then
               Signature = GetBoiler(SigString)
            Else
               Signature = ""
            End If
            On Error Resume Next
            With OutMail
               .To = EmailTo
               .CC = CCto
               .BCC = ""
               .Subject = Subj
               .HTMLBody = msg & "<br>" & Signature
               '.body = msg & vbNewLine & vbNewLine & Signature
               ' .Attachments.Add Filepath 'Uncomment this Line if you've added attachments
               .Display   '.Send   'or use .Display
            End With
         Next cel
      End If
      .AutoFilterMode = False
   End With

   On Error GoTo 0
   Set OutMail = Nothing
   Set OutApp = Nothing

   With Application
      .EnableEvents = True
      .ScreenUpdating = True
   End With
End Sub

Function GetBoiler(ByVal sFile As String) As String
   '**** Kusleika
   Dim fso          As Object
   Dim ts           As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
   GetBoiler = ts.readall
   ts.Close
End Function

Display More

NOT AN ISSUE HERE ....

Mumps · Dec 5th 2021

I don't see any indentation.

Logit · Dec 5th 2021

Well ... that IS very interesting. On my side the indentation was there for viewings by me. What I mean is I had

left this website several times and returned to my posting with the indentation still in effect.

Now of course, the indentation is gone.

OZGRID ... WHAT IS HAPPENING ????

**royUK** · Dec 6th 2021

If your code is indented before posting then add the code tags and paste the code between them. I've found that if you paste the code before adding code tags the indentation will not work.

Mumps · Dec 6th 2021

I always add the code tags first and then the code between them. Unfortunately, this doesn't solve the problem. The indentation still disappears.

**royUK** · Dec 6th 2021

It always works for me.

Mumps · Dec 6th 2021

Have you tried posting the code with the formatting, logging out, closing your browser, re-opening it and then re-opening your post? All I can tell you is that when I do this the formatting disappears. I believe that Logit has the same problem.

Logit · Dec 6th 2021

I too always use the CODE tags prior to posting.

triangulumjuno · Dec 12th 2021

I tried now and it is work. Thanks guys

Formatting of posted VBA code

Participate now!

Share

Users Viewing This Thread