Format Email - HTML in VBA

[kamccar]

Hi!

I have a VBA code to send emails through outlook, however I am having trouble formatting the body of the email. Whenever I put words in or try to insert breaks I am getting a "Compile Error, Expected: end of statement". I'm not sure what the way around this is, or how I can just paste my HTML code in to format the body of the email.

Any help would be greatly appreciated, the code is as follows:

Sub Send_Files()


Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range


With Application
.EnableEvents = False
.ScreenUpdating = False
End With


Set sh = Sheets("Sheet1")


Set OutApp = CreateObject("Outlook.Application")


For Each cell In sh.Columns("A").Cells.SpecialCells(xlCellTypeConstants)


'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.Row, 1).Range("B1:Z1")

If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = sh.Cells(cell.Row, 1).Value
.Subject = "IMPACT MEMOS"
.HTMLBody = ""


For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell.Value) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell

.Send 'Or use .Display/Send
End With

Set OutMail = Nothing
End If
Next cell


Set OutApp = Nothing


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


End Function

 

[DanteAmor]

Try this

At the end of the code it must be End Sub

Sub Send_Files()
  Dim OutApp As Object
  Dim OutMail As Object
  Dim sh As Worksheet
  Dim cell As Range
  Dim FileCell As Range
  Dim rng As Range
  
  With Application
    .EnableEvents = False
    .ScreenUpdating = False
  End With
  Set sh = Sheets("Sheet1")
  Set OutApp = CreateObject("Outlook.Application")
  For Each cell In sh.Columns("A").Cells.SpecialCells(xlCellTypeConstants)
    'Enter the path/file names in the C:Z column in each row
    Set rng = sh.Cells(cell.Row, 1).Range("B1:Z1")
    If cell.Value Like "?*@?*.?*" And _
      Application.WorksheetFunction.CountA(rng) > 0 Then
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
        .to = sh.Cells(cell.Row, 1).Value
        .Subject = "IMPACT MEMOS"
         .HTMLBody = ""
        For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
          If Trim(FileCell.Value) <> "" Then
          If Dir(FileCell.Value) <> "" Then
          .Attachments.Add FileCell.Value
          End If
          End If
        Next FileCell
        .display 'Or use .Display/Send
      End With
      Set OutMail = Nothing
    End If
  Next cell
  Set OutApp = Nothing
  With Application
    .EnableEvents = True
    .ScreenUpdating = True
  End With
[COLOR=#ff0000][B]End Sub[/B][/COLOR]

 

[DanteAmor]

the editor deletes the html code
I put here:

 

[kamccar]

the editor deletes the html code
I put here:

That worked, thank you so much!

 

[DanteAmor]

That worked, thank you so much!

I'm glad to help you. Thanks for the feedback.