Sub Send_Emails()
Sheets("Menu").Select
Application.ScreenUpdating = False
Application.StatusBar = "E_Mailing RFQs to Suppliers ..."
Sheets("DailyRFQs").Select
' On Error GoTo cleanup
For Each VCODE In Range("VCODE")
Set objCDOMessage = CreateObject("CDO.Message")
Set objCDOConfig = CreateObject("CDO.Configuration")
With objCDOMessage
Set .Configuration = objCDOConfig
.To = VCODE.Offset(0, 2).Value
.Subject = "RFQ: " & VCODE.Offset(0, 12).Value & " - " & VCODE.Value & " " & VCODE.Offset(0, 1).Value
.TextBody = vbNewLine & vbNewLine & _
"Text"
.AddAttachment VCODE.Offset(0, 7).Value
.AddAttachment VCODE.Offset(0, 8).Value
.AddAttachment VCODE.Offset(0, 9).Value
.AddAttachment VCODE.Offset(0, 11).Value
.Send 'Or use Display
.Display
' VCODE.Offset(0, 9).Value = "YES"
End With
Set iMsg = Nothing
Next
cleanup:
Set objCDOMessage = Nothing
Set objCDOConfig = Nothing
Application.ScreenUpdating = True
End Sub