i am trying to automate the sending of different attachments to a list of
recipients. So far I have the following code that will send all of the
attachments in a folder to a specified recipient:

Sub Automate()
Dim Count As Integer
Dim DirectoryFiles()
ChDir "C:\Location of files"
ffile = Dir("*.*")
Do While ffile ""
If ffile "" Then
ReDim Preserve DirectoryFiles(Count)
DirectoryFiles(Count) = ffile
Count = Count + 1
End If
ffile = Dir()
Loop
Dim objoutlook As Object
Dim objoutlookmsg As Object
Set objoutlook = CreateObject("Outlook.application")
Set objoutlookmsg = objoutlook.CreateItem(0)
With objoutlookmsg
.To = "
.Subject = "Test"
.Body = "Please find attached monthly reports"
'** Add all stored files**
For i = 0 To UBound(DirectoryFiles())
.Attachments.Add DirectoryFiles(i)
Next
.Send
End With
Set objoutlook = Nothing
Set objoutlookmsg = Nothing
End Sub

The issues I have now is how to alter the above to send each recipient their
correct files. For example I want cost centre manager A to receive all the
files in the folder C:\CostA while I want manager B to receive the files in
the folder C:\CostB.

Clearly this will also require different email addresses for each send also.

Any help with this would be very gratefully received.

Am Fri, 20 Jan 2006 05:43:02 -0800 schrieb Xluser@work:

Simply loop thorugh your recipients first, read their names, addresses or
whatever and build the path from that information. Within that loop start
the loop through the directory and get all the files with Dir().

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



i am trying to automate the sending of different attachments to a list of
recipients. So far I have the following code that will send all of the
attachments in a folder to a specified recipient:

Sub Automate()
Dim Count As Integer
Dim DirectoryFiles()
ChDir "C:\Location of files"
ffile = Dir("*.*")
Do While ffile ""
If ffile "" Then
ReDim Preserve DirectoryFiles(Count)
DirectoryFiles(Count) = ffile
Count = Count + 1
End If
ffile = Dir()
Loop
Dim objoutlook As Object
Dim objoutlookmsg As Object
Set objoutlook = CreateObject("Outlook.application")
Set objoutlookmsg = objoutlook.CreateItem(0)
With objoutlookmsg
.To = "
.Subject = "Test"
.Body = "Please find attached monthly reports"
'** Add all stored files**
For i = 0 To UBound(DirectoryFiles())
.Attachments.Add DirectoryFiles(i)
Next
.Send
End With
Set objoutlook = Nothing
Set objoutlookmsg = Nothing
End Sub

The issues I have now is how to alter the above to send each recipient
their
correct files. For example I want cost centre manager A to receive all the
files in the folder C:\CostA while I want manager B to receive the files
in
the folder C:\CostB.

Clearly this will also require different email addresses for each send
also.

Any help with this would be very gratefully received.