Email Macro

[lawre2000]

Hello,

I have the following macro below however the file is not attaching to the email. Any suggestions? Thanks!

Sub Send()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Dim user As Variant

user = Sheets("Instructions").Range("H20").Value



Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = Sheets("Instructions").Range("H21").Value
On Error Resume Next
With OutMail
.To = Sheets("Instructions").Range("H20").Value
.CC = ""
.BCC = ""
.Subject = "Weekly Power Report"
.body = strbody

.Attachments.Add ("H:\PALMERL\Power Report Test")
'.Send
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Hanz77]

I don't see a file name...only a folder path.

.Attachments.Add ("H:\PALMERL\Power Report Test")

If Power Report Test is the actual file, adding ".xls" or ".txt" may solve the issue.

 

[lawre2000]

Yes, that was an error on my part. I have added the .xls extension and the line now reads:

.Attachments.Add ("H:\PALMERL\Power Report Test.xls")

However, the file is not attaching?

 

[lawre2000]

Think I figured out what the problem was. The file was to large to attach. Thanks for your help.