Can someone please advise on the proper syntax for attaching more than one
file to a message?

The error occurs at:

.Attachments.Add FilenameStr2


Thanks,



Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'On Error Resume Next
With OutMail
.To = emails
.CC = ""
.BCC = ""
.Subject = "Hourly TAT Performance: " & _
Worksheets("Labels").Cells(4, i).Value & " - " & _
Sheets("Main").Range("AB8").Value
.Body = "Reports attached"
' .BodyFormat = olFormatPlain 'testing for text format
.Attachments.Add FilenameStr
.Attachments.Add FilenameStr2
.Attachments.Add FilenameStr3
.Attachments.Add FilenameStr4
.Send 'or use .Display
End With

Check if this file exist

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Tom Joseph" wrote in message ...
Can someone please advise on the proper syntax for attaching more than one
file to a message?

The error occurs at:

.Attachments.Add FilenameStr2


Thanks,



Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'On Error Resume Next
With OutMail
.To = emails
.CC = ""
.BCC = ""
.Subject = "Hourly TAT Performance: " & _
Worksheets("Labels").Cells(4, i).Value & " - " & _
Sheets("Main").Range("AB8").Value
.Body = "Reports attached"
' .BodyFormat = olFormatPlain 'testing for text format
.Attachments.Add FilenameStr
.Attachments.Add FilenameStr2
.Attachments.Add FilenameStr3
.Attachments.Add FilenameStr4
.Send 'or use .Display
End With

Thanks Ron. I had the files renaming as the same file, so the attachement
instruction failed.


"Ron de Bruin" wrote:

Check if this file exist

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Tom Joseph" wrote in message ...
Can someone please advise on the proper syntax for attaching more than one
file to a message?

The error occurs at:

.Attachments.Add FilenameStr2


Thanks,



Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'On Error Resume Next
With OutMail
.To = emails
.CC = ""
.BCC = ""
.Subject = "Hourly TAT Performance: " & _
Worksheets("Labels").Cells(4, i).Value & " - " & _
Sheets("Main").Range("AB8").Value
.Body = "Reports attached"
' .BodyFormat = olFormatPlain 'testing for text format
.Attachments.Add FilenameStr
.Attachments.Add FilenameStr2
.Attachments.Add FilenameStr3
.Attachments.Add FilenameStr4
.Send 'or use .Display
End With