hi,
Do While Range("email.app.number").Value <= Range("Number.apps").Value???
change this to =
because...
If Range("email.app.number").Value = 5 Then
1,2,3 and 4 will always be less than 5 and code will attach all that are
less than 5.
that's the only thing that looked suspect to me.
not sure if it will work. post back if it does.
also i noticed you referenced 7 ranges. are these named ranges? you didn't
declare the ranges in your code.
regards
FSt1

"Brettjg" wrote:

Hello out there
I'm using the following code which works really well except that each time
it loops around it keeps adding the next attachment. What I want it to do is
to send one email with the first attachment, then send the second email with
the second attachment (only) etc.

I did try deleting the .Add but it didn't make any difference.

Also, can I stop it from sending the pictures in my signature as separate
attachments?

Sub Send_LOAN_APPS()
Application.ScreenUpdating = False
Range("email.app.number").Value = 1

Do While Range("email.app.number").Value <= Range("Number.apps").Value
If Range("email.app.number").Value = 1 Then
Range("Pth.to.send").Value = Range("Pth.APP1").Value
ElseIf Range("email.app.number").Value = 2 Then
Range("Pth.to.send").Value = Range("Pth.APP2").Value
ElseIf Range("email.app.number").Value = 3 Then
Range("Pth.to.send").Value = Range("Pth.APP3").Value
ElseIf Range("email.app.number").Value = 4 Then
Range("Pth.to.send").Value = Range("Pth.APP4").Value
ElseIf Range("email.app.number").Value = 5 Then
Range("Pth.to.send").Value = Range("Pth.APP5").Value
End If

ActiveSheet.Range("Print_Area").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = Sheets("LOAN APPS").Range("email.address").Value
.Item.Subject = Sheets("LOAN APPS").Range("email.subject").Value
.Item.Importance = 2
.Item.ReadReceiptRequested = True
.Item.Attachments.Add Range("Pth.to.send").Value
.Item.Send
End With
Range("email.app.number").Value = Range("email.app.number").Value + 1
Loop

Application.ScreenUpdating = True
End Sub


Regards, Brett