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" <(E-Mail Removed)> wrote in message news:0EC699AB-3C29-4938-B224-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message news:0EC699AB-3C29-4938-B224-(E-Mail Removed)...
> > 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
> >
>