This is a discussion on How to add my outlook signature to this code: within the Excel Questions forums, part of the Question Forums category; how can i add my outlook signature to this code? Code: Sub Send_Range_Mebz()' You need to use this module with ...
how can i add my outlook signature to this code?
Code:Sub Send_Range_Mebz()' You need to use this module with the RangetoHTML subroutine.' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and Outlook 2010. Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim HTMLBody As String Set rng = Nothing On Error Resume Next ' Only send the visible cells in the selection. Set rng = Selection.SpecialCells(xlCellTypeVisible) ' You can also use a range with the following statement. Set rng = Sheets("Email").Range("A4:F10").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected. " & _ vbNewLine & "Please correct and try again.", vbOKOnly Exit Sub End If With Application .EnableEvents = False .ScreenUpdating = False End With Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "email@example.com" .CC = "" .BCC = "" .Subject = "Invoice(s) Approval" .HTMLBody = "Hi , " & vbCrLf & vbCrLf & " Please approve the following attached invoice(s) listed below, thank you." & vbCrLf & vbCrLf & " " .HTMLBody = RangetoHTML(rng) ' In place of the following statement, you can use ".Display" to ' display the e-mail message. .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail = Nothing Set OutApp = Nothing End Sub
60% of the time it works every time.