Send attachments

[VegasNath]

I am using the following code to send attachments:

Code: Select all

Dim lr2 As Long, lr3 As Long, lr4 As Long, lr5 As Long, lr6 As Long
lr2 = ws2.Cells(1, 1).End(xlDown).row
'...........

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = "Fred"
        .Subject = "Files"
        .HTMLBody = StrBody
        .Attachments.Add wb2.FullName
        .Attachments.Add wb3.FullName
        .Attachments.Add wb4.FullName
        .Attachments.Add wb5.FullName
        .Attachments.Add wb6.FullName
        .Send
    End With

I only want to send each attachment (for example)..... If lr2 - 1 > 0, send wb2. etc.....

How can I achieve this?

[HansV]

Code: Select all

    If lr2 - 1 > 0 Then
        .Attachments.Add wb2.FullName
    End If

etc.

[VegasNath]

Cheers Hans, I was somewhat over complicating the obvious.