Problems Emailing Attachment

Hi all,

I have a fairly basic understanding of VBA and managed to put the below code together, to enable me to automatically send e mails dependant on different outcomes. The code worked fine when I specified a specific document that I wanted it to attach to an e mail, which is great. The problem is that the name of the document I wish to attach is variable. When the code gets to the section highlighted below it errors. The strange thing is that when I step into the code it is recognising the file I want it to attach.

Does anyone have any idea how I can overcome this issue?

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Dim TARGETNAME As String
TARGETNAME = Format(Now - 1, "yyyy-mm-dd") & ".xls"


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 'CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "tgrex0001"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With iMsg
Set .Configuration = iConf
.To = "[email protected]"
.CC = "[email protected]"
.BCC = ""
.From = """White, Lee""<[email protected]>"
.Subject = "TEST VBA"
.HTMLBody = "<Font Face =Arial> <Font Size = 2><p>Dear all,</p>" & _
"<p>Please find attached a copy of the lastest CCS Outgoing One Pager.</p>" & _
"<p>A copy of this report can also be found in G:\Customer Contact Services\Reporting\Outgoing MI.</p>" & _
"<p>Kind regards,<br>" & _
"CCS Automation</br>"
.Attach = "G:\Customer Contact Services\Reporting\Outgoing MI\Daily Reports\" & TARGETNAME
.Send
End With

End Sub

Hi lee2k60,
the path and file name are correct?

Thanks for taking the time to read and comply with the rule .