using VBA with Excel2010 to email attachment referenced in workbook

Welcome to the board!

We'll need a realistic sample worksheet(no personal info), but it doesn't sound too difficult.

Ok. I've attached an Excel document; no macro in it yet but there will be one to scrub the data and do the email.
Thank you in advance!

deed worksheet.xlsm

Sub Test1()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("A").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" Then

            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Reminder"
                .Body = "Dear " & Cells(cell.Row, "A").Value _
                      & vbNewLine & vbNewLine & _
                        "Plecase contact us to discuss bringing " & _
                        "your account up to date"
                'You can add files also like this
                .Attachments.Add (cell.Offset(, 4))
                '.Send  'Or use Display
                .display
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Hi Tinbendr, I forgot about adding the user's signature to the email.
I've found this online: http://stackoverflow.com/questions/8...ure-in-outlook

But can't seem to make any amendments to the code to add the signature work. Can you assist with that as well please?

Thank you in advance.
soundkeyz

**UPDATE** I figured it out. Sorry for bothering you -- thank you!

'amended as follows:
    Dim signature As String


    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    
            
    On Error GoTo cleanup
    For Each cell In Columns("A").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" Then
         
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
            .Display
            End With
               signature = OutMail.HTMLbody
            With OutMail
                .To = cell.Value
                .Subject = cell.Offset(, 1)
                .HTMLbody = "user text here"

the rest of it is the same.