Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
auto email generator
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
auto email generator
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
auto email generator
Hi FSt1, thanks for that, but itcan't work. The named ranges come from the
Excel sheet and "Number.apps" is pre-detirmined (between 1 and 5).. So I want the loop to do it for the number of applications that exist. By setting it to = it doesn't do any. What I note is that if I run the macro say twice it just keeps adding more and more loan apps as attachments, so what I need to be able to do is remove them each time it goes through the loop. The Item.attachments.remove doesn't work within the With if I put it after the .item.send and nor does it work if I set up a separate With just to remove. So the question is: how do I remove the attachments after sending each one? Regards, Brett "FSt1" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto Send email from IF command | Excel Worksheet Functions | |||
Auto email - With every new entry on my user form | Excel Discussion (Misc queries) | |||
Auto generate email | Excel Discussion (Misc queries) | |||
Auto Email | Excel Discussion (Misc queries) | |||
Auto Email from Excel doesn't appear in Sent Items | Excel Discussion (Misc queries) |