VBA to send max 10 pdf files from specific folder to one email

[Deepa0102]

Hi All,

It is my first time here and really struggling to find the solution for the below. Basically, I have a folder with around 900 pdf files. We need to send per mail, a maximum of 10 pdfs to one email add. Could I please have the vba which will keep sending 10 pdf to the same email address ( with an option to cc another email add), until all the pdfs have been sent in the folder, with a pop-up message at the end stating that all mails have been sent.

Thanking you all for your help.

[Kaper]

Try such code:

Please Login or Register  to view this content.

[Kaper]

Answering the question in PM:

I don't see a reason why the code shall stop at:

Please Login or Register  to view this content.

with Run-time Error 438

Just in case I am attaching a file with this macro. MAy be try to run it from the file attached. For your convenience the parameters (folder path and mail addresses) are taken from the cells in worksheet.

Let us know if this works (PS. try with folder with less than 900 files :-) and probably your own address as recipient :-) )

[Deepa0102]

Hi Kaper,

Thank you so much for your help! I think I got the error message as I tried to run the vba from outlook rather than excel. This is exactly what I needed! Thank you!! Just one more thing, is there any way for the vba to automatically pick up your mail signature?

Thank you again ))

[Kaper]

If you mean your signature as defined in Outlook have a look in a folder which name is similar to:
C:\Users\Deepa0102\AppData\Roaming\Microsoft\Signatures to check whether there is a file with htm extension, like Mysig.htm
If it's there, the code of send_mails procedure could look like:

Please Login or Register  to view this content.

[Deepa0102]

Hi Kaper,

I modified as per above but I am getting a 'Compile Error- Sub or Function not defined'. And the following are highlighted:

Sub send_mails(fromfolder As String, recipient As String, Optional ccrecipient As String)
Signature = GetBoiler

Am I missing something please?

Thank you again

[Deepa0102]

Hi Kaper,

I managed to find out what was wrong. I needed to add the following under the End Sub:
Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Now it is picking up the signature.

Thanking you again for all your help.