How to add my outlook signature to this code:

Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: How to add my outlook signature to this code:

  1. #1
    Board Regular
    Join Date
    Jun 2010
    Posts
    312
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default How to add my outlook signature to this code:

     
    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 = "josejrossi@gmail.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

    thanks.

  2. #2
    Board Regular
    Join Date
    May 2011
    Location
    Raleigh, NC
    Posts
    657
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: How to add my outlook signature to this code:

      
    60% of the time it works every time.

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com