Visual Basic

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveWorkbook.SaveAs Filename:="C:\Users\David\Desktop\Book1.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = False
    With ActiveWorkbook.PublishObjects.Add(xlSourceWorkbook, _
        "C:\Users\David\Desktop\Book1.htm", , , xlHtmlStatic, "Book1_31795", "")
        .Publish (True)
        .AutoRepublish = True
    Application.DisplayAlerts = True
    End With
    Application.Left = 161.5
    Application.Top = 91.75
    Range("a1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Private Sub bgwSender_DoWork() Handles bgwSender.DoWork

         mErrorOccured = False

         Try
             mm = New MailMessage
             With mm
                 .From = New MailAddress(tbEmail.Text)
                 .To.Add("My email address goes here")
                 .Subject = Me.Text
                 .Body = _
                     tbProblem.Text & ControlChars.NewLine & ControlChars.NewLine & _
                     "Bug type: " & cbbBugType.SelectedItem & ControlChars.NewLine & _
                     "Windows version: " & cbbWindowsVersion.SelectedItem & ControlChars.NewLine
                 .IsBodyHtml = False
             End With
             smtp = New SmtpClient
             smtp.Host = "My SMTP server goes here"
             smtp.Send(mm)
         Catch ex As Exception
             MessageBox.Show(ex.Message)
             mErrorOccured = True
             mErrorMessage = ex.ToString
         End Try

       End Sub